Makroya İlave İle İsmi Sayfaya Almak

[1Al2Ver]

Merhaba,

Aşağıdaki kod'da , ListBox1'den seçince Label2'ye alınan veriyi (metin) , aynı zamanda "ANASAYFA" sayfasında "G3" hücresine de yazdırmak istiyorum.

Teşekkür ederim.

Private Sub ListBox1_Click()
Label2 = ListBox1
TextBox1.SetFocus
End Sub

 

[fireman64]

Sheets("ANASAYFA").Range("G3").Value = ListBox1

 

[1Al2Ver]

Sheets("ANASAYFA").Range("G3").Value = ListBox1

Teşekkür ederim Sayın fireman64, hayırlı geceler.