Copia 1 para Muitas Guias (nome das guias em células) critério

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

Copia 1 para Muitas Guias (nome das guias em células) critério

Mensagem por alexandrevba em Sab Jul 19, 2014 8:11 pm

Boa noite!!

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