Encontrar e Copiar cabeçalho

por alexandrevba 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: