Userform

[emrebengul]

Makrosunu yazdım ama istediğim yerlere atmıyor. Nereye atacaklarımın hepsi excel dosyasında yazıyor yardımcı olursanız çok memnun olurum teşekkürler hayırlı çalışmalar.
Ekli dosyayı görüntüle Kitap123.xlsm

 

[Orion1]

Buyurun.

Private Sub CommandButton1_Click()
Range("E9").Value = ComboBox1.Value
Range("B8").Value = ComboBox2.Value
Range("E7").Value = ComboBox3.Value
Range("F7").Value = ComboBox4.Value
Range("g8").Value = ComboBox5.Value
'Tarihide siz yazın.
End Sub

 

[emrebengul]

anlatmak istediğim şöyleydi Sayın Orion1:
sayfa1 de mesela plakaya yeni bir plaka yazdığımda da orda combobox1'de çıkmasını istiyorum bunları hepsine uyarlanmasını istiyorum. Ve birinci kaydı yaptığımda 2. kaydı yapmadan önce kontrol etsin orası boşmu dolu mu diye? Anlatabilmişimdir inşallah.

 

[vardar07]

ComboBox lara verileri almak için.

Private Sub UserForm_Initialize()
ComboBox1.RowSource = "Sayfa1!A2:A" & Sayfa1.Range("A" & Rows.Count).End(3).Row
ComboBox2.RowSource = "Sayfa1!B2:B" & Sayfa1.Range("B" & Rows.Count).End(3).Row
ComboBox3.RowSource = "Sayfa1!C2:C" & Sayfa1.Range("C" & Rows.Count).End(3).Row
ComboBox4.RowSource = "Sayfa1!D2:D" & Sayfa1.Range("D" & Rows.Count).End(3).Row
ComboBox5.RowSource = "Sayfa1!E2:E" & Sayfa1.Range("E" & Rows.Count).End(3).Row
ComboBox6.RowSource = "Sayfa1!F2:F" & Sayfa1.Range("F" & Rows.Count).End(3).Row
ComboBox7.RowSource = "Sayfa1!G2:G" & Sayfa1.Range("G" & Rows.Count).End(3).Row
End Sub