Userformda Lİsteleme Yapmak

[eskiji]

Arkadaşlar Merhaba;
Ekteki örnekteki bölge sekmesine bölgeyi yazdığımda ilgili temsilcinin adı gelmekte. Ancak ben üçüncü boşluğada telefon numarasını atmasını istiyorum. Sabahtan beri uğraşıyorum fakat bir türlü beceremedim. Bana yardım edebilecek bir üstad varmı :yardim:

 

[Orion1]

Dosyanız ekte.

Private Sub ListBox2_Click()
    On Error Resume Next
        Dim sira
            sira = "Sayfa1!b$" & ListBox2.ListIndex + 1&
                arşivpro.TextBox1.ControlSource = sira
        ComboBox3.ListIndex = ListBox2.ListIndex
Label4.Caption = "Konu A" & ListBox2.ListIndex + 1 & " hücresinde," & " Kod B" & ListBox2.ListIndex + 1 & " hücresinde kayıtlıdır."
TextBox2.Text = ListBox2.Value
[B][COLOR="Red"]TextBox4.Text = Sheets("Sayfa1").Cells(ListBox2.ListIndex + 1, "C").Value[/COLOR][/B]
End Sub

 

[eskiji]

teşekkür ederim hocam :hihoho: bide bu userformu tam ekran yapsak olurmu acaba?