Satır Ekleme Sırasında Sınırlama Getirmek

Metin Kutucuğu. Bir programcının olmazsa olmazlarındandır.

Satır Ekleme Sırasında Sınırlama Getirmek

İleti#1)  emreyigit » 07 Mar 2018 20:05

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
Kullanıcı avatarı
emreyigit
Yeni Başlamış
 
Kayıt: 12 Şub 2018 16:44
Meslek: Öğrenci
Yaş: 28
İleti: 17
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Avcılar

Cevap: Satır Ekleme Sırasında Sınırlama Getirmek

İleti#2)  feraz » 09 Mar 2018 02:57

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
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5069
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Satır Ekleme Sırasında Sınırlama Getirmek

İleti#3)  emreyigit » 10 Mar 2018 15:57

Efendim çok teşekkür ederim tam istediğim gibi oldu.
Kullanıcı avatarı
emreyigit
Yeni Başlamış
 
Kayıt: 12 Şub 2018 16:44
Meslek: Öğrenci
Yaş: 28
İleti: 17
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Avcılar

Cevap: Satır Ekleme Sırasında Sınırlama Getirmek

İleti#4)  feraz » 10 Mar 2018 16:27

Rica ederim üstad.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5069
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Forum TextBox

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 2 misafir

Bumerang - Yazarkafe