Textbox ve combobax larda bul değiştir ve sil işlemi

[stoylovvv]

Arkadaşlar merhaba
Excel VBA ile müşterilerimi kayıt altına alabileceğim bir userform, oluşturdum. bir kaç örneği inceleyerek, ekli olan dosyadaki gibi prosedürleri yazdım. Ancak '' VERİ'' sayfasındaki verilerin güvenliği için sayfayı gizlemem gerekiyor. Sayfayı gizlediğimde ise program hata vermekte. Nasıl bir prosedür yazmalıyım ki gizlenmiş olan '' VERİ'' sayfasında bul değiştir ve sil işlemlerini sorunsuz yapabileyim. Bir ikincisi ise silme prosedürü ile ilgili de uygun örneklere rastlayamadım. Silme prosedürü içinde bir prosedür oluşturabilirseniz çok müteşekkür kalacağım. Şimdi fark ettiğim bir sorunum daha var. ANA SAYFA sayfasında bulunan Commandbutton1 çalıştığında hazırladığım usurformdaki comboBaxlar işlevini yitirmekte veriler ComboBox lara gelmemekte. Yardımlarınız için şimdiden teşekkürler.

 

[systran]

GİZLİ SAYFA ÜZERİNDE İŞLEM YAPABİLMEK İÇİN:
gizli sayfayı görünür yapmadan önce application.screenupdating=false yapın, daha sonra sayfayı görünür yapıp, gerekli işlemleri bitirin. işiniz bittikten sonra sayfayı tekrar gizleyip, application.screenupdating=true yapın.

 

[stoylovvv]

Merhaba systran
Bu anlatmak istediğinizi tam olarak anlayamadım. Biraz açarsanız sevinirim.

 

[systran]

GİZLİ SAYFA ÜZERİNDE İŞLEM YAPABİLMEK İÇİN:
gizli sayfayı görünür yapmadan önce application.screenupdating=false yapın, daha sonra sayfayı görünür yapıp, gerekli işlemleri bitirin. işiniz bittikten sonra sayfayı tekrar gizleyip, application.screenupdating=true yapın.

gizli sayfa üzerinde işlem yapabilmeniz için uygulamanız gereekn yöntemi yazmıştım. sayfa gizli olunca program hata veriyor demişsiniz. bunu önlemek için önce ekran tazelemyi kapatıyorsunuz, sonra gizli sayfayı görünür yapıyorsunuz (ekran tazeleme kapalı olduğu için ekranda görünmeyecek) silme,ekleme işlemlerini yapıyorsunuz, işiniz bitince sayfayı gizleyip, tazelemeyi açıyorsunuz.

Sub deneme()
    Application.ScreenUpdating = False
    Sheets("Sayfa3").Visible = xlVisible
    
    'bu araya ekleme,silme işlemelri için gerekli kodları yazın
    '##################################
    '##################################
    '##################################
    
    Sheets("Sayfa3").Visible = xlVeryHidden
    Application.ScreenUpdating = True
End Sub