Envia a sua planilha, isso é facil de ser feito

Envia a sua planilha, isso é facil de ser feito

Como devo enviar a planilha ?

Clica em "adicionar anexo" e envia a sua planilha no modo .rar

proximaLinha = worksheets("DADOS").Range("A1048576").END(XLUP).ROW+1
range("a" & proximalinha).value = "novo nome"

Cadastro simples e bem explicadinho no código.
veja se te atende!

OBS: Caso queira fazer o procedimento em outra aba, basta usar o comando Sheets("nomedaplanilha").select .

Abraços

Pessoal desculpa mas estou apanhando aqui
o codigo que tenho e esse aqui olhem

Sub Botão4_Clique()
' Botão4_Clique Macro

'
Sheets("Saida").Select
Range("A2").Select
ActiveCell.FormulaR1C1 = "=Plan1!R4C3"
Range("B2").Select
ActiveCell.FormulaR1C1 = "=Plan1!R6C3"
Range("C2").Select
ActiveCell.FormulaR1C1 = "=Plan1!R6C7"
Range("D2").Select
ActiveCell.FormulaR1C1 = "=Plan1!R6C11"
Range("E2").Select
ActiveCell.FormulaR1C1 = "=Plan1!R6C16"
Range("A3").Select

Cadastro simples e bem explicadinho no código.
veja se te atende!

OBS: Caso queira fazer o procedimento em outra aba, basta usar o comando Sheets("nomedaplanilha").select .

Abraços

A macro não roda aqui no meu micro

Cadastro simples e bem explicadinho no código.
veja se te atende!

OBS: Caso queira fazer o procedimento em outra aba, basta usar o comando Sheets("nomedaplanilha").select .

Abraços

e isso mesmo que quero fazer, mas os meus dados estão em outra celulas e vai ser mandado para outra plan conforme o codigo abaixo.

É igual eu disse, basta mudar as referências que eu dei na planilha, e caso seja em outra plan, basta usar o comando Sheets("nome da planilha").select para fazer as mudanças e buscar as referências nela.

* o anexo não veio.

vlw

Da forma que está sua rotina fica mais dificil, pois utiliza ActiveCell.
Utilizando a Dica do colega Fernando, troque sua rotina pela a abaixo, procure estuda-la e verá que vai ser bem simples as proximas adaptações.

Utilizei tambem a Instrução With, assim não precisamos selecionar a aba e lançamos direto.

Sub Botão4_Clique()
' Botão4_Clique Macro

Dim proximalinha

'Verificamos e armazenamos na Variável proximalinha a última linha preenchida na coluna A
proximalinha = Worksheets("Saida").Range("A1048576").End(xlUp).Row + 1

    'Utilizando a instrução With lançamos direto,
    'sem precisar selecionar a aba "Saida"
    With Worksheets("Saida")
        .Range("a" & proximalinha).Value = "=Plan1!R4C3"
        .Range("b" & proximalinha).Value = "=Plan1!R6C3"
        .Range("c" & proximalinha).Value = "=Plan1!R6C7"
        .Range("d" & proximalinha).Value = "=Plan1!R6C11"
        .Range("e" & proximalinha).Value = "=Plan1!R6C16"
    End With

End Sub

Qq duvida retorne.

[]s

ok
vou tentar fazer aqui
obrigado

W&L,

Se você tivesse enviado a planilha, já teria enviado de volta com a resolução do problema ao invés de tantas respostas e você ainda não ter conseguido decifrar

Lembrando que quando falamos com um usuário iniciante, muita das vezes ele não sabe onde inserir o código, ou o que mudar

segue o anexo
não estou conseguindo identificar como fazer isso, inserir o código

W&L,

Se você tivesse enviado a planilha, já teria enviado de volta com a resolução do problema ao invés de tantas respostas e você ainda não ter conseguido decifrar

Lembrando que quando falamos com um usuário iniciante, muita das vezes ele não sabe onde inserir o código, ou o que mudar

se conseguir me ajudar ficarei agradecido
ainda vou terminar ela por que vou colocar mais coisas nessa plan