Macro que copia inf para a ultima linha de uma tabela

[Parapentix]

Viva,

Não estou a conseguir fazer uma macro que faça o copy de uma informação sempre para a ultima linha de uma tabela.

Podem ajudar-me?

Segue o exemplo http://www.sendspace.com/file/o1sicp

Obrigado pelo vosso excelente trabalho

[zinhovba]

Bom dia!!

veja se vai funcionar

Sub test()
With Worksheets("Folha1")
    .Range(.Cells(4, "B"), .Cells(l7, "D")).Copy Destination:=.Range("B" & Rows.Count).End(xlUp).Offset(1)
End With
End Sub

[celsoyano]

Bom dia

tente:

Sub COPIAR()
    Range("B4:D17").Copy
    ULINHA = Columns(2).Find("*", , , , xlByColumns, xlPrevious).Row
    Cells(ULINHA + 1, "B").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Range("A1").Select
End Sub

[Parapentix]

Viva,

Não estou a conseguir criar uma macro que faça copy de uma informação e coloque sempre essa informação na ultima linha de uma tabela.

Podem ajudar-me?

Segue um exemplo http://www.sendspace.com/file/o1sicp

Obrigado

[zinhovba]

Boa tarde!!

Porque abriu outro tópico para falar do mesmo assunto???

http://forum.clubedohardware.com.br/macro-copia-inf/1114904

Sub test()
With Worksheets("Folha1")
    .Range(.Cells(4, "B"), .Cells(l7, "D")).Copy Destination:=.Range("B" & Rows.Count).End(xlUp).Offset(1)
End With
End Sub

Att

[Parapentix]

Viva,

Burrice minha em abrir novo tópico.

Obrigado celsoyano e zinhovba, ambas funcionaram. Estou a utilizar a macro do celsoyano apenas pelo pormenor do PasteSpecial.

Obrigado pelo vosso excelente trabalho

[Patropi]

Caso o autor do tópico necessite, o mesmo será reaberto, para isso deverá entrar em contato com a moderação solicitando o desbloqueio.