Procurar Copiar Dados (InputBox)
Página 1 de 1
Procurar Copiar Dados (InputBox)
Boa tarde!!
Como procurar e copiar dados (Coluna A até D)
Att
Como procurar e copiar dados (Coluna A até D)
- Código:
Sub ProcurarCopiarDados()
'Procura os dados na Plan2 Coluna A
'Copia para a Plan1 (copia da coluna A até a Coluna D)
Application.ScreenUpdating = False
Dim bottomA As Integer
bottomA = Sheets("Plan2").Range("A" & Rows.Count).End(xlUp).Row
Dim rng As Range
Dim searchVal As String
searchVal = InputBox("Por favor entre com o critério.")
For Each rng In Sheets("Plan2").Range("A2:A" & bottomA)
If rng Like "*" & searchVal & "*" Then
rng.Resize(, 4).Copy Sheets("Plan1").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)
End If
Next rng
Application.ScreenUpdating = True
End Sub
Att
alexandrevba- Intermediário
- Mensagens : 222
Data de inscrição : 26/06/2012
Localização : Serra-ES
Tópicos semelhantes
» Copiar e Colar (InputBox)
» Copiar dados automaticamente
» Copiar Dados de VARIAS Planilhas para uma só Planilha
» Copiar dados de vários arquivos para uma única planilha
» Filtrar varias Guias baseado 1 critério copiar os dados para 1 guia
» Copiar dados automaticamente
» Copiar Dados de VARIAS Planilhas para uma só Planilha
» Copiar dados de vários arquivos para uma única planilha
» Filtrar varias Guias baseado 1 critério copiar os dados para 1 guia
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos
|
|