Este fórum está sendo desativado

[DouglasMatheus]

Bom dia, pessoal!

Primeiramente, não entendo muita coisa/quase nada de Macros, meu problema é o seguinte:

Aqui no trabalho preciso alimentar uma planilha de fretes, como se fosse um formulário, e depois preciso passar essas informações para uma segunda planilha de controle, gostaria de saber se há a possibilidade de; ao preencher este 'formulário' da primeira planilha, criar uma Macro pra que ele possa enviar essas informações à planilha de controle de forma automatizada, ou que a planilha de controle puxe essas informações da planilha 'formulário', estou disponibilizando as planilhas em anexo para terem uma ideia.

Desde já agradeço!

[alexandrevba]

Boa tarde!!
No intervalo (F2:U2), use as formulas
F2 ->=B1 , G2 -> =B3 , H2 -> =D3, I2 -> =B7 , J2 -> =B8 , K2 -> =B4 , L2 -> =B5 , M2 -> =B6 , N2 -> =D4 , O2 -> =D5 , P2 -> =D6 , Q2 -> =D7 , R2 -> =D8 , S2 -> =B32 , T2 -> =D32 , U2 -> =B34

Agora ainda no arquivo Fórmulario, use o seguinte código.

Código: Selecionar todos

Sub AleVBA_1613()
Dim wbDest As Workbook

Application.ScreenUpdating = False
'Aqui use o caminho que vai ficar o arquivo Controle Fretes
Set wbDest = Workbooks.Open("C:\Users\aleVBA\Downloads\Controle Fretes.xlsx")
    With wbDest.Worksheets("Plan1")
        ThisWorkbook.Worksheets("Plan1").Range("F2:U2").Copy
        .Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues
    End With
    wbDest.Save
    wbDest.Close
Application.ScreenUpdating = True
End Sub

faça os testes!
Att

Att

[DouglasMatheus]

Boa tarde!!
No intervalo (F2:U2), use as formulas
F2 ->=B1 , G2 -> =B3 , H2 -> =D3, I2 -> =B7 , J2 -> =B8 , K2 -> =B4 , L2 -> =B5 , M2 -> =B6 , N2 -> =D4 , O2 -> =D5 , P2 -> =D6 , Q2 -> =D7 , R2 -> =D8 , S2 -> =B32 , T2 -> =D32 , U2 -> =B34

Agora ainda no arquivo Fórmulario, use o seguinte código.

Código: Selecionar todos

Sub AleVBA_1613()
Dim wbDest As Workbook

Application.ScreenUpdating = False
'Aqui use o caminho que vai ficar o arquivo Controle Fretes
Set wbDest = Workbooks.Open("C:\Users\aleVBA\Downloads\Controle Fretes.xlsx")
    With wbDest.Worksheets("Plan1")
        ThisWorkbook.Worksheets("Plan1").Range("F2:U2").Copy
        .Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues
    End With
    wbDest.Save
    wbDest.Close
Application.ScreenUpdating = True
End Sub

faça os testes!
Att

Att

Alexandre, bom dia!

Não entendi sua colocação "No intervalo (F2:U2), use as formulas
F2 ->=B1 , G2 -> =B3 , H2 -> =D3, I2 -> =B7 , J2 -> =B8 , K2 -> =B4 , L2 -> =B5 , M2 -> =B6 , N2 -> =D4 , O2 -> =D5 , P2 -> =D6 , Q2 -> =D7 , R2 -> =D8 , S2 -> =B32 , T2 -> =D32 , U2 -> =B34"

Poderia me dar um exemplo?

Obrigado,

[alexandrevba]

Bom dia!!

Digamos que na guia Plan1 do lado esquerdo você tem o seu formulário de preenchimento.

Do lado direito (F2:U2), você vai organizar esse formulário em formato de BD(colunas uma do lado da outra)

Att

[DouglasMatheus]

Alexandre,

Assim?

[alexandrevba]

Boa tarde!!

Eu disse nas células dentro da guia "Plan1" do arquivoFormulários Frete!!!



Att