Satır ve sütuna otomatik kayıt nasıl yapılır?

[DeliBalta58]

Textbox1'e girilen veri butona tıklayınca hem A2 den başlayarak aşağı doğru hemde H1 'den başlayarak sağa doğru kayıt yapacak.
Yeni veri girişinde A sütunundaki bir alta (A3) 1.satırda ise I1'e
Butona;
1.tık A2 H1
2.tık A3 I1
3.tık A4 J1
4.tık A5 K1
... ... ... devam edecek...

 

[veyselemre]

Private Sub CommandButton1_Click()
sira = Cells(1, 256).End(xlToLeft).Column

If sira < 7 Then sira = 7

Cells(sira - 5, 1) = TextBox1.Value
Cells(1, sira + 1) = TextBox1.Value
End Sub

 

[DeliBalta58]

elinize sağlık çok güzel .

 

[DeliBalta58]

aşağıdaki linktede bu konunun devamı var. Daha doğrusu açtığım ilk başlık.
http://www.excel.web.tr/showthread.php?t=32972

kısaca
Combobox1'den seçilen değere göre;
Eğer seçilen değen B sütununda 2. sırada ise ( B2 de yazılı veri ile eşitse )
H2ye 1 yazacak eğilse 0 yazacak
H2 den başlayarak ( 2 Satır sabit kalacak )

Seçim B3 değerine eşikse I2 ye 1 değilse 0
diye devam edecek