Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Macro de envio de d...
 
Notifications
Clear all

Macro de envio de dados

 
2024 - VBA & Macros
3 Posts
1 Usuários
0 Reactions
1,446 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,

 
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

 
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, :D

 
Postado : 14/10/2010 1:58 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico