Tópicos relacionados a códigos VBA, gravação de macros, etc.
Por Diego100ges 14 Ago 2019 às 12:53
Membro 2 Estrelas
Mensagens: 151
Reputação: 22
#46854
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 !!
Por babdallas 14 Ago 2019 às 15:44
Membro 5 Estrelas
Mensagens: 2120
Reputação: 935
#46860
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.
Por Diego100ges 14 Ago 2019 às 16:01
Membro 2 Estrelas
Mensagens: 151
Reputação: 22
#46863
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.
Apenas usuários registrados podem ver ou baixar anexos.