user form hakkında

[bravo64]

İyi bir hafta dileklerimle sorunumu aktarıyorum,
Bir adet userformum var ve formdaki texboxdaki bilgiler commandbutton ile sayfa1 deki hücrelere aktarılıyor..şimdi ben bu aktarmanın sayfa2deki aynı hücrelerede aktarmak istiyorum.userforma ekleyeceğim yeni commandbutton iuçin nasıl bir kod yazmalıyım..
şimdiki kod şöyle:
Private Sub CommandButton1_Click()
t = WorksheetFunction.CountA(Worksheets("sayfa1").[b3:b65536]) + 3
Cells(t, 2) = TextBox1.Value
Cells(t, 3) = TextBox2.Value
Cells(t, 4) = TextBox3.Value
Cells(t, 5) = TextBox4.Value
Cells(t, 6) = TextBox5.Value
iyilik ve sevgiyle

 

[danersin]

Private Sub CommandButton2_Click()
t = WorksheetFunction.CountA(Worksheets("sayfa2").[b3:b65536]) + 3
Worksheets("sayfa2").Cells(t, 2) = TextBox1.Value
Worksheets("sayfa2").Cells(t, 3) = TextBox2.Value
Worksheets("sayfa2").Cells(t, 4) = TextBox3.Value
Worksheets("sayfa2").Cells(t, 5) = TextBox4.Value
Worksheets("sayfa2").Cells(t, 6) = TextBox5.Value

aynı kodla aktarabilirsiniz, tek fark siz bu kodu kullanırken sayfa1 aktif olduğundan sayfa belirtmeye gerek duymuyordunuz, şimdi worksheets("sayfa2") şeklinde sayfayıda belirterek kullanmalısınız.

 

[bravo64]

anlattığınız gibi denedim zaten ama yine aynı sayfaya yazıyor..

 

[bravo64]

p/s unutmadan belirteyim,ilk koddada sayfa ismi belirtiyorum..yani commandbutton1 de (sayfa1) olarak belirtiyorum..

 

[Levent Menteşoğlu]

Cells(t, 2) = TextBox1.Value

İlk verdiğiniz kodda sayfa ismi belirtilmemiş, Sn Danersin'in verdiği kod doğrudur. Sizin ilk kodunuzda tek eksik sayfa adını vermemiş olmanız, yukarıdaki yazım şeklinin yerine aşağıdakini deneyin.

[vb:1:e3d8068fb5]sheets("sayfa1").Cells(t, 2) = TextBox1.Value
[/vb:1:e3d8068fb5]

 

[bravo64]

Kesinlikle haklısınız..Sayın denersin çok teşekkür ederim...
Leventm sizede çok şey borçluyum.Bu site sayesinde 15 günde exceli çok az bilmeme rağmen artık userform bile yapabiliyorum..Hepinize ayrı ayrı teşekkürler..
Erdem ve ilkeliğiniz için..