Encontrar e Copiar cabeçalho

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Encontrar e Copiar cabeçalho

Mensagem por alexandrevba em Ter Out 15, 2013 7:43 am

BOm dia!!

Usando o método Find para procurar na linha 1 e copiar a informação para outra guia.
Código:
Sub EncontrarCabeçalho()
'Encontra cabeçalho e copia para outra guia
Dim c As Range
vVal = "Nome_Cabeçalho" '<--coloque o texto aqui
Set Rng = Rows(1) '<--copia o texto da linha 1 (planilha ativa)
Set c = Rng.Find(What:=vVal, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, MatchCase:=False)
Columns(c.Column).Copy Sheets(3).Range("A1") '<--cola o texto em A1 na terceira guia
End Sub
Att:cheers:
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

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

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