Este fórum está sendo desativado

[Diego100ges]

Prezados, bom dia
Estou utilizando atualmente um código para copiar as informações de uma planilha e colar em outra, porém, vou precisar que agora que seja colado em outro workbook não mais no mesmo como está sendo o código atual, será que poderiam me ajudar a corrigir o código, estou tendo algumas dificuldades

Segue código atual

Sub Lançamento_distribuidor()
Application.ScreenUpdating = False
Dim resultado As VbMsgBoxResult
resultado = MsgBox("Tem certeza que deseja prosseguir com esta ação?", vbYesNo, "Tomando uma decisão")
If resultado = vbYes Then
MsgBox "Distribuidora/REH cadastrada com sucesso"
Else
MsgBox "Distribuidora/REH NÃO cadastrada"
Exit Sub
End If

Sheets("Cadastro de distribuidor").Select
Range("Tabela3").Select
Selection.Copy
Application.CutCopyMode = False
Selection.Copy
Sheets("Base de distribuidores").Visible = True
Sheets("Base de distribuidores").Select
Range("A2:G2").Select
Do
If ActiveCell <> "" Then
ActiveCell.Offset(1, 0).Select
End If
Loop Until ActiveCell = ""
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Cadastro de distribuidor").Select
Sheets("Base de distribuidores").Visible = False
Application.ScreenUpdating = True
End Sub


P.S: O Nome do novo WORKBOOK será Base, estará no caminho Y:\Diego Matos, e o nome da planilha dentro desse workbook é Distribuidores.


Obrigado !!

[babdallas]

Anexe um exemplo, por favor. Pelo que observei, dá para otimizar bem este código, tornando bem mais rápido e sem loop.

Não ficou claro se é para copiar para uma nova pasta de trabalho ou se para uma pasta de trabalho existente.

[Diego100ges]

Anexei um exemplo:
Então como no exemplo atualmente eu faço os lançamentos em uma planilha e quando clico no botão ele executa a macro que vai salvar os dados em outra planilha.
Mas agora eu preciso fazer algo mais elaborado, eu preciso que os lançamentos sejam enviados para uma pasta de trabalho diferente e não mais para outra planilha, como está acontecendo nesse código.