[emreyigit]

Herkese Merhaba,
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


[feraz]

Alttaki kodu uyarlayabilirsiniz.
Son satır numarası ve boş olmayan textbox sayısı 20 den büyükse işlem yapmaz değilse kodlarınızı ilgili yere yazarsınız.

Kod: Tümünü seç

Dim son, i, say As Integer
Dim arrayy()

son = Worksheets("UrunSheet").Range("A" & Rows.Count).End(3).Row
arrayy = Array("Textbox1", "Textbox2", "Textbox3", "Textbox4", "Textbox5")


For i = LBound(arrayy) To UBound(arrayy)
    If Controls(arrayy(i)).Value <> "" Then
        say = say + 1
    End If
Next

If son + say > 20 Then
    Exit Sub
Else
    'Kodlarrrrrr
End If
Erase arrayy: i = Empty: say = Empty: son = Empty

[emreyigit]

Efendim çok teşekkür ederim tam istediğim gibi oldu.

[feraz]

Rica ederim üstad.