koşullu satır gizleme

[sekand]

selamlar
aşağıdaki kod ile koşula göre satırgizlemek istiyorum ama olmuyor. benim yazacağım aralık (a16:a39) aralığında textbox1.in yazılacağı yerler şunlar a16,a19,a22,a25,a28,a31,a34,a37 yani 8 adet giriş yapılabilecek
a37 son değerim ben butona tıkladğımda ilk önce 16 ya değeri girecek text1 den. daha sonra a19:a39 aralığını gizleyecek.ben tekrar 2.veriyi girdiğimde bakacak a16 dolu napcak a22 ye veriyi aktaracak bu defa a25 ile a39 arasını gizleyecek bilmem anlatabildimmi

Private Sub CommandButton1_Click()
i = ActiveCell.Offset(3, 0)
Worksheets("sayfa1").Select
Range("a16:a39").EntireRow.Hidden = 0
Range("a16").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(3, 0).Select
Loop
If Range("A16").Value = "" Then
Range("a16").Value = TextBox1
Range("A16").Select
Cells("i:a39").EntireRow.Hidden = 1
Else
ActiveCell.Value = TextBox1
Cells("i:a39").EntireRow.Hidden = 1
End If
End Sub

 

[Levent Menteşoğlu]

Aşağıdaki kodu Commnadbuttona yazın ve A16 ve A37 arasındaki hücreleri gizleyin,textboxa girdiğiniz her değer sonrası sadece 3 satır görünür olacaktır.

[vb:1:b7f4bbc2b6]Private Sub CommandButton1_Click()
a = WorksheetFunction.CountA([a16:a37])
Cells(a * 3 + 16, 1) = TextBox1.Value
satir = a * 3 + 16 & ":" & a * 3 + 18
Rows(satir).EntireRow.Hidden = False
End Sub
[/vb:1:b7f4bbc2b6]