Soru Comboboxtan Sayfaya Kaydet

[sirkülasyon]

Private Sub UserForm_Initialize()
    Dim i As Integer
    Dim Son As Integer
    Son = [A65536].End(3).Row
    Dim dz() As String
    ReDim dz(Son - 1, 2)
    With ComboBox1
        .RowSource = "Sheet5!A2:b3" & Son
        .ColumnCount = 2
        .ColumnHeads = True
        .ColumnWidths = "45;120"
        .Width = 290
        .Height = 30
        .ListRows = 30
        .BoundColumn = 2
    End With
End Sub

D ve E sütunlarına çift tıklama ile form açılıyor.
Yukarıda (sitede alıntı) yer alan kod ile A ve B sütunlarında ki bilgiler liste halinde combobox1' de listeleniyor.

Sizlerden ricam
D sütununda her hangi bir hücreye çift tıklama ile açılan formun listesinde seçtiğim veri aktar dediğimde ilgili hücreye aktarsın.
Yardımcı olabilir misiniz?

Mümkünse kodu paylaşalım. (ALTIN Üye henüz olmadığım için)

İLGİLİ DOSYA

 

[yanginci34]

userform1 deki aktar butonu için aşağıdaki kodu yazıp denermisiniz.

Private Sub CommandButton1_Click()
ActiveCell.Value = ComboBox1.Value
End Sub