DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("a1") = 1 Then
Range("b1") = "Ocak"
End If
If Range("a1") = 2 Then
Range("b1") = "Ãubat"
End If
If Range("a1") = 3 Then
Range("b1") = "Mart"
End If
If Range("a1") = 4 Then
Range("b1") = "Nisan"
End If
If Range("a1") = 5 Then
Range("b1") = "Mayıs"
End If
If Range("a1") = 6 Then
Range("b1") = "Haziran"
End If
If Range("a1") = 7 Then
Range("b1") = "Temmuz"
End If
If Range("a1") = 8 Then
Range("b1") = "Ağustos"
End If
If Range("a1") = 9 Then
Range("b1") = "Eylül"
End If
If Range("a1") = 10 Then
Range("b1") = "Ekim"
End If
If Range("a1") = 11 Then
Range("b1") = "Kasım"
End If
If Range("a1") = 12 Then
Range("b1") = "Aralık"
End If
If Range("a1") < 1 Then
Range("b1") = "Hatalı Giriş"
End If
If Range("a1") > 12 Then
Range("b1") = "Hatalı Giriş"
End If
End Sub
[$-41F]aaaa
=A1*30