For Each ctrl In uf_isl.Controls döngüsünden sadece page2 etkilensin diğerleri etkile

Katılım
2 Mart 2005
Mesajlar
2,960
Excel Vers. ve Dili
ev: Ofis 2007- Win Xp
iş: Ofis 2010- Win Vista
Kod:
For Each ctrl In uf_isl.Controls
    If TypeName(ctrl) = "TextBox" Or TypeName(ctrl) = "ComboBox" Then
       ctrl.BackColor = &H80000005
       ctrl = Empty
    End If
Next
döngüsünden form üzerindeki MultiPage1 nesnesinin page2 si kontrol edilsin değerleri boşaltılsın ve rengi beyaz olsun, page1, 3 vs etkilenmesin.
mümkünmüüdr.
saygılarımla
 
Katılım
15 Haziran 2006
Mesajlar
3,704
Excel Vers. ve Dili
Excel 2003, 2007, 2010 (TR)
Merhabalar

Şöyle deneyin.

Kod:
Dim ctrl As Control
For Each ctrl In MultiPage1.Pages(1).Controls
    If TypeName(ctrl) = "TextBox" Or TypeName(ctrl) = "ComboBox" Then
       ctrl.BackColor = &H80000005
       ctrl = Empty
    End If
Next
 
Katılım
2 Mart 2005
Mesajlar
2,960
Excel Vers. ve Dili
ev: Ofis 2007- Win Xp
iş: Ofis 2010- Win Vista
Kod:
Dim ctrl As Control
YeniSatis = True
For Each ctrl In [color="green"]uf_isl.[/color]MultiPage1.Pages([color="red"]0[/color]).Controls
    If TypeName(ctrl) = "TextBox" Or TypeName(ctrl) = "ComboBox" Then
       ctrl.BackColor = &H80000005
       ctrl = Empty
    End If
Next
Teşekkür ederim yeşilde görüldüğü gibi userform adını ilavesiz olunca hata verdi, userform adınıda ekledim.
kırmızıda görüldüğü gibi benim index numaram yanlışmış bir kaç kez sayfa ekleyince indeks noları karışmış.
Saygılarımla
 
Son düzenleme:
Üst