comboxu hücreye yazma - aktarma

[enginbagci]

comboxu hücreye yazma - aktarma

sayfamda asagıdaki gibi bir aktarma kodu kullanıyorum yalnız benim aktarmak istediğim iki tane comboboxum var ve bunları aktarmak yada excel hücresine comboboxun secilen değerini nasıl yazabilirim
teşekkürler

Sub AKTAR()
Sheets("1").Select
If [b2] = "" Or [b3] = "" Or [b4] = "" Or [b5] = "" Or [c2] = "" Then
MsgBox "EKSİK BİLGİ GİRİŞİ...! LÜTFEN KONTROL EDİNİZ.", vbCritical
[b2].Select
Exit Sub
End If
BUL = Sheets("" & Cells(1, 1)).Cells.Find(What:=[b2], LookIn:=xlValues, LookAt:=xlWhole).Row
Sheets("" & Cells(1, 1)).Cells(BUL, 2) = Sheets("1").[c2]
Sheets("" & Cells(1, 1)).Cells(BUL, 3) = Sheets("1").[b3]
Sheets("" & Cells(1, 1)).Cells(BUL, 4) = Sheets("1").[b4]
Sheets("" & Cells(1, 1)).Cells(BUL, 5) = Sheets("1").[b5]
Sheets("" & Cells(1, 1)).Cells(BUL, 6) = Sheets("1").[b8]
Sheets("" & Cells(1, 1)).Cells(BUL, 7) = Sheets("1").[b9]
Sheets("" & Cells(1, 1)).Cells(BUL, 8) = Sheets("1").[b10]
Sheets("" & Cells(1, 1)).Cells(BUL, 9) = Sheets("1").[b11]
MsgBox "KAYIT GÜNCELLENMİŞTİR...!", vbInformation
End Sub

 

[enginbagci]

yardım edebilecek yokmu ???

 

[zafer]

Merhaba

Combobox1 de seçtiğiniz satırdaki bilgiyi a1 hücresine aktarır.

Private Sub CommandButton1_Click()
Cells(1, 1) = ComboBox1.Value
End Sub

 

[enginbagci]

merhaba

teşekkürler zafer bey
işime yaradı