Copia 1 para Muitas Guias (nome das guias em células) critério
Página 1 de 1
Copia 1 para Muitas Guias (nome das guias em células) critério
Boa noite!!
Veja como copiar dados de uma guia principal para muitas guias, crieterio é o nome das guias em uma coluna.
Att
Veja como copiar dados de uma guia principal para muitas guias, crieterio é o nome das guias em uma coluna.
- Código:
Option Explicit
'http://www.planilhando.com.br/forum/viewtopic.php?f=10&t=12588
Sub AleVBA_12588()
'Copia os dados de uma guia Principal de acordo com o nome das guias nas células, para as guias
Dim bottomD As Integer
bottomD = Range("A" & Rows.Count).End(xlUp).Row
Dim c As Range
Dim ws As Worksheet
Application.ScreenUpdating = 0
For Each c In Sheets("Lançamento Manual").Range("A3:P" & bottomD)
For Each ws In Sheets
ws.Activate
If ws.Name = c Then
c.EntireRow.Copy Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)
End If
Next ws
Next c
Application.ScreenUpdating = 1
End Sub
Att
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 duas células fixa de todas as guias para uma única guia, mas colando em duas colunas diferentes.
» Criar_Hiperlilnk baseado no nome das guias
» Limpar células de várias guias.
» Listar o nome de várias guias em Diretório específico.
» Copiar duas células fixa de todas as guias para uma única guia, mas colando em duas colunas diferentes.
» Criar_Hiperlilnk baseado no nome das guias
» Limpar células de várias guias.
» Listar o nome de várias guias em Diretório específico.
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos