textbox1 lara girilen veriyi sayfa 2 ye yazdır sonra sayfa1 aktif olsun

[mustim1547]

arkadaşlar yaptığım program da satış yap butonuna tıkladığımda textbox1 textbox2 ve tetxtbox 3 girilen veriler sayfa2 ye yazdırılacak ve sayfa1 aktif olacak... sonra tekrardan textbox 1 2 3 e veri girildiğinde bi önceki verilerler değişmeyecek yani
TARİH ÜRÜN ADI ÜRÜN KARI
14 MART MALBORA 0,20
14 MART MALTEPE 0,15


gibi ..yani textboxtan girilenler sayfa 2 de bu şekilde alt alta yazılacak,sonra da sayfa1 actif konuma geçecek....

 

[Necdet]

Sorunuzu örnek dosya ile destekleyiniz.

 

[Orion1]

Dim sat As Long
With Sheets("Sayfa2")
    sat = .Cells(65536, "A").End(xlUp).Row + 1
    .Cells(sat, "A").Value = CDate(TextBox1.Text)
    .Cells(sat, "B").Value = TextBox2.Text
    .Cells(sat, "C").Value = CDbl(TextBox3.Text)
End With

 

[mustim1547]

Dim sat As Long
With Sheets("Sayfa2")
    sat = .Cells(65536, "A").End(xlUp).Row + 1
    .Cells(sat, "A").Value = CDate(TextBox1.Text)
    .Cells(sat, "B").Value = TextBox2.Text
    .Cells(sat, "C").Value = CDbl(TextBox3.Text)
End With

verdiğiniz bilgi için çok teşekkür ederim .. çalıştı.. :9.. allah razı olsun

 

[Orion1]

verdiğiniz bilgi için çok teşekkür ederim .. çalıştı.. :9.. allah razı olsun

Rica ederim.
İyi çalışmalar.