Usuários do Excel
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Procurar Copiar Dados (InputBox)

Ir para baixo

Procurar Copiar Dados (InputBox) Empty Procurar Copiar Dados (InputBox)

Mensagem por alexandrevba 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
alexandrevba
alexandrevba
Intermediário
Intermediário

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

Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

 
Permissões neste sub-fórum
Não podes responder a tópicos