boş verilerin label ve textboxları userforma gelmesin

[limanC34]

Selam Arkadaşlar
comboboxtan çağıracağımız kişilerde ilk 3 yada daha fazla sütun sabit kalması ve boş geçilememesi koşulu ile diğer bilgilerinde eksik varsa ilgili label ve textboxları userforma gelmeyip boş olan hücreler için sütun başlığıyla uyarı çıkabilir mi?
Teşekkürler.

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz.

 

[limanC34]

Sayın Korhan Ayhan
İtiraf etmeliyimki cevabınız çözüm değil adeta bir PROGRAM.
Teşekkür ederim.
Saygılarımla.

 

[limanC34]

Sayın Korhan Ayhan
Şimdi bu çözümünüzü başka bir dosyaya başka bir niyetle uygulayabilir olmam için bu defada herşey aynı ama sadece verisi boş kalan başlıkları uyarı vermese olabilir mi?
Teşekkürler.

 

[Korhan Ayhan]

Selamlar,

Bu durumda dosyadaki kodları aşağıdaki ile değiştirip kullanabilirsiniz.

Private Sub ComboBox1_Change()
    If ComboBox1 <> "" Then
    SATIR = ComboBox1.ListIndex + 2
    NO = 3
    TextBox1 = Cells(SATIR, 2)
    TextBox2 = Format(Cells(SATIR, 3), "dd.mm.yyyy")
    For X = 4 To 13
    If Cells(SATIR, X) <> "" Then
    Me.Controls("Label" & NO + 1).Caption = Cells(1, X)
    Me.Controls("TextBox" & NO) = Cells(SATIR, X)
    NO = NO + 1
    End If
    Next
    For X = 4 To 13
    If Cells(SATIR, X) = "" Then
    Me.Controls("Label" & NO + 1).Caption = Cells(1, X)
    NO = NO + 1
    End If
    Next
    Else
    UserForm_Initialize
    End If
End Sub
Private Sub UserForm_Initialize()
    ComboBox1.RowSource = "VER&#304;!A2:A" & [VER&#304;!A65536].End(3).Row
    BA&#350;LIK = Array("ADI SOYADI", "S&#304;C&#304;L NO", "&#304;&#350;E G&#304;R&#304;&#350; TAR&#304;H&#304;", "VS 1", "VS 2", "VS 3", "VS 4", "VS 5", "VS 6", "VS 7", "VS 8", "VS 9", "VS 10")
    For X = 0 To 12
    Me.Controls("Label" & X + 1).Caption = BA&#350;LIK(X)
    Next
    TextBox1 = Empty
    TextBox2 = Empty
    For X = 4 To 13
    Me.Controls("TextBox" & X - 1) = Empty
    Next
End Sub