Başka sayfaya bilgi girişi yardım

[mustafa7456]

5 sayfalık bir listem var. 6.sayfada ise gelir vergisini hesapladığım bir tablo var. bir tane userform yaptım, gelir vergisini hesaplamak için... sorunum şu.: Sayfa1 i hiç açmadan Sayfa1 e bilgi girişi yapmak ve ordaki bilgiyi userform da görmek istiyorum. YANİ SAYFA1 HİÇ AÇILMAYACAK VE USERFORM DA SAYFA1 E MÜDAHELE EDEBİLECEĞİM. Yardımlarınızı bekliyorum. teşekkür ederim

 

[Orion1]

command1 butonundaki kodu allttaki ile değiştiriniz.
diğer butonlarda varsa onları size bırakıyorum

Private Sub CommandButton1_Click()
With Sheets("Sayfa1")
    .Range("b1").Value = TextBox1.Value
    TextBox6 = .Range("B2").Value
End With
End Sub

 

[asi_kral]

5 sayfalık bir listem var. 6.sayfada ise gelir vergisini hesapladığım bir tablo var. bir tane userform yaptım, gelir vergisini hesaplamak için... sorunum şu.: Sayfa1 i hiç açmadan Sayfa1 e bilgi girişi yapmak ve ordaki bilgiyi userform da görmek istiyorum. YANİ SAYFA1 HİÇ AÇILMAYACAK VE USERFORM DA SAYFA1 E MÜDAHELE EDEBİLECEĞİM. Yardımlarınızı bekliyorum. teşekkür ederim

Merhaba
Userform'daki commandbutton kodunu bununla değiştirip dener misiniz_?

Private Sub CommandButton1_Click()
'Konu       :   Sayfa Değiştirmeden İşlem Yapsın
'Mail       :   m.batu.1967@gmail.com
'Msn        :   m.batu.1967@hotmail.com.tr
'Coder By   :   asi_kral_1967
'Not        :   Kodda Düzenleme Yapılmıştır.
Sheets("Sayfa1").Range("B1").Value = TextBox1.Value
TextBox6 = Sheets("Sayfa1").Range("B2").Value
End Sub

Dosyanız Ekte.

 

[mustafa7456]

Bu siteye bayılıyorum. Yardımlarınız için çok teşekkür ederim