Procurar e Copiar Palavra em Guia Especifica

Planilhas, Arquivos, modelos, exemplos, apostilas, nosso datacenter!

Procurar e Copiar Palavra em Guia Especifica

Mensagempor alexandrevba » Sáb Mar 30, 2013 6:33 pm

Boa noite!!

Procurar palavra em outra guia e colar em guia especifica.
Código: Selecionar todos
Sub EncontraTextOutraGuias()
 
Dim rFind As Range, sFind As String, sAddr As String, ws As Worksheet

sFind = "SuaPalavra"

For Each ws In Worksheets
    If ws.Name <> "AleVBA" Then
        With ws.UsedRange
            Set rFind = .Find(What:=sFind, LookAt:=xlPart, MatchCase:=False, SearchFormat:=False)
            If Not rFind Is Nothing Then
                sAddr = rFind.Address
                Do
                    rFind.EntireRow.Copy
                    Sheets("AleVBA").Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlValues
                     Set rFind = .FindNext(rFind)
                Loop While rFind.Address <> sAddr
                sAddr = ""
            End If
        End With
    End If
Next ws
     
End Sub
alexandrevba
 

{ SO_SELECT }

Re: Procurar e Copiar Palavra em Guia Especifica

Mensagempor fsabino » Seg Set 04, 2017 9:57 pm

Ola Alexandre,
Suponha q tenho a coluna A com datas..coluna B com horas e coluna C com um texto.
Consigo procurar um texto e imprimir na outra guia, os campos data e hora também?Tipo fazendo um filtro?
fsabino
Membro
Membro
 
Mensagens: 12
Registrado em: Seg Set 04, 2017 2:45 pm
Has thanked: 1 time
Have thanks: 0 time


Voltar para Biblioteca

Quem está online

Usuários navegando neste fórum: Nenhum usuário registrado e 1 visitante