Viva pessoal, Sou completamente novato em VBA e pricipiante em programação. Preciso de ajuda para construir uma macro para Excel.
Contexto: No livro Excel que se encontra no link a seguir, pretendo desenvolver uma macro em VBA que preencha os campos “transatas", "finalizadas" e "aguardar" da folha “Relatorio”, com a informação contida nos campos “num transatas", "num finalizadas" e "num aguardar" da folha “Dia18Set”.
Problema: A informação do “Dia18Set” é produzida periodicamente de forma completamente aleatória. Cada vez que a folha é produzida, os "códigos do processo" não são sempre os mesmos, nem aparecem pela mesma ordem.
Logo, na macro tenho que verificar, primeiramente, se existe o "Código do processo” que pretendo preencher na folha “Relatorio”.
Se o “código do processo” da folha “Relatorio” não existir na folha “Dia18Set” não preenche nada.
Se existir, a rotina terá que buscar os valores " num transatas", "num finalizadas" e " num aguardar" presentes na folha “Dia18Set”e preencher automaticamente os respetivos campos da folha “Relatorio”.
Em anexo, segue o ficheiro Excel e o ficheiro com o código que desenvolvi, mas não está a funcionar.
Obrigado pela ajuda.
Link ficheiro Excel -> https://www.sendspace.com/file/m2tvbb
Código desenvolvido
Sub transferirDados()
Dim tarefasRecebidas As Long
Dim tarefasProcessadas As Long
Dim tarefasPendentes As Long
Dim IdProcesso As String
Dim ultimaLinhaDia18Set As Long
Dim ultimalinhaRelatorio As Long
Dim contLinhasDia18Set As Long
Dim contLinhasRelatorio As Long
'Definir numero total de linhas da folha "Relatorio"
ultimalinhaRelatorio = Sheets("Relatorio").Range("A" & Rows.Count).End(xlUp).Row
'Definir numero total de linhas da folha "Dia18Set"
ultimaLinhaDia18Set = Sheets("Dia18Set").Range("A" & Rows.Count).End(xlUp).Row
' O "primeiro For" itera cada umas das linhas da folha "Relatorio" a partir da linha 3 para obter cada um dos "IdProcesso"
For contLinhasRelatorio = 3 To ultimalinhaRelatorio
IdProcesso = Sheets("Relatorio").Cells(contLinhasRelatorio, 1)
' O segundo For itera cada uma das linhas da folha "Dia18Set" a partir da linha 2, para obter cada um dos "IdProcesso"
For contLinhasDia18Set = 2 To ultimaLinhaDia18Set
' Para cada linha da folha "Dia18Set", verifica se o "Id do processo" da folha "Dia18Set" é igual ao "Id do processo" que esté em análise no "primeiro For"
If Sheets("Dia18Set").Cells(contLinhasDia18Set, 1) Like IdProcesso Then
'Caso o "IDprocesso" da folha "Dia18Set" seja igual ao da folha "Relatorio", atribui o valor da respetiva linha e coluna às variáves "tarefasRecebidas","tarefasProcessadas" e "tarefasPendentes"
tarefasRecebidas = Sheets("Dia18Set").Cells(contLinhasDia18Set, 2)
tarefasProcessadas = Sheets("Dia18Set").Cells(contLinhasDia18Set, 3)
tarefasPendentes = Sheets("Dia18Set").Cells(contLinhasDia18Set, 4)
'Atribui à célula do livro "Relatorio" o numero das respetivas tarefas.
Sheets("Relatorio").Cells(contLinhasRelatorio, 2) = tarefasRecebidas
Sheets("Relatorio").Cells(contLinhasRelatorio, 3) = tarefasProcessadas
Sheets("Relatorio").Cells(contLinhasRelatorio, 4) = tarefasPendentes
End If
Next contLinhasDia18Set
Next contLinhasRelatorio
End Sub