kitaba veri aktarma

[ugur111]

Merhaba ;
Userformda kaydet butonuna bastığım zaman veriler C,D ve F sütununa kaydediliyor , ancak bu kaydedilen satırın A ve B sütununu manual doldurmazsam ikinci bir veri kaydını yine aynı satıra yapıyor ve önceki veriler kaydediliyor . Benim yapmak istediğim C sütununda bilgi olduğunda C sutununda bir alttaki boş satıra bilgiyi kaydetmek , kodları aşağıda ,şimdiden teşekkürler .

Private Sub KayıtOda5_Click()
Set sh2 = Sheets("TALEP")

Son = sh2.Cells(65536, 1).End(xlUp).Row
sh2.Cells(Son + 1, 3) = TextBox1.Text
sh2.Cells(Son + 1, 4) = TextBox2.Text
sh2.Cells(Son + 1, 6) = TextBox4.Text
ListeGuncelle5
Set sh2 = Nothing


End Sub

 

[Orion1]

İLgili satır aşağıdaki ile değiştiriniz.

Son = sh2.Cells(65536, "C").End(xlUp).Row

 

[ozgretmen]

Aşağıdaki şekilde dener misin ?

Private Sub KayıtOda5_Click()
Set sh2 = Sheets("TALEP")
Son = sh2.Cells(65536, 3).End(xlUp).Row+1
sh2.Cells(Son , 3) = TextBox1.Text
sh2.Cells(Son , 4) = TextBox2.Text
sh2.Cells(Son , 6) = TextBox4.Text
ListeGuncelle5
Set sh2 = Nothing
End Sub

 

[ugur111]

Teşekkürler Evren Bey ,

Diğer çözümü denemeye gerek kalmadı ,size de teşekkürler .