form veri kaydetme

[bydogannn67]

arkadaşlar combobox la seçmiş olduğumuz sayfaya veri eklemek için aşağıdaki koda nasıl bişi eklemeliyim

Sheets(ComboBox1.Text).Cells(a, "A") = TextBox1.Value
Sheets(ComboBox1.Text).Cells(a, "B") = TextBox2.Value
Sheets(ComboBox1.Text).Cells(a, "C") = TextBox3.Value
Sheets(ComboBox1.Text).Cells(a, "D") = TextBox4.Value

 

[Orion1]

Eklemişsiniz zaten.
Combobox1 de sayfa adı yazıyorsa problem yok.

 

[bydogannn67]

Evren bey sadece bu kodla tek başına bi ise yaramiyo ya :/

a değerine öyle bi eşitleme vermem lazimki dolu olan satırın altına ekleme yapsin

 

[PLİNT]

Evren bey sadece bu kodla tek başına bi ise yaramiyo ya :/

a değerine öyle bi eşitleme vermem lazimki dolu olan satırın altına ekleme yapsin

Merhaba
Aşağıdaki gibi olabilir (4 sütunun son satır sayısı "A" sütunu ile aynı ise)

Set s1 = Sheets(ComboBox1.Text)
a = s1.Cells(Rows.Count, "A").End(3).Row + 1
s1.Cells(a, "A") = TextBox1.Value
s1.Cells(a, "B") = TextBox2.Value
s1.Cells(a, "C") = TextBox3.Value
s1.Cells(a, "D") = TextBox4.Value