Boş textboxlar ve labeller userforma gelmesin

[limanC34]

Selam Arkadaşlar
Ekteki userforma kişiye göre veri çağrıldığında içi boş textboxlar ve ilgili labelleri gelmeyip sadece dolu textbox ve ilgili labeller userforma sıralanması olabilirmi?
Teşekkürler.

 

[mesuttasar]

Sanırım Class Module Uygulaması olmalı.Bunun uzmanı da Sayın Leventm Bey ve diğer Uzmanlardir.Daha önce Levent Bey buna benzer bir soruyu cevaplamıştı.Ben birşeyler yapmaya çalıştım ama olmadı.

Uzmanlarımız el atabilirse faydalanmış olacağız gerçekten.

 

[Levent Menteşoğlu]

Comboboxa aşağıdaki kodu yazın.

Private Sub ComboBox3_Change()
Set s1 = Sheets("Sayfa1")
sat = s1.Columns(1).Find(ComboBox3.Value).Row
For a = 2 To 13
If s1.Cells(sat, a) <> "" Then
c = c + 1
Controls("label" & c + 1) = s1.Cells(2, a)
Controls("textbox" & c) = s1.Cells(sat, a)
End If
Next
s1.Cells(sat, 2).Select
End Sub

Not: Sn mesuttasar nezaketiniz için teşekkür ederim.

 

[mesuttasar]

Ellerinize sağlık gerçekten çok güzel çözüm.Sanırım VBA da düşünme şekline göre farklı kodlar yazılabiliyor. Ben örneğin her textbox için şöyle düşünmüştüm.

Private Sub ComboBox3_Change()
..............
.......
if textbox1.Value=Empty Then
Textbox1.Visible=False
Label2.Visible=False
end if
.....
....
...
End Sub

Diğer textbox ve label kontrolleri içinde ,If ve End If bloğu için de For-Next döngüsü kurmayı düşünmüştüm ama yapamamıştım.

Ama sizin çözümünüz tamamen farklı ve userform üzerinde boşluk kalmadan gayet güzel bir şekilde ihtiyaca cevap veriyor.

Tekrar teşekkürler.Sagılarımla,

 

[limanC34]

Sayın mesuttasar
Çözümden daha çok niyet önemli bana göre.Enazından çözümü bulamasanız bile çözecek kişiyi söylemeniz bile karşınızdakine saygılı ve ilgili olmanızdan kaynaklanıyor.Teşekkür ederim.

Sayın leventm
Çözümünüz güzel ancak son 3 ayın adı dolu yada boş farketmeden yine görülüyor.Birde yanlış anlatmış olabilirim istediğim textbox boş ise ilgili labeli ile birlikte userformda yer almasın.Tabi böyle birşey mümkünse.
Saygılarımla.