Kelime içindeki ayları sayı olarak yazma

burhancavus61

Altın Üye
Katılım
13 Mayıs 2005
Mesajlar
761
Excel Vers. ve Dili
2010 Türkçe
Altın Üyelik Bitiş Tarihi
03.11.2024
ö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.
 

Ekli dosyalar

Ziynettin

Destek Ekibi
Destek Ekibi
Katılım
18 Nisan 2008
Mesajlar
1,105
Excel Vers. ve Dili
office2010
Kod:
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
 

burhancavus61

Altın Üye
Katılım
13 Mayıs 2005
Mesajlar
761
Excel Vers. ve Dili
2010 Türkçe
Altın Üyelik Bitiş Tarihi
03.11.2024
Herkese tüm örnekler için teşekkür ederim. En uygununu seçeceğim :) iyiki varsınız.
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,247
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Alternatif;

C++:
=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

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
12,073
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
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.
 
Üst