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

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

Ir para baixo

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

Mensagem por alexandrevba Sáb 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
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