listboxdan hücreye

[bitmez13]

Private Sub UserForm_initialize()
son = Range("a" & Rows.Count).End(3).Row
ListBox1.RowSource = "sayfa2!a1:a" & son
End Sub

kodları ile listboxa veri geliyor listboxdaki veriyi tıklayınca
sayfa1 deki a1 hücresine yazdırmak istiyorum

 

[Mustafa MUTLU]

Private Sub ListBox1_Click()
Cells(ListBox1.ListIndex + 2, 1).Select
[Sayfa1!A1] = Cells(ActiveCell.Row, "a")
End Sub

 

[Emir Hüseyin Çoban]

. . .

Private Sub ListBox1_Click()
    If ListBox1.ListIndex <> -1 Then
        Sheets("Sayfa1").Range("A1") = ListBox1.Column(0)
    Else
        MsgBox " Seçim Yok", vbCritical
    End If
End Sub

. . .