Tek Userformu ayrı sayfalarda kullanarak ilgili sayfaya değer atamak mümkün mü?

[smaeler]

Merhaba Arkadaşlar. Bir adet A1 Hücre değerine göre açılan ve veri girişi yapılan USERFORM kullanıyorum. Bu Userformu aynı kopyalanmış ikinci bir sayfada da (AVANS isimli) kullanmak istiyorum. Sayfaları kopyalayıp Avans isimli sayfada A1 hücresi ile Userform açılıyor ancak kod da ilk sayfa yazdığı için veri girişini sadece ilk sayfaya yapıyor doğal olarak. Benim istediğim ise Userformu çoğaltmadan hangi sayfada açtıysam o sayfaya veri girişinin aynı kod içinde yapılması mümkün mü?
Kod:
Private Sub CommandButtonTamam_Click()
Worksheets("MAAŞ").Cells(19, 3) = TextBoxVergiDilim
MsgBox "" & [B3].Value & " Maaşı Hesaplanmıştır." ......
End Sub

Aynı USERFORMU "Avans" isimli sayfada çalıştırıp bu sayfanın cell(19,3) hücresine veri atamasını nasıl sağlarız??

 

[kulomer46]

Merhaba

Yukardaki kodu aşağıdaki şekilde kullanırsanız Userform hangi sayfada açıldı ise aktif olan o sayfada veri girişi yapılır.

Private Sub CommandButtonTamam_Click()
Cells(19, 3) = TextBoxVergiDilim
MsgBox "" & [B3].Value & " Maaşı Hesaplanmıştır." ......
End Sub

 

[cems]

Bir userform ustunde multiform acıp her multiformu ayrı sayfaya calısacak sekile hazırlarsanız surekli acılan kapanan formlar olmaz aynı temel userform ustunde gerekene geçerseniz iş daha kolaylaşır

 

[smaeler]

Merhaba
Yukardaki kodu aşağıdaki şekilde kullanırsanız Userform hangi sayfada açıldı ise aktif olan o sayfada veri girişi yapılır.

Private Sub CommandButtonTamam_Click()
Cells(19, 3) = TextBoxVergiDilim
MsgBox "" & [B3].Value & " Maaşı Hesaplanmıştır." ......
End Sub


Teşekkürler Çalıştı. Bu kadar basit olacağını düşünmemiştim.

 

[kulomer46]

Merhaba
Yukardaki kodu aşağıdaki şekilde kullanırsanız Userform hangi sayfada açıldı ise aktif olan o sayfada veri girişi yapılır.

Private Sub CommandButtonTamam_Click()
Cells(19, 3) = TextBoxVergiDilim
MsgBox "" & [B3].Value & " Maaşı Hesaplanmıştır." ......
End Sub


Teşekkürler Çalıştı. Bu kadar basit olacağını düşünmemiştim.

Selamlar...