Merhaba Arkadaşlar.
Forumda çok gezdim,birkaç örnek indirdim ve epey uğraştım ama beceremedim.Acemilik işte.Sayfa1-A1 den A5'e kadar olan verileri bir butonla mesela M1 den M5'e dikey olarak yapıştıracak.Tekrar tıkladığımda M1:M5 silinmeyip N1,N5'e bu bilgiler aktarılacak ve böyle devam edecek.Bendeki makro satıra aktarıyor. Yardımlarınız için şimdiden teşekkürler.Saygılar.
Sub ekle()
Sheets("sayfa1").Select
Range("A1,A2,A3,A4,A5").Select
Selection.Copy
Sheets("sayfa1").Select
Range("M1").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Application.CutCopyMode = False
End Sub
OfficeXP TR
Forumda çok gezdim,birkaç örnek indirdim ve epey uğraştım ama beceremedim.Acemilik işte.Sayfa1-A1 den A5'e kadar olan verileri bir butonla mesela M1 den M5'e dikey olarak yapıştıracak.Tekrar tıkladığımda M1:M5 silinmeyip N1,N5'e bu bilgiler aktarılacak ve böyle devam edecek.Bendeki makro satıra aktarıyor. Yardımlarınız için şimdiden teşekkürler.Saygılar.
Sub ekle()
Sheets("sayfa1").Select
Range("A1,A2,A3,A4,A5").Select
Selection.Copy
Sheets("sayfa1").Select
Range("M1").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Application.CutCopyMode = False
End Sub
OfficeXP TR