tufan18
Altın Üye
- Katılım
- 22 Ocak 2022
- Mesajlar
- 27
- Excel Vers. ve Dili
- türkçe
- Altın Üyelik Bitiş Tarihi
- 29-09-2025
Private Sub CommandButton1_Click()
Sheets("AnaSayfa").Range("A6").Value = txtTarih.Text
Sheets("AnaSayfa").Range("B6").Value = txtHisseAdı.Text
Sheets("AnaSayfa").Range("C6").Value = txtLotSayısı.Text
Sheets("AnaSayfa").Range("D6").Value = txtAlımFiyatı.Text
Form_KayıtBaşarılı.Show
Application.Visible = True
FormuTemizle
End Sub
Sub FormuTemizle()
txtTarih.Text = ""
txtHisseAdı.Text = ""
txtLotSayısı.Text = ""
txtAlımFiyatı.Text = ""
txtTarih.SetFocus
End Sub
arkadaşlar "A6" satırına kaydı yaptıktan sonra bir alt satıra "A7" satırına bir sonraki kaydı yazabilmek için kodlama için bana yardımcı olurmusunuz
Sheets("AnaSayfa").Range("A6").Value = txtTarih.Text
Sheets("AnaSayfa").Range("B6").Value = txtHisseAdı.Text
Sheets("AnaSayfa").Range("C6").Value = txtLotSayısı.Text
Sheets("AnaSayfa").Range("D6").Value = txtAlımFiyatı.Text
Form_KayıtBaşarılı.Show
Application.Visible = True
FormuTemizle
End Sub
Sub FormuTemizle()
txtTarih.Text = ""
txtHisseAdı.Text = ""
txtLotSayısı.Text = ""
txtAlımFiyatı.Text = ""
txtTarih.SetFocus
End Sub
arkadaşlar "A6" satırına kaydı yaptıktan sonra bir alt satıra "A7" satırına bir sonraki kaydı yazabilmek için kodlama için bana yardımcı olurmusunuz