11 Eğer 12 Durum

[mschumi]

Arkadaşlar Merhaba;
Bir sütunda ingilizce aylar var. Ayların sayısal değerlerini yazdırmak istiyorum.
Örnek: Ay April ise 4 yazsın.

 

[Orion1]

Ekli dosyayı inceleyiniz.
A sütununa ingilizce karşılıklarını giriniz

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

 

[mschumi]

Evran Bey, kod yazmadan fonksiyon olarak cevabı var mıdır? acaba

 

[Orion1]

Evran Bey, kod yazmadan fonksiyon olarak cevabı var mıdır? acaba

Ayı D9a girersek.
Dosya ekte

=KAÇINCI(D9;A1:A12;0)

 

[mschumi]

Aylar sırayla gitmiyor. Karışık gidiyor. Birde 200 satır var.

 

[Necdet]

Merhaba,

DÜŞEYARA(VLOOKUP) kullanabilirsiniz.

Ekteki örnekte ay adlarını siz ingilizceye çeviriniz.

 

[mschumi]

Arkadaşlar örnek dosya ektedir. eğer yapılabilirse iyi olur. ben düşeyara ile denedim hep 8'i getiriyor. sorunu bulamadım.

 

[benli58]

sayın mschumi;
umarım ekteki dosya işinizi görür.kolay gelsin.

 

[mschumi]

sayın benli58 benim göndermiş olduğum dosyada niye çalışmadığı hakkında bir fikriniz var mı ? çünkü ben bunu asıl dosyaya uygulayacağım ve oraya sizin yazdığınız formülü yazacağım çalışmayacak. aslında sizin yaptığınız formül ile benim döndermiş olduğum dosyadaki formül aynı....

 

[Necdet]

Merhaba,

Yaptığınız fonksiyon doğru ama hesaplama otomatik değil elleye ayarlanmış.

Hesaplamayı otomatiğe alınız, yada F9 tuşuna basınız.

Araçlar
Seçenekler
Hesaplama
Otomatik

 

[mschumi]

Necdet Bey teşekkürler

 

[Merhum İdris SERDAR]

Arkadaşlar Merhaba;
Bir sütunda ingilizce aylar var. Ayların sayısal değerlerini yazdırmak istiyorum.
Örnek: Ay April ise 4 yazsın.

http://www.excel.web.tr/showthread.php?t=17327

Buraya eklediğim son dosyayı inceleyin.

.