Kodları Kısaltma

[Erdinç FIRTINA]

Değerli Forum Üyeleri,

Userform üzerinde bulunan ComboBox1 ile yılın ayını seçerek ilgili ay sayfasına gidiliyor ve yine ComboBox2 ile belirlenen isme göre belirlenen alandan textboxlara veri alınıyor. Dosyadaki kodlar aynı sistematik içinde devam edecek.

Ancak, prosedür çok uzun olduğu için kodlar çalışmıyor ve error veriyor. Kodları kısaltmak mümkün müdür?

Yardımlarınız için şimdiden teşekkürler!!!

 

[zafer]

Merhaba


Sayfa seçimini bu şekilde yapabilirsiniz.

Sheets(ComboBox1.Value).range("a1").Select
ActiveSheet.Unprotect "123"

450 tane Textbox biraz çok değilmi

 

[Erdinç FIRTINA]

Kod değişikliği error veriyor

Sayın Zafer vermiş olduğunuz değişikliği yaptım ama error verdi.

Diğer kodlarım ve açıklamaları da ilgili dosyadadır. Yardımcı olabilirseniz çok mutlu olurum.

Yardımlarınız için şimdiden çok teşekkürler!!!