Soru MAKRO KODLAMA YARDIM ARKADAŞLAR

[tufan18]

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

 

[Mdemir63]

Selamlar

aşağıdaki kodları

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

Bu kodlarla değiştirip deneyiniz

sonsat = Worksheets("Anasayfa").Cells(Rows.Count, "A").End(xlUp).Row

Sheets("Anasayfa").Cells(sonsat, "A").Value = txtTarih.Text
Sheets("Anasayfa").Cells(sonsat, "B").Value = txtHisseAdı.Text
Sheets("Anasayfa").Cells(sonsat, "C").Value = txtLotSayısı.Text
Sheets("Anasayfa").Cells(sonsat, "D").Value = txtAlımFiyatı.Text

 

[tufan18]

Selamlar

aşağıdaki kodları

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

Bu kodlarla değiştirip deneyiniz

sonsat = Worksheets("Anasayfa").Cells(Rows.Count, "A").End(xlUp).Row

Sheets("Anasayfa").Cells(sonsat, "A").Value = txtTarih.Text
Sheets("Anasayfa").Cells(sonsat, "B").Value = txtHisseAdı.Text
Sheets("Anasayfa").Cells(sonsat, "C").Value = txtLotSayısı.Text
Sheets("Anasayfa").Cells(sonsat, "D").Value = txtAlımFiyatı.Text

malesef olmadı yine "A6" satırına yazıyor her yeni kayıt ta eğer uygun olursa mail adresi verirseniz size dosyayı atabilirim yeni başladım o yüzden bazı yerlerde takılabiliyorum

 

[Mdemir63]

Harici yükleme sitelerinden birine gerçek bilgilerinizi içermeyen örnek dosyanızı eklerseniz arkadaşlarımız değişik çözümler üretebilirler

 

[tufan18]

exel dosyası admin-1234 hocam dosya burda yardımlarınızı bekliyorum

 

[Mdemir63]

selamlar

İnceleyiniz

 

[tufan18]

selamlar hocam eline emeğine sağlık çok teşekkür ederim olmuş süper hayırlı geceler

 

[Mdemir63]

Rica ederim.
İyi çalışmalar

 

[Mdemir63]

Selamlar

Kaydet butonu kodlarını aşağıdaki kodlar ile değiştiriniz

If Form_VeriGirişi.txtTarih.Text = "" Or txtHisseAdı.Value = "" Or txtLotSayısı.Value = "" Or txtAlımFiyatı.Value = "" Then
MsgBox "İLGİLİ ALANLAR BOŞ OLAMAZ LÜTFEN KONTROL EDİNİZ", vbCritical, "KAYIT"
Exit Sub
txtTarih.SetFocus
End If
ss = Sheets("Anasayfa").Range("A65000").End(xlUp).Row + 1

Sheets("AnaSayfa").Range("A" & ss).Value = txtTarih.Text
Sheets("AnaSayfa").Range("B" & ss).Value = txtHisseAdı.Text
Sheets("AnaSayfa").Range("C" & ss).Value = txtLotSayısı.Text
Sheets("AnaSayfa").Range("D" & ss).Value = txtAlımFiyatı.Text
Form_KayıtBaşarılı.Show
Application.Visible = True
FormuTemizle

 

[tufan18]

Hocam çok teşekkür ederim emeğinize sağlık yanlışlık başlık altında konu açtığım af ola alışıcam gold üyelik aldım bu arada inşallah kemdimi geliştirecegim sizlerinde değerli yardımlarınızla.

 

[Mdemir63]

Rica ederim.
Af olacak bir durum yok. Sadece sizin için değil,
Aynı konu tekrar tekrar açıldığında bilgi kirliliği olduğu için uyarmak durumunda kaldım.
Sıkıntı yok. Bu arada Gold üyeliğiniz hayırlı olsun.
İyi çalışmalar

 

[tufan18]

teşekkür ederim s