Son dolu hücreye kayıt

[okyclk]

Merhaba ,

Benim 2 sorum olacak ilk sorum form 1e girilen verileri aktif sayfadaki hücrelere alt alta kaydetmek istiyorum ve a hücresindeki sıra no otomatik atsın .. Yardımcı olabilirseniz sevinirim.

 

[Huseyinkis]

dosyanızdaki kodları aşağıdaki ile değiştirin.

Sonsat = Range("a65536").End(3).Row + 1
Range("A" & Sonsat) = Sonsat
Range("B" & Sonsat) = ComboBox1.Text
Range("C" & Sonsat) = TextBox19.Text
Range("D" & Sonsat) = TextBox20.Text
Range("E" & Sonsat) = TextBox1.Text
Range("F" & Sonsat) = TextBox2.Text
Range("G" & Sonsat) = TextBox11.Text
Range("H" & Sonsat) = TextBox13.Text
Range("I" & Sonsat) = TextBox9.Text
Range("J" & Sonsat) = TextBox15.Text
Range("K" & Sonsat) = TextBox6.Text
Range("L" & Sonsat) = TextBox17.Text
Range("M" & Sonsat) = TextBox16.Text
Range("N" & Sonsat) = ComboBox4.Text
Range("O" & Sonsat) = ComboBox5.Text
Range("P" & Sonsat) = TxtTarih.Text
Range("Q" & Sonsat) = ComboBox2.Text
Range("O" & Sonsat) = ComboBox5.Text
'Range("R2") = Frame2.select
Range("S" & Sonsat) = ComboBox3.Text
Range("T" & Sonsat) = TxtTarih1.Text