Copiar dados baseado em cabeçalho de uma guia para outra guia
Página 1 de 1
Copiar dados baseado em cabeçalho de uma guia para outra guia
Boa tarde!!
Como copiar dados baseado em cabeçalho da guia 1 para a guia 2.
Como copiar dados baseado em cabeçalho da guia 1 para a guia 2.
- Código:
Sub CopiarBaseadoEmCabecalho()
Application.ScreenUpdating = False
Sheets("Sheet2").UsedRange.ClearContents
Dim i As Long
Dim lColumn As Long
Dim Col
Dim foundCol As Range
Col = Array("Nome", "Valor")
On Error Resume Next
For i = 0 To UBound(Col)
lColumn = Sheets("Sheet2").Cells(1, Columns.Count).End(xlToLeft).Column
Set foundCol = Sheets("Sheet1").Rows(1).Find(Col(i), LookIn:=xlValues, LookAt:=xlWhole)
If Not foundCol Is Nothing Then
foundCol.EntireColumn.Copy Sheets("Sheet2").Cells(1, lColumn + 1)
End If
Next i
Sheets("Sheet2").Columns(1).EntireColumn.Delete
Application.ScreenUpdating = True
End Sub
alexandrevba- Intermediário
- Mensagens : 222
Data de inscrição : 26/06/2012
Localização : Serra-ES
Tópicos semelhantes
» Filtrar varias Guias baseado 1 critério copiar os dados para 1 guia
» Copiar Com Critério para outra Guia
» Copiar_Colunas_Especificas de guia para outra
» Copiar Dados de VARIAS Planilhas para uma só Planilha
» Copiar Mesmo Intervalo Uma Guia Para Duas Guias Dif
» Copiar Com Critério para outra Guia
» Copiar_Colunas_Especificas de guia para outra
» Copiar Dados de VARIAS Planilhas para uma só Planilha
» Copiar Mesmo Intervalo Uma Guia Para Duas Guias Dif
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos
|
|