Oi pessoal...
Minha dúvida é bem simples, mas estou encrencado aqui com a programação em VBA do meu projeto.
Tenho valores em uma planilha ("TABELA") que quero passar para uma segunda planilha ("QUADRO").
Esses valores são referentes a um "NOME". Na "QUADRO" tenho a lista total dos nomes e quero inserir os dados vindos da "TABELA" na coluna H, I e J da linha do "NOME" correspondente, sendo que os dados para a coluna I são uma data.
Já consegui localizar a linha desse "NOME" na "QUADRO" através do FIND, mas agora como passo os valores? Como identifico os Ranges para passar os valores?
Cheguei aqui:
Sub PASSAR_VALORES()
Dim Rng As Range
Dim NOME As String
NOME = Worksheets("TABELA").Range("H1").Value
If Trim(NOME) <> "" Then
With Worksheets("QUADRO").Range("A:A")
Set Rng = .Find(What:=NOME, _
After:=.Cells(.Cells.Count), _
LookIn:=xlValues, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False)
If Not Rng Is Nothing Then
Application.Goto Rng, True
Else
MsgBox "Nome não encontrado"
End If
End With
End If
End Sub
Postado : 13/02/2017 3:05 pm