TextBoxdaki Verinin Bulunduğu Sütunu Kapatmak

[class37]

Merhabalar
UserForm üzerinde 42 adet TextBox var bu TextBoxların dolu olanlarının içersindeki verileri D5,AS5 hücre aralığında arayıp bulunduğu sütunu gizlemek için nasıl bir kod yazılabilir.İyiçalışmalar.

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin. Kodu bir commandbuttona yazabilirsiniz.

[vb:1:0d7b95ecd1]for a=1 to 42
deg=controls("textbox" & a)
if deg<>"" then
sut=[c5:at5].find(deg).column
columns(sut).EntireColumn.Hidden = True
end if
next[/vb:1:0d7b95ecd1]

 

[class37]

Sayın Leventm çok teşekkürler.