Alyson Ronnan Martins

Tem.alguma planilha com dados fictícios para enviar e tentar enteder seu caso.

Esta confusa a sua ideia, tem alguma maneira de conectar com áudio?

Boa tarde @Rayan Marcel Qual vba você esta usando? (Excel, Access ou VBA6)

Opa boa tarde. Você pode colocar a sua planilha no google drive e compartilhar um link aqui. Segue meu e-mail: [email protected]

Boa noite @Thiago Aucar Teria como fazer um exemplo de como a planilha deve ser?

Eu já vi algo parecido em Node quando o Servidor tem um lical específico para colocar essas variáveis. Que é informado pelo próprio servidor.

Boa noite @Edson Guilherme Tenta não colocar o código: Width:=rgMescladas.Width, _ Height:=rgMescladas.Height Esse deve obrigar a dimensão ser a padrão.

Boa noite @FresHHerB Também não entendi o motivo mais muda para o seguinte: Sheets("RELAT").Range(Cells(i, 3), Cells(i + 1, 12)).Value = Sheets("mes").Range("P5:Y6").Value

Não da para ajudar muito sem exemplos. Apenas a primeira parte de acordo com a ideia: Sub cPreencherDados() Dim dWB As Workbook Dim lWB As Workbook Dim lLote As Long Dim totalLinhas As Long Set lWB = ActiveWorkbook Dim planDados As String planDados = "Planilha ATT(Dados).xlsm" If fPlanOpen(planDados) Then Set dWB = Application.Workbooks.Item(planDados) totalLinhas = lWB.Sheets("Dados").Cells(Rows.Count, "D").End(xlUp).Row For lLote = 3 To totalLinhas dWB.Sheets("Planilha1").Cells(2, "C").Value = lWB.Sheets("Dados").Cells(lLote, "D").Value dWB.Activate MsgBox "Executar a macro para atualizar" Next lLote Else MsgBox "Planilha para preenchimento não esta aberta.", vbCritical, "Aviso" End If End Sub Public Function fPlanOpen(Nome As String) As Boolean Dim wb As Workbook On Error Resume Next Set wb = Application.Workbooks.Item(Nome) fPlanOpen = (Not wb Is Nothing) End Function Planilha exemplo: Link do Zip GoogleDrive

Show.

Boa noite @Fabricio Salviato Eu testei seu código e fiz a seguinte correção: Sub teste() Dim lin, col, aux As Long Dim Letra As String aux = 1 ' Preenche as 10 primeiras linhas das 10 primeiras colunas com a sequencia de 1 a 100 ' Ao final de cada linha eu chamo a função letracoluna que me retorna a letra da coluna e faço o preenchimento da célula ' e a partir dessa letra monto o texto do tipo =soma(A1:A10) por exemplo. Ocorre que se eu tento colocar o caractere = antes ' o VBA coloca o sinal de @ depis do igual For col = 1 To 10 For lin = 1 To 10 ActiveSheet.Cells(lin, col).Value = aux aux = aux + 1 Next lin Letra = letracoluna(col) Cells(lin, col).Select Selection.Formula = "=sum(" & Letra & "1:" & Letra & lin - 1 & ")" ' Quando vamos usar formulás usamos os nomes em inglês para o VBA ' no caso dessa formula eu substitui o soma por sum Next col End Sub Function letracoluna(ByVal icol As Long) As String Dim a, b As Long a = icol letracoluna = "" Do While icol > 0 a = Int((icol - 1) / 26) b = (icol - 1) Mod 26 letracoluna = Chr(b + 65) & letracoluna icol = a Loop End Function Segue abaixo o código testado, obs: (a primeira coluna foi antes de fazer a correção) Olha se consegue testar ai no seu pc.

Agora deu certo estou com o seu projeto aberto. Eu coloquei o "datal" para aparece e pareceu a questão que seu comando: Está apenas retornando opções do AJAX.

Tem como colocar seu projeto no Github para eu abrir e olhar? Assim eu faço alteração e já teste e te mando agora.

Imagino usar o javascript, quando o item for selecionado executar um comando para abrir uma pagina. Mais vamos dividir o problema, dependo do seu elemento HTML deve ter um evento para item selecionado, tenta dar um console.log() em javascript para ver se consegue pegar o seu evento. Depois que tiver pegando o evento vamos para abrir uma página. A questão deve ruim porque você deve estar usando um input e não uma lista de seleção... mais isso é para depois, olha se consegue o evento em seu campo.

Boa noite @felipefilp Vamos devagar, um problema por vez para ir matando a coisas e dando um pouco de alegria por ver as coisas aparecendo. Manda um cópia da planilha com dados fictícios e fiz a primeira coisa que você precisa que seja feito. Depois de funcionar e você testar vamos para o próximo.