TEXTBOX Veri Çekme :(

[freecrax]

Arkadaşlar göndermiş olduğum http://s7.dosya.tc/server2/v3k6v9/Deneme.rar.html bu linkteki excel sayfası içeriğinde

İstediğim şey Userform üzerinde bulunan
1-textbox1 içine yazdığım firma adını
Sayfa 71 içerisinde A21 Hücresine
2-textbox2 içine yazdığım firma adresinide A22 Hücresine yazmasını
3- Son olarak Yazdır butonuna bastığımda 71. sayfayı yazmasını istiyorum
Çok kolay gördüm fakat nedense 2 ündür yapamıyorum, yardımcı olan arkadaşa şimdiden çok teşekkürler.

 

[muygun]

Merhaba;
Userformun kod kısmına;

Private Sub CommandButton1_Click()
ActiveSheet.PrintOut Copies:=1
End Sub

Private Sub TextBox1_Change()
Sheets("Sayfa71").Range("a21") = TextBox1
End Sub

Private Sub TextBox2_Change()
Sheets("Sayfa71").Range("a22") = TextBox2
End Sub

Kodlarını yerleştirip deneyin.

İyi çalışmalar.

 

[freecrax]

Cevabınız için teşekkür ederim ama işe yaramadı hocam ya

 

[muygun]

Merhaba;
Uygulamadaki denemelerimde bir sorun göremedim.
Birde siz deneyin.
İyi çalışmalar.

Link:
http://s7.dosya.tc/server2/dlbnce/freecrax-_TEXTBOX_Veri_Cekme.zip.html

 

[freecrax]

Merhaba;
Uygulamadaki denemelerimde bir sorun göremedim.
Birde siz deneyin.
İyi çalışmalar.

Link:
http://s7.dosya.tc/server2/dlbnce/freecrax-_TEXTBOX_Veri_Cekme.zip.html

Hocam çok teşekkür ederim emeğiniz için benim hatam.