selecionar celulas, copiar e colar

2024 - VBA & Macros

Post Recente por Fernando Fernandes 12 anos atrás

3 Posts

2 Usuários

0 Reactions

1,132 Visualizações

RSS

DimasRocha

(@dimasrocha)

Posts: 9

Active Member

Topic starter

Olá pessoal..
Fiz uma macro e preciso dce ajuda para deixar ela operacional.
Seguinte...
ela copia as últimas celulas não vazias (A4:B4), a colunaz C é preenchida até a linha 15, por exemplo.
eu copio (A4:B4) dou um tabe para C4 e um end - ceta para baixo para chegar na ultima cel. preenchida no c.
vou no A15 celeciono até A4 e colo as informações.
O que eu preciso:
é que este processo não seja fixado apenas as celulas (A4:B4), pois sempre vou preencher a planilha e preciso sempre selecionar as últimas celulas preenchidas para copiar...
alguém pode me ajudar?

Postado : 29/08/2012 4:01 pm

DimasRocha

(@dimasrocha)

Posts: 9

Active Member

Topic starter

Mais ou menos assim...
Range("A4:B4").Select
Range("B4").Activate
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C4").Select
Selection.End(xlDown).Select
Selection.End(xlToLeft).Select
Range(Selection, Selection.End(xlUp)).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks

TEM COMO MELHORAR?

Postado : 29/08/2012 4:03 pm