Copiar duas células fixa de todas as guias para uma única guia, mas colando em duas colunas diferentes.

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

Copiar duas células fixa de todas as guias para uma única guia, mas colando em duas colunas diferentes.

Mensagem por alexandrevba em Ter Nov 18, 2014 7:07 am

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
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