Ekte göndermiş olduğum Excel dosyamda 2 adet userform bulunmaktadır. Userform1 de seçtiğim ayları göstersin istiyorum, normalde gösteriyor fakat ayların önüne 3 adet çalışma sayfası eklediğimde göstermiyor, formulu bu şekilde uyarlayamadım , yardımlarınız için şimdiden teşekkürler.
optionbutton sorunu
Ekte göndermiş olduğum Excel dosyamda 2 adet userform bulunmaktadır. Userform1 de seçtiğim ayları göstersin istiyorum, normalde gösteriyor fakat ayların önüne 3 adet çalışma sayfası eklediğimde göstermiyor, formulu bu şekilde uyarlayamadım , yardımlarınız için şimdiden teşekkürler.
Sayın devely,
Bahsettiğiniz soruna yönelik çözüm talebiniz için aşağıdaki açıklama yeterli olacaktır.UserForm1 adlı formunuzdaki göster adlı butonun içeriğinde yer alan
.TextBox1 = Sheets(i).Range("B4")
.TextBox2 = Sheets(i).Range("D4")
.TextBox3 = Sheets(i).Range("B7")
.TextBox4 = Sheets(i).Range("D7")
Satırlarında kaç adet yeni sayfa ekleyecekseniz o kadarlık sayıyı + değerinden sonraki sayısal değerde belirtmelisiniz.böylece,UserForm1 formunuzda hangi ay ile ilgili OptionButton seçeneğini seçerseniz o ay ile ilgili doğru bilgiler ikinci formunuzda belirecektir.Örneğin;2 adet yeni sayfa açıldıysa,bu kodlamada + 2 yazmalısınız.
EK’te,talebinize yönelik olarak hazırlanmış örnek uygulama mevcuttur.inceleyebilirsiniz.örnekte,2 adet yeni sayfa açılmıştır.bilgilerinize.iyi çalışmalar,saygılar.
Bahsettiğiniz soruna yönelik çözüm talebiniz için aşağıdaki açıklama yeterli olacaktır.UserForm1 adlı formunuzdaki göster adlı butonun içeriğinde yer alan
.TextBox1 = Sheets(i).Range("B4")
.TextBox2 = Sheets(i).Range("D4")
.TextBox3 = Sheets(i).Range("B7")
.TextBox4 = Sheets(i).Range("D7")
Kod:
.TextBox1 = Sheets(i + 2).Range("B4")
.TextBox2 = Sheets(i + 2).Range("D4")
.TextBox3 = Sheets(i + 2).Range("B7")
.TextBox4 = Sheets(i + 2).Range("D7")
EK’te,talebinize yönelik olarak hazırlanmış örnek uygulama mevcuttur.inceleyebilirsiniz.örnekte,2 adet yeni sayfa açılmıştır.bilgilerinize.iyi çalışmalar,saygılar.
Emeğine sağlık üstad , Allah razı olsun
Konuyu Okuyanlar: 2 Ziyaretçi