Boa tarde,
Depois de muito quebrar a cabeça para saber como automatizar o cadastro das metas dos representantes no Banco de dados resolvi solicitar uma ajuda!
Tenho um planilha com duas abas "UF REPRES META 2018" e "BD_PET"
Na aba "UF REPRES META 2018" eu tenho os dados da meta dos Representantes, eu preciso que quando eu cadastro um novo representante nesta aba eu clique no Botão "Cadastrar Representantes" e automaticamente os dados de Codigo de representante, Nome Representante e UF, v~~ao automaticamente para a aba "BD_PET" nas devidas coluna D, E , e AG,porém estes dados devem ser repetidos 12 vezes porque temos 12 meses no ano.
Outro desafio é que antes de colar as informações a macro identifique na coluna "A" da aba "BD_PET" se é meta ou realizado, se for meta a Macro vá até a ultima linha da Meta e insira mais 12 linhas e coloque estes valores de acordo com as informações da meta
Tente adaptar uma macro para isto porém ela cola nas linhas erradas.
Você pode me ajudar?
Exemplo da macro que estou usando, mas que cola em linhas erradas:
Sub Cadastrar_Representante()
Dim WCN As Worksheet
Dim WBD As Worksheet
Dim Codigo As String
Dim Representante As Long
Dim Ulinha As Long
Application.ScreenUpdating = False
Set WCN = Sheets("UF REPRES META 2018")
Set WBD = Sheets("BD_PET")
Navio = WCN.Range("W2").Value
Tonelada = WCN.Range("X2").Value
For a = 1 To 12
Ulinha = WBD.Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Row
WBD.Cells(Ulinha, 4).Value = Navio
WBD.Cells(Ulinha, 5).Value = Tonelada
Next
WCN.Range("W2").Value = ""
WCN.Range("X2").Value = ""
Application.ScreenUpdating = True
End Sub
Obrigado
Postado : 07/02/2018 1:46 pm