Textboxlarla bir çalışma sayfasına veri girişi yapıyorum. Ancak bazen iki textboxla iki satırlık giriş yaparken, bazen 4 textbox ile 4 satırlık veri girişi yapabiliyorum. Yapmak istediğim şey 20. satırı geçmeyecek şekilde giriş yapmak istiyorum. Örneğin 18. satıra ulaştığımda, eğer 4 satırlık veri girişi yapmam durumunda 20. satırın ötesine geçeceği için işleme izin vermesin. Yani 4 satırın 4'ünü de eklemesin ve 18. satırda kalsın. Yardımlarınızı rica ediyorum.
- Kod: Tümünü seç
Private Sub urunekle_click()
Dim e, f, g As String, h, i As String
KAT = Worksheets("UrunSheet").Cells(1, "A").End(xlDown).Row + 1
e = textbox1.Value
f = TextBox2.Value
g = textbox3.Value
h = textbox4.Value
i = textbox5.Value
If e <> "" Then
Worksheets("UrunSheet").Cells(KAT + 1, "A") = e
End If
If f <> "" Then
Worksheets("UrunSheet").Cells(KAT + 2, "A") = f
End If
If g <> "" Then
Worksheets("UrunSheet").Cells(KAT + 3, "A") = g
End If
If h <> "" Then
Worksheets("UrunSheet").Cells(KAT + 4, "A") = h
End If
If i <> "" Then
Worksheets("UrunSheet").Cells(KAT + 5, "A") = i
End If
End Sub