DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub ComboBox1_Click()
TextBox17.Text = Sheets(ComboBox1.Value).Cells(2, "d").Value
End Sub
Tam işimi gördü çok teşekkür ederim sağolun hepinize çok minnetdarım