metni parçala makro hatası

[burhancavus61]

Örnek dosyamda ay ve yılları ayrı hücrelere yazıyorum. Fakat bazı hücrelerde 2 kez boşluk bırakılmış bu yüzden hatalı olan yerler var. Makroyu nasıl düzenleyebiliriz.

 

[kulomer46]

Merhaba

Makronuz aşağıdaki şekildeki gibi düzenlenebilir.

Selamlar...

Function Parcala(Hucre As Range, Sira As Integer)
    Dim Parca() As String
    Dim Bak As Long
    metin = Hucre
    metin = Replace(metin, "  ", " ")
    metin = Replace(metin, "  ", " ")
    metin = Replace(metin, "  ", " ")
    metin = Replace(metin, "  ", " ")
    metin = Replace(metin, "  ", " ")
    metin = Replace(metin, "  ", " ")
    metin = Replace(metin, "  ", " ")
    Parca = Split(Trim(metin), " ")
    Parcala = Parca(Sira - 1)
End Function

İlgili Resim

 

[burhancavus61]

Teşekkür ederim sayın kulomer emeğinize sağlık

 

[kulomer46]

Teşekkür ederim sayın kulomer emeğinize sağlık

Kolay Gelsin ..

 

[veyselemre]

Function Parcala(Hucre As Range, Sira As Integer)
    Parcala = Split(WorksheetFunction.Trim(Hucre), " ")(Sira - 1)
End Function

 

[burhancavus61]

Teşekkürler Veysel bey.