Excel vba yardım

Aphenon · 24 Mar 2022

Bir form üzerinde çalışıyorum. form da birden fazla combobox var bu comboboxlarda değer seçtikten sonra butona basınca excel sayfasına kaydetmesini istiyorum. bir kod buldum Sheets("arac_satıs_kayıt").[G2] = ComboBox2.Value kod bu lakin tek satıra kayıt ediyor ve tekrar kayıt alınca üzerine yazıyor alt alta keydetmem lazım araştırdım fakat kodunu bulamadım yardımcı olur musunuz.

Metin55655 · 30 Mar 2022

With Sheets("satış")
Satır = .Range("A65536").End(3).Row + 1
For a = 0 To 9
.Cells(Satır + a, 1) = Me.Controls("ComboBox" & a + 1).Value
.Cells(Satır + a, 2) = Me.Controls("textbox" & a + 1).Value
.Cells(Satır + a, 3) = Me.Controls("ComboBox" & a + 11).Value
.Cells(Satır + a, 4) = Me.Controls("textbox" & a + 11).Value
.Cells(Satır + a, 5) = Me.Controls("textbox" & a + 21).Value
.Cells(Satır + a, 6) = Me.Controls("textbox" & a + 31).Value
Next

For Each txt In Me.Controls
If TypeName(txt) = "TextBox" Then txt.Text = Empty
Next
End With

bunu dener misin

Ara

Excel vba yardım

Aphenon

Gökyüzü sadece uçmaktan korkanların sınırıdır

Metin55655