Usuários do Excel
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

Ir para baixo

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

Mensagem por alexandrevba 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
alexandrevba
alexandrevba
Intermediário
Intermediário

Mensagens : 222
Data de inscrição : 26/06/2012
Localização : Serra-ES

Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

 
Permissões neste sub-fórum
Não podes responder a tópicos