Buton'a basıldığında veri kaydeden program

[DJSahmet]

Arkadaşlar herkese merhaba,

Aslında bazıları için kolay olan bir vba yazma çabası içindeyim ama yapamadım

Konuya gelince;
"Kaydet" butonuna basıldığında,

F1, F2 VE F3 satırlarına girdiğim verilerin yine sırasıyla A2, B2 ve C2 sütunlarına sırasıyla denk gelmesi ve seçimin tekrar bir alt satıra yani A3'e geçmesi gerekmektedir.(Buraya kadar olan süreci gerçekleştirdiğimi zannediyorum)

Önemli olan F1, F2 VE F3 verileri değiştirilip "Kaydet"e basıldığımda bu sefer A3,B3,C3'e verilerin yazılması ve bu işlemin A2, B2 ve C2'de kayıtlı olan verilerin silinmeden yada değişmeden yapılması ve yine seçimin bir alt satıra geçmesi gerekmektedir.Program aynı şekilde aşağıya doğru devam edecek şekilde "Kaydet"e basıldıkça yani kayıtlar değiştikçe yapılması gerekmektedir.

Yine hatırlatayım alt satırlara kayıtlar eklendikçe üstte eklediğimiz satırlar değişmemesi gerekiyor.Aslında "Kaydet" butonuna bastıkça F satırlarına girdiğimiz kayıtlar A,B,C sütunlarına kayıt oluyor ve bir A,B,C'nin bir alt satırına kayıt iiçin hazır hale geliyor.

Eğer konu daha net olsun diyorsanız ekteki excel'i indirirseniz sevinirim,

Yardımlarınızı bekliyorum,

Şimdiden çok teşekkürler..

 

[dEdE]

Merhaba,
Aşağıdaki kodu dener misiniz?

Sub Aktar()
    ss = Range("A" & Rows.Count).End(3).Row + 1
    Range("F1:F3").Copy
    Range("A" & ss).PasteSpecial xlPasteAll, , , True
End Sub

 

[DJSahmet]

Merhaba,
Aşağıdaki kodu dener misiniz?

Sub Aktar()
    ss = Range("A" & Rows.Count).End(3).Row + 1
    Range("F1:F3").Copy
    Range("A" & ss).PasteSpecial xlPasteAll, , , True
End Sub

Merhabalar dEdE ;

Yardımın için teşekkür ederim,

formülü uyguladım..Sadece butona atama işlemi ve seçimin bir alt satırda olması gerekiyordu. Onu da yaptım ve formül aşağıdaki gibi oldu.

Private Sub CommandButton1_Click()

ss = Range("A" & Rows.Count).End(3).Row + 1
Range("F1:F3").Copy
ActiveCell.Offset(1, 0).Select
Range("A" & ss).PasteSpecial xlPasteAll, , , True

ActiveCell.Offset(1, 0).Select

End Sub


Yine çok teşekkür ederim..

 

[dEdE]

Merhaba,
Güle güle kullanın.
Koddaki kırmızı satır gereksiz gibi duruyor.

Range("F1:F3").Copy
[COLOR="Red"]ActiveCell.Offset(1, 0).Select[/COLOR]

 

[DJSahmet]

Merhaba,
Güle güle kullanın.
Koddaki kırmızı satır gereksiz gibi duruyor.

Range("F1:F3").Copy
[COLOR="Red"]ActiveCell.Offset(1, 0).Select[/COLOR]

ActiveCell.Offset(1, 0).Select kod'unu seçili satırın bir alttaki satır olması için kullandım.Evet çok gerekli bir durum değil, maksat görüntü olsun

Uyarın içinde teşekkür ederim