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
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