- Katılım
- 11 Ekim 2005
- Mesajlar
- 140
merhaba, kopyaladığım veriyi son satıra yapıştırmak istiyorum ekli kod çalışıyor ancak sondan bir üsteki hücreye yapıştırıyor son hücre için yardımcı olabilirmisiniz. teşekkürler.
Sheets("sayfa1").Select
Range("A2:A100").Select
Selection.Copy
Sheets("sayfa2").Select
[a65536].End(3).Select
'Range("A6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("sayfa1").Select
Range("A2:A100").Select
Selection.Copy
Sheets("sayfa2").Select
[a65536].End(3).Select
'Range("A6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False