Alyson Ronnan Martins

Pelo que entendi, você deseja replicar os dados do primeiro dia para os outros 30 dias do mês, alterando apenas a data. Seu código atual já parece fazer isso. No entanto, notei que você está incrementando a data apenas na primeira linha de cada conjunto de dados copiado. Se você deseja que a data seja incrementada para todas as linhas copiadas, você deve remover a condição If j = 1 Then e sempre incrementar a data, como mostrado abaixo: For j = LBound(dataValues, 1) To UBound(dataValues, 1) ' Incrementar a data inicial dataValues(j, 1) = celDataInicial.Value + i Next j

Opa @Robson Luís Vi seu post no fórum e da para copiar sim, porém precisa saber como esta planejando fazer essa "cópia" teria uma planilha exemplo e aumentar um pouquinho a descrição do que está pensando?

Boa tarde @Samuel Carlos Ribeiro. Também tive esse tipo de problema quando a base de informações do list é muito grande, pesquisei muito na microsoft e na epoca e hoje não consegui solucionar e sim contornar o problema. Não sei qual a sua necessidade para utilizar o additem em campos do List. Eu recomendaria mudar para a propriedade RowSource, já que você esta adicionando todas as colunas (praticamente). Olha o código exemplo: Sub CarregaListBox() Dim wb As Workbook Dim sh As Worksheet Set wb = ThisWorkbook Set sh = wb.Sheets("clientes") wb.Activate sh.Activate lins = sh.Range("A1048576").End(xlUp).Row With ListBox1 ' Define a propriedade RowSource para o intervalo desejado na planilha .RowSource = sh.Range("A1:M" & lins).Address End With Set wb = Nothing Set sh = Nothing End Sub Link da microsoft: Como resolver erro em tempo de execução 380 não foi possível definir a - Microsoft Community

Boa noite @otavio Braga Imagino que utilizando o array (lista) de dados seja o mais adequado para o que esta precisando, olha o exemplo abaixo que coloquei: Sub teste() ' Usando um array Dim valores(1 To 5) As Integer ' Atribuindo valores valores(1) = 10 valores(2) = 20 valores(3) = 30 valores(4) = 40 valores(5) = 50 ' Iterando sobre o array Dim i As Integer For i = 1 To 5 MsgBox valores(i) Next i End Sub

Boa noite @Pedro Queiroz. Eu utilizo a funcionalidade do Excel para definir os locais "confiáveis" para meu código assim ele não fica aparecendo mensagens. Abre opções -> central de compatibilidades Configurações Depois vai em locais confiáveis e ativa permitir locais de rede e adicione o local que você quer:

@buscheric boa tarde, mandei um solicitação. Quem sabe consigo te auxiliar melhor se você fizer um documento laudo "errado" com dados fictícios para simular e tentar criar algo que funcione. Caso não tenha o arquivo é complicado descrever um código preciso, só posso pensar em uma lógica que possa funcionar. Abraço.

@ricardoweb084 ai foi bem além de onde eu teria ido. kkkk Pelo que lembro, sendo isso a algum tempo, você pode olocar o formulaário em modo "modal" fazendo com que ele não mostre a barra de título, mesmo colocando um menu(popup) ao aperta o botão direito do mouse. Claro que não vi seu código para entender porque isso está acontecendo. Mesmo assim fico muito feliz de ter ajudado (mesmo que por pouco tempo) é assim mesmo. Hoje estou procurando soluções para criar aplicações um pouco fora do VBA devido a falta de funcionalidades/conhecimento. Qualquer coisa pode chamar ai.

Boa noite @juliosonic. Seu código HTML parece estar correto em termos de SEO. Você tem as tags de título e meta corretas, incluindo og:title, og:site_name, twitter:title e outras tags importantes para SEO. No entanto, se o Google está mostrando o URL do seu site em vez do nome do site nos resultados da pesquisa, pode ser devido a alguns motivos possíveis12: Google ainda não indexou as alterações: Se você fez alterações recentemente no seu site, pode levar algum tempo para o Google rastrear e indexar essas alterações. Problemas de rastreamento ou indexação: Verifique se o Google pode rastrear e indexar seu site corretamente. Você pode usar a ferramenta Google Search Console para isso. Inconsistências nos sinais: Certifique-se de que o nome do seu site seja consistente em todo o seu site e em todas as suas tags de título e meta. Problemas com o arquivo sitemap.xml: Verifique se o seu arquivo sitemap.xml está atualizado e listando todas as páginas corretamente. Se você já verificou todos esses pontos e o problema persiste, pode ser útil entrar em contato com o suporte do Google ou consultar um especialista em SEO para obter ajuda adicional. Lembre-se de que a otimização para mecanismos de pesquisa pode levar algum tempo para produzir resultados, então tenha paciência. Espero que isso ajude! 😊

