DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub ComboBox1_Click()
Dim STN As Long
On Error Resume Next
Sheets(ComboBox1.Value).Select
ComboBox6.Clear
For STN = 1 To Cells(2, Columns.Count).End(xlToLeft).Column
ComboBox6.AddItem Cells(2, STN)
Next
End Sub
Çok teşekkür ederim sayın asi kral. Elleriniz dert görmesin.