- 21 Abr 2021 às 16:30
#63979
Olá,
Tenho esse código para localizar dados dentro da mesma planilha, mas quero colocar esse código na planilha LANÇAMENTOS para localizar o código do cliente que está na coluna A da planilha BASE. Os dados dos clientes estão nas células A4:D2003. Caso o cliente esteja no intervalo informado, que a macro me informe o código do cliente, caso contrário apenas informe que não foi localizado.
Como consigo adaptar o código abaixo à minha necessidades. Desde já agradeço pela atenção dispensada.
Private Sub CommandButton1_Click()
Dim PESQUISAR As String
PESQUISAR = InputBox("Informe dados para Pesquisa", "PESQUISAR")
With Worksheets(1).Range("A:C")
Set c = .Find(PESQUISAR, LookIn:=xlValues)
If Not c Is Nothing Then
Worksheets(1).Activate
Range(c.Address).Activate
Else
MsgBox "Credor não Encontrado", vbInformation, "PESQUISAR"
End If
End With
End Sub
Tenho esse código para localizar dados dentro da mesma planilha, mas quero colocar esse código na planilha LANÇAMENTOS para localizar o código do cliente que está na coluna A da planilha BASE. Os dados dos clientes estão nas células A4:D2003. Caso o cliente esteja no intervalo informado, que a macro me informe o código do cliente, caso contrário apenas informe que não foi localizado.
Como consigo adaptar o código abaixo à minha necessidades. Desde já agradeço pela atenção dispensada.
Private Sub CommandButton1_Click()
Dim PESQUISAR As String
PESQUISAR = InputBox("Informe dados para Pesquisa", "PESQUISAR")
With Worksheets(1).Range("A:C")
Set c = .Find(PESQUISAR, LookIn:=xlValues)
If Not c Is Nothing Then
Worksheets(1).Activate
Range(c.Address).Activate
Else
MsgBox "Credor não Encontrado", vbInformation, "PESQUISAR"
End If
End With
End Sub
