Çözüldü Listbox üzerinde tek tıklama ile başka sayfadan çekme

Merhaba,

Ekteki dosyada cari kasa kayıt defteri yapmak istiyorum. Bir yerde takıldım.

Anasayfada Listbox üzerinden bir cariye tek tıklayınca o carinin sayfasındaki 4 hücrenin verilerini Anasayfaya çekmek istiyorum. Mümkün müdür? Listboxta Carilere çift tıklayınca carinin sayfasına gidiyor. Ekteki resimde detaylı anlatmaya çalıştım. Saygılar.

Çözümü buldum. Teşekkürler.

Private Sub lstMüşteriler_Click()
Dim AnaSyf As Worksheet
Set AnaSyf = ThisWorkbook.Sheets("ANASAYFA")
With Sheets(Me.lstMüşteriler.Value)
AnaSyf.Range("G3") = .Range("m2")
AnaSyf.Range("G4") = .Range("m3")
AnaSyf.Range("G5") = .Range("m4")
AnaSyf.Range("G6") = .Range("m5")
End With
End Sub

Genişletmek için tıkla ...