Veri depolama

[putedan]

Sevgili arkadaşlar aradım ama bulamadım ekli dosyada sayfa 1 de bir kaydet butonu olmasını a1:a4 satırlarına veri girip kaydet tuşuna basınca girdiğim bu verileri sayfa 2 de ilgili satırlara aktarmasını istiyorum.Haliyle kayıt sayım artacağı için kaydet tuşuna her bastığımda ilk kaydı sayfa 2 de 2. satıra ; ikinci kaydı sayfa 2 de 3 satıra yani A sütunlarında bulunan en üstteki boş hücrelere yapıştırmasını istiyorum.umarım anlatabilmişimdir derdimi.

 

[Ömer]

Merhaba,

Bu şekilde deneyiniz..

Sub Kaydet()
 
Dim S1 As Worksheet, S2 As Worksheet, son As Long
 
Set S1 = Sheets("Sayfa1")
Set S2 = Sheets("Sayfa2")
 
son = S2.Cells(Rows.Count, "A").End(xlUp).Row + 1
 
S1.Range("B1:B4").Copy
S2.Range("A" & son).PasteSpecial Paste:=xlPasteAll, Transpose:=True
        
Application.CutCopyMode = False
S1.Range("B1").Select
 
End Sub

.

 

[putedan]

Ömer bey çok teşekkürler kardeş tam istediğim gibi olmuş ellerinize sağlık