DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub aylar()
Dim ay As String
Sheets("sayfa1").Select
ay = InputBox("Ay Giriniz..:", "AYLAR", Range("A1").Value)
If ay = "" Then Exit Sub
Set k = Range("A:A").Find(ay, , xlValues, xlWhole)
If Not k Is Nothing Then
MsgBox "[ " & ay & " ] Ayı sayısı = " & k.Row, vbOKOnly + vbInformation, "AY"
Else
MsgBox "[ " & ay & " ] Ayı Bulunamadı..!!", vbCritical, "YOK"
End If
End Sub
Ayı D9a girersek.Evran Bey, kod yazmadan fonksiyon olarak cevabı var mıdır? acaba
=KAÇINCI(D9;A1:A12;0)
http://www.excel.web.tr/showthread.php?t=17327Arkadaşlar Merhaba;
Bir sütunda ingilizce aylar var. Ayların sayısal değerlerini yazdırmak istiyorum.
Örnek: Ay April ise 4 yazsın.