her zaman a sütununu baz alsın

[bitmez13]

örneğin 5 adet textboxun 1. cisi a sütununa ilk boş satıra kayıt yaparken 2. textbox ise a sütununu baz alarak a sütunundaki ilk boş satıra göre b sütununda karşılık gelen yere yazsın. örneğin a sütununda ilk boş satır a22 iken b de 15 olmasına rağmen kayıt yaparken b 15 ede değilde b 22 hücresine kayıt yapsın yine aynı şekilde 3.-4.-ve 5. textboxlardaki değerlerde doludan sonraki ilk boş hücreyi baz alarak kendi sütunlarına arada boşluk olsa dahi kayıt etsin
okul kooperatif kayıt defteri için kullanmak istiyorum teşekkürler

 

[fedeal]

ibs = Sheets("sayfaismi").Range("A65536").End(xlUp).Row + 1
Sheets("sayfaismi").Range("A" & ibs).Value = TextBox1.Text
Sheets("sayfaismi").Range("b" & ibs).Value = TextBox2.Text
Sheets("sayfaismi").Range("c" & ibs).Value = TextBox3.Text
.....
a sütununu baz alır. iyi çalışmalar.