Copiar duas células fixa de todas as guias para uma única guia, mas colando em duas colunas diferentes.
Página 1 de 1
Copiar duas células fixa de todas as guias para uma única guia, mas colando em duas colunas diferentes.
Copiar duas células fixa de todas as guias para uma única guia, mas colando em duas colunas diferentes.
- Código:
'http://www.planilhando.com.br/forum/viewtopic.php?f=10&t=13525&p=70988&sid=7c74a1ff8e354ade241cdef2d3beaeee#p70988
Sub AleVBA_13525()
Dim ws As Worksheet
Application.ScreenUpdating = False
If Range("D30").Value <> "" Then
For Each ws In ActiveWorkbook.Worksheets
If ws.Name <> "nova aba" Then
ws.Range("D30").Copy
Sheets("nova aba").Cells(Rows.Count, "D").End(xlUp).Offset(1).PasteSpecial xlPasteValues
End If
Next
Else
For Each ws In ActiveWorkbook.Worksheets
If ws.Name <> "nova aba" Then
ws.Range("D32").Copy
Sheets("nova aba").Cells(Rows.Count, "F").End(xlUp).Offset(1).PasteSpecial xlPasteValues
End If
Next
End If
Application.ScreenUpdating = True
End Sub
alexandrevba- Intermediário
- Mensagens : 222
Data de inscrição : 26/06/2012
Localização : Serra-ES
Tópicos semelhantes
» Copiar Mesmo Intervalo Uma Guia Para Duas Guias Dif
» Comparar celulas de guais diferentes e copiar para nova guia caso igual
» Filtrar varias Guias baseado 1 critério copiar os dados para 1 guia
» Copia 1 para Muitas Guias (nome das guias em células) critério
» Copiar dados baseado em cabeçalho de uma guia para outra guia
» Comparar celulas de guais diferentes e copiar para nova guia caso igual
» Filtrar varias Guias baseado 1 critério copiar os dados para 1 guia
» Copia 1 para Muitas Guias (nome das guias em células) critério
» Copiar dados baseado em cabeçalho de uma guia para outra guia
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos
|
|