Procurar Copiar Dados (InputBox)

Ir em baixo

Procurar Copiar Dados (InputBox)

Mensagem por alexandrevba em Sex Out 11, 2013 1:13 pm

Boa tarde!!

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
cheers 

Att
avatar
alexandrevba
Intermediário
Intermediário

Mensagens : 222
Data de inscrição : 26/06/2012
Localização : Serra-ES

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum