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.