Macro de envio de dados

2024 - VBA & Macros

Post Recente por Fernando Fernandes 14 anos atrás

3 Posts

1 Usuários

0 Reactions

1,448 Visualizações

RSS

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Topic starter

bom dia a todos,

Estou precisando de ajuda!

Pessoal estou tentando fazer uma *macro que envie dados uma unica planilha,sendo que essa mesma macro ja tem planilha referente para envio:

* para fazer essa macro eu sigo os seguintes topicos:

Copio as celulas que entraram dados
ensiro na planilha desejada
crio um botão e coloco a macro

toda vez que eu clicar na macro ela enviara as celulas copiadas para planilha desejada!

Até ai tudo bem,

no meu caso tenho:
3 planilhas de dados
1 entrada de dados(nessa planilha esta 3 macro com botoes, cada uma com o nome das planilhas, essas macro são responsaveis por enviar dados para cada planilha!)

obs: essa planilha de ENTRADA DE DADOS envia dados para as 3 planilhas de DADOS.

Estou criando uma outra planilha de consulta por isso,

Minha dificuldade é,como fazer que essas 3 macros envie dados para uma unica planilha, sendo que ja tem função para élas?

Grato,
até mais,

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 13/10/2010 8:46 am

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Topic starter

O ideal seria postar as rotinas para saber como está enviando os Dados para as outras.

Mas se quer copiar de uma planilha e enviar para as outras planilhas, você pode adaptar a rotina abaixo :

Sub CopiaCola()
    Range("A2:B2").Copy
    'Verifica as planilhas existentes
    For Each sh In Sheets
        
        'AQUI VAI O SEU CÓDIGO
        'Onde cola os dados em cada uma
        sh.PasteSpecial
    
    Next sh
    Application.CutCopyMode = False
End Sub

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 14/10/2010 1:35 pm

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Topic starter

Esse codigo fará o mesmo processo?
BOM ESTOU UTILIZANDO ESSA MACRO:

Sub MACRO_ACP_NOVA_ENTRADA_ENVIO()
'
' MACRO_ACP_NOVA_ENTRADA_ENVIO Macro
' Essa macro enviara dados para planilha ACP
'
Worksheets("ACP").Visible = True
'
    Selection.Copy
    Sheets("ACP").Select
    Range("B2").Select
    Selection.Insert Shift:=xlDown
    Sheets("Nova Entrada").Select
    Range("E9").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("ACP").Select
    Range("C2").Select
    Selection.Insert Shift:=xlDown
    Sheets("Nova Entrada").Select
    Range("G9").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("ACP").Select
    Range("D2").Select
    Selection.Insert Shift:=xlDown
    Sheets("Nova Entrada").Select
    Range("I9").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("ACP").Select
    Range("E2").Select
    Selection.Insert Shift:=xlDown
    Sheets("Nova Entrada").Select
    Range("K9").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("ACP").Select
    Range("F2").Select
    Selection.Insert Shift:=xlDown
    Sheets("Nova Entrada").Select
    Range("M9").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("ACP").Select
    Range("G2").Select
    Selection.Insert Shift:=xlDown
    Sheets("Nova Entrada").Select
    Application.CutCopyMode = False
    Range("C9").Select
    Worksheets("ACP").Visible = False


End SuB

BOM ESSA MACRO FAZ TODO PROCESSO DE DIRECIONAR PARA 1 PLANILHA!

COM EU FASO PARA DIRECINAR PARA DUAS PLANILHAS ?

GRATO,