Boa noite @Diego Braga, não se ainda é possível restaurar se tiver com esse erro. Tenta instalar em uma máquina local e fazer o "restaure" dentro dessa máquina para validade algum erro no servido que esta restaurando.

Boa noite @ricardoweb084 eu recomendaria deixar sem borda e criar o próprio botão de fechar.

Opa boa noite. Pelo que eu entendi precisa escolher um modelo dependendo do usuário correto? Se sim você usar esse dado para abrir o modelo que deseja. Esse seria um exemplo: If rgFoco.Columns("AF").value = "Laudo novo" Then 'Define qual constante vai utilizar (novo) else 'Defini qual constante vai utilizar (antiga) end if Você também pode dublicar a procedure btGerarLaudo_Click e criar ele olhando para a nova constante que aponta para o laudo. Dessa maneira você teria dois botões sendo um para o laudo antigo e outro para o laudo novo.

Boa noite @Bruno Rafael do carmo izzo A palavra Brasil deveria estar em aspas simples: NASCIONALIDADE VARCHAR(20) DEFAULT 'BRASIL'

Boa tarde. @buscheric Deve ser rasuaveklment simples devido já ter um modelo criado. Você tem o documento novo com os "Bookmarks" , (referências para o VBA fazer a inclusão de dados do excel)? Caso já tenha feito a primeira coisa que vai fazer é definir a posição do novo modelo: Const modeloUS = "C:\Anima\Modelo Laudos\Laudo Abdominal.dotx" Pelo que entendi esse código acima é o modelo atual então vai criar o novo modelo exemplo: Const modeloUS = "C:\Anima\Modelo Laudos\Laudo Abdominal.dotx" Const modeloBR = "C:\Anima\Modelo Laudos\Laudo Abdominal2.dotx" Assim que for respondendo, vamos te ajudando a continuar.

Eu tentei no meu computador em casa mais o office atualizou e nem eu sei usar na versão mais recente. kkkk Segue o comando que tenho para fazer conexão com banco de dados do access: 'Criado por Alyson Ronnan Martins 'Data: 2021/11/12 'Utilizar a referência: Microsoft ActiveX Data Objects 6.1 Library Public db As ADODB.Connection Public rs As ADODB.Recordset Public Const DB_PATH As String = "C:\DB\" Public Const DB_NAME As String = "database.accdb" Public Sub cConnectOpen() On Error Resume Next Set db = New ADODB.Connection Dim Caminho As String Caminho = DB_PATH & DB_NAME If Dir(Caminho) = "" Then MsgBox "Não foi encontrador o banco de dados!" & Chr(13) & _ "Solicitar o suporte da verificar o caminho abaixo:" & Chr(13) & _ DB_PATH & DB_NAME, vbCritical, _ "Erro crítico!" Application.Quit End If With db .ConnectionString = "Driver={Microsoft Access Driver (*.mdb, *.accdb)};" & _ "ReadOnly=0;" & _ "DBQ=" & Caminho & ";" & _ "DefaultDir=" & DB_PATH '& _ "Uid=Admin;Pwd=;" .Open End With 'Exemplo de fazer consulta 'Set rs = db.Execute("SELECT * FROM TABELA") 'rs.Close: Set rs = Nothing End Sub Public Sub cConnectClose() On Error Resume Next db.Close Set db = Nothing End Sub Agora para consultar os dados você cria um procedimento para executar uma consulta: sSQL = "SELECT * " & _ "FROM [nome tabela] " & _ Set rs = New ADODB.Recordset rs.Open sSQL, db, adOpenDynamic, adLockReadOnly retornoSQL = rs.EOF If retornoSQL = False Then Do Until rs.EOF Sheets("Planilha1").Cells(x + 1, 1).Value = rs.Fields("") Sheets("Planilha1").Cells(x + 1, 2).Value = rs.Fields("") Sheets("Planilha1").Cells(x + 1, 3).Value = rs.Fields("") Sheets("Planilha1").Cells(x + 1, 4).Value = rs.Fields("") Sheets("Planilha1").Cells(x + 1, 5).Value = rs.Fields("") rs.MoveNext x = x + 1 Loop end if @Domingos Oliveira Avalia se consegue entender e utilizar.

Boa tarde @Domingos Oliveira Precisa mesmo ser VBA? O import do EXCEL já traz as informações e é possível fazer SQL na hora de trazer as informações do ACCESS.