Este fórum está sendo desativado

[LeonardoFelipeLeao]

Bom dia pessoal. Tenho uma planilha que contém uma ordem de compra, criei um botão na mesma, onde consigo salvar como pdf e aumentar em 1 o campo do código sempre que salvo uma ele gera uma nova! Porém é necessário controlar essas ordens em uma outra aba "Gerenciador de ordens criadas", queria levar informações para essa aba automatico exemplo:
Tenho o codigo na ordem de compra na 1ºaba da planilha "gerador de ordem" j5 , e o nome do fornecedor c5, quero que essa informação vá para planilha "gerenciador de ordens criadas" nas células a5 e g5. O meu maior desafio é fazer com que essa macro após salvar as informações da ordem, e quando uma nova ordem for gerada vá para linha de baixo da outra planilha a6 e g6 ..
Hoje a macro esta assim:
Sub A()
Application.Dialogs(xlDialogPrint).Show
Range("j5").Select

Range("j5") = Range("j5") + 1

End Sub

essa que preciso que salve as informações apartir desta ação do botão!

[mprudencio]

Experimente este codigo

Código: Selecionar todos

Sub A()
 
Dim WGS As Worksheet
Dim WGSC As Worksheet
Dim lLinha As Long

Set WGS = Sheets("GERADOR DE ORDEM")
Set WGSC = Sheets("Gerenciador de Ordens Criadas")
    lLinha = WGSC.Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Row
    
    WGSC.Cells(lLinha, 1).Value = WGS.Range("J5").Value
    WGS.Cells(lLinha, 7).Value = WGS.Range("C5").Value
    Application.Dialogs(xlDialogPrint).Show
    WGS.Range("J5") = WGS.Range("J5") + 1
        
End Sub

[LeonardoFelipeLeao]

Bom dia Marcelo, olha o código está perfeito está indo para a outra aba da planilha, estou mas qualquer outra informação não consegui mandar.
So o codigo ja me ajuda, porque não vai passar nem uma ordem despercebida, vc poderia comentar esse código para eu poder personalizar e tentar transferir mais informações para outra aba?muito obrigado!

[LeonardoFelipeLeao]

Obrigado Marcelo, já achei aqui não sei por qual motivo o código executava só a primeira instrução e ia embora, eu coloquei o caracter ( : ) para unir as instruções aí deu certo! show de bola!