comboboxla label ve textboxa veri almak

[limanC34]

Selam Arkadaşlar
Siteden aldığım dosyada userform üzerine comboboxla kişi seçilip label ve textboxlara veri alınıyor eğer kişiye ait boş bilgi hücre / leri varsa enalta sarı renkli labellerde ikaz veriyor.Ancak 8.label ve 8.textboxtan sonra sıralama karıştığı gibi ikaz labelleride üst üste diğer nesnelerle karışıyor.
Yardım ederseniz sevinirim.
Teşekkürler.

 

[limanC34]

Selam Arkadaşlar
Birşekilde halettim ama boş hücreleri D sütunundan sayıyor.Acaba B sütunundan itibaren boş hücreleri saydırabilirmiyiz?
Teşekkürler.

 

[Korhan Ayhan]

Selamlar,

ComboBox1_Change olayındaki 3. X döngüsünün başlangıç değerini 2 olarak değiştirip denermisiniz.

4 değerini 2 olarak değiştirip deneyin.

For X = [COLOR=red][B]4[/B][/COLOR] To 79

 

[limanC34]

Sayın Korhan Ayhan
Denedim ama olmadı hata verdi.
Me.Controls("TextBox" & NO) = Cells(SATIR, X) yazan satır sarı oldu.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki şekilde deneyin.

Private Sub ComboBox1_Change()
    If ComboBox1 <> "" Then
    SATIR = ComboBox1.ListIndex + 2
    NO = 3
    For X = 4 To 79
    Me.Controls("TextBox" & X - 1).Visible = True
    Me.Controls("Label" & X).Width = 72
    Me.Controls("Label" & X).BackColor = vbButtonFace
    Next
    TextBox1 = Cells(SATIR, 2)
    TextBox2 = Format(Cells(SATIR, 3), "dd.mm.yyyy")
    For X = 4 To 79
    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 = [B][COLOR=red]2[/COLOR][/B] To 79
    If Cells(SATIR, X) = "" Then
    Me.Controls("TextBox" & NO).Visible = False
    Me.Controls("Label" & NO + 1).Width = 144
    Me.Controls("Label" & NO + 1).BackColor = vbYellow
    Me.Controls("Label" & NO + 1).Caption = Cells(1, X) & " &#304;LE &#304;LG&#304;L&#304; KAYIT YOKTUR !"
    NO = NO + 1
    End If
    Next
    Else
    UserForm_Initialize
    End If
End Sub

 

[limanC34]

Sayın Hocam
Hata mesajı verdi yine.


Me.Controls("TextBox" & NO).Visible = False