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")
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")
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.
deneme-ATOZ.rar
(Dosya Boyutu: 28,21 KB | İndirme Sayısı: 10)