DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub ComboBox1_Change()
Dim Hüc_Bağlantı_Adresi As String
Hüc_Bağlantı_Adresi = "A1"
Range(Hüc_Bağlantı_Adresi).Value = ComboBox1.ListIndex + 1
End Sub