DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub ComboBox1_Change()
Select Case ComboBox1.Text
Case "Ocak"
Range("A20").Select
Case "Subat"
Range("A38").Select
Case "Mart"
Range("A56").Select
Case Else
MsgBox "Tanimsiz ...!"
End Select
End Sub
'
Private Sub UserForm_Initialize()
With ComboBox1
.AddItem "Ocak"
.AddItem "Subat"
.AddItem "Mart"
End With
End Sub