Sevk Yazdırma ( Programı Combox1 değerine Combobox2 ye veri gelmesi )

[DeliBalta58]

Arkadaşlar Sevk Yazdırma Proğramında Combobox1 'den seçilen Personel Adına göre Bu personelin bakmakla yükümlü olduğu kimselerin adı soyadı Combobox2 ye gelecek. Seçilen Yakınına ait bilgilerde TextBox1,TextBox2,TextBox3 ve TextBox4 de gelmesi gerekli. Yardımcı olabilirmisiniz.

Aklıma gelen bir yöntem var ama çok uzun oluyor
yol şu:

Sheets("sayfa3").Select ' Sayfa 3 ü seç
Cells.Select
Selection.ClearContents         'Seçilen tüm hücreleri sil
Selection.ColumnWidth = 11.86 ' Sütun genişliklerini 11,86 yap
Range("A1").Select       ' Seçimden çıkmak için A1 hücresini seç
Sheets("sayfa1").Select' Bilgilerin bulunduğu sayfa1 'e git
Range("A1").Select ' A1'i seç
Selection.AutoFilter Otomatik filitre uygula
Selection.AutoFilter field:=34, Criteria1:=Combobox1.Value ' 1. kriter Combobox1 deki ismi 34 Sütunde ki personel isimlerinden ara
ActiveCell.CurrentRegion.Select 
Selection.Copy                      ' Tümünü seçip kopyala
Range("A1").Select'                 Tüm  Seçimden çıkmak için A1'i seç
Sheets("sayfa3").Select           'Sayfa3'ü çec
ActiveSheet.Paste '                Kopyalananı yapıştır
'..............................................
Sheets("sayfa1").Select '         Sayfa1'e seç
Range("A1").SelectA1'i seç
Selection.AutoFilter                ' Otomatik filitreden çık
Sheets("sayfa3").Select          'Sayfa3'ü seç
Range("A1").Select

burdanda tek bir satıra gelmiş olan veriler Combobox'a veri kaynağı(RoxSource) olacak şekilde alt alta getirmek

[a10]=[B2]
[a11]=[C2]
[a12]=[D2]
[a13]=[E2]
[a14]=[F2]
[a15]=[G2]
[a16]=[H2]
[a17]=[I2]

gibi




Dosya linki
http://www.2shared.com/file/1930522/37c3dece/kr_BULUT_Sevk_Program.html