Kelime içindeki ayları sayı olarak yazma

[burhancavus61]

örnek dosyamda b sütununda dönemler var. içerisinde ayların adı geçiyor. a sütununa ayın sayısını yazmak istiuorum. kelime içeriği dengesiz.

 

[Ziynettin]

Sub kod()
son = Cells(Rows.Count, 2).End(3).Row
a = Range("B2:B" & son).Value
    For i = 1 To UBound(a)
        deg = LCase(Replace(Replace(Split(Replace(a(i, 1), "  ", " "), " ")(1) _
                    , "İ", "i"), "I", "ı"))
        a(i, 1) = Format("1." & deg, "mm")
    Next i
Range("A2:A" & son).Value = a
End Sub

 

[muygun]

Merhaba;
İşlevlerle bir çözümde benden
İyi çalışmalar.

 

[Merhum İdris SERDAR]

.

Alternatif:

.

 

[burhancavus61]

Herkese tüm örnekler için teşekkür ederim. En uygununu seçeceğim iyiki varsınız.

 

[Korhan Ayhan]

Alternatif;

=EĞERHATA(AY("1"&KIRP(PARÇAAL(KIRP(B2);MBUL(" ";KIRP(B2))+1;EĞERHATA(MBUL("@";YERİNEKOY(KIRP(B2);" ";"@";2))-MBUL(" ";KIRP(B2));7)))&YIL(BUGÜN()));"")

 

[YUSUF44]

Alternatif bir çözüm olarak farklı uygulamaları birarada bulunduran şu yöntem de var:

C2 hücresine ilk hücrenin ay adı olarak Aralık yazın ve C3'e geçin
Doldur menüsünen "hızlı doldur" seçin
Aşağı doğru tüm ay adları doldurulacak
A2 hücresine aşağıdaki formülü yazın ve aşağı doğru kopyalayın:

=AY(1&"."&C2)

Çıkan sonucu kopyalayıp değer olarak aynı sütuna yapıştırabilirsiniz.