Koda yapılacak ilave

[nurluali]

Merhaba formdaşlar;
Bu kodun bir kısmını formdan aldım bazı yerleri de makro kaydet ile uyarlamaya çalıştım kod çalıştı fakat yapmak istediğim ListBox1'den Seçtiğim isimi UserForm üzerinde ComboBox1 den CommandButton13'e tıklayınca seçim yapıp kopyalaması
UserForm üzerinde manuel olarak seçim yapıp aşağıdaki kodla ilgili sayfayı yazdırıyorum. Listbox1'de seçtiğim kişiyi ComboBox1'den seçip kopyalatmak istiyorum.

Private Sub CommandButton13_Click()
If ComboBox1 <> Empty Then
Dim a, tx As String
Set a = New DataObject
tx = Mid(ComboBox1.Text, ComboBox1.SelStart + 1, ComboBox1.SelLength)
If tx = Empty Or Len(tx) = 0 Then MsgBox "seçim yapılmadı": Exit Sub
a.SetText tx
a.PutInClipboard
Sheets("Menü").Select
Range("F1").Select
ActiveSheet.Paste
Sheets("Veli").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Sheets("Data").Select
Range("E1").Select
'CreateObject("WScript.Shell").popup "Yazdırma İşlemine Geçebilirisiniz...", 1, "KOPYALAMA TAMAM", vbOKOnly
End If
End Sub

 

[nurluali]

Üstatlardan Bir Cevap Alamadım Fakat sorunu aşağıdaki kodla çözdüm daha pratik bir kod var ise cevaplandırma zahmetine bulunanlara teşekkür ediyorum.
Şu Şekilde bir Kod Buldum ve Birleştirince İşimi Gördü Seçilen Kişiyi Otomatik Olarak Veli Sayfasındaki Formu Yazıcıya Gönderiyor.
'Userformdan hücreye
Private Sub ComboBox1_Change()
Sheets("Menü").Select
Range("F1").Select
[F1] = ComboBox1.Text
Sheets("Veli").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Sheets("Data").Select
Range("E1").Select
End Sub