Metni ayırma

[Erdal]

Merhabalar
Arama yaptım ama tam aradığım şeyi bulamadım.
Bir metni belirli şartlar altında ayırmak istiyorum. Örnek dosya ektedir. Yardımlarınız için şimdiden teşekkürler.

 

[Orion1]

Kullanıcı tanımlı fonksiyonla yaptım.
- ayıracı ile her 2 veriyi ayırdım.
Dosyanız ektedir.
Kullanımı:
=kelime_ayir_59(A1;2)

Function kelime_ayir_59(hcr As Range, sayi As Byte) As String
Dim i As Integer, deg As String, say As Byte
For i = Len(hcr.Value) To 1 Step -1
    say = say + 1
    deg = Right(hcr.Value, say)
    If Left(deg, 1) = "." Then
        If sayi = 1 Then kelime_ayir_59 = Left(hcr.Value, Len(hcr.Value) - say)
        If sayi = 2 Then kelime_ayir_59 = deg
        Exit Function
    End If
Next i
End Function

 

[Erdal]

Teşekkür ederim Evren bey!
Madem kullanıcı tanımlı fonksiyon ile yaptık. Eğer size zahmet olmazsa bu fonksiyonu =kelime_ayir(A1;sayı) şeklinde yapabilirmiyiz.
Sayı= 1 dersek kırmızı kelimeyi yazacak 2 dersek siyahı yazacak gibi.

 

[Orion1]

Teşekkür ederim Evren bey!
Madem kullanıcı tanımlı fonksiyon ile yaptık. Eğer size zahmet olmazsa bu fonksiyonu =kelime_ayir(A1;sayı) şeklinde yapabilirmiyiz.
Sayı= 1 dersek kırmızı kelimeyi yazacak 2 dersek siyahı yazacak gibi.

dosyayı güncelledim.
2 numaralı mesajdan indirebilirsiniz.

 

[Erdal]

Teşekkür ederim Evren Bey.

 

[Orion1]

Teşekkür ederim Evren Bey.

Rica ederim.

 

[Korhan Ayhan]

Selamlar,

Sorunuz Evren beyin KTF önerisi ile çözümlenmiş. Alternatif olması açısından bende formülle çözüm sunmak istedim.

Eğer verileriniz örnek dosyanızdaki düzende ise;

Siyah fontlu veriyi almak için; (CTRL+SHIFT+ENTER)

=PARÇAAL(A1;1;MAK(EĞER(PARÇAAL(A1;SATIR(DOLAYLI("1:"&UZUNLUK(A1)));1)=".";SATIR(DOLAYLI("1:"&UZUNLUK(A1)));0))-1)

Kırmızı fontlu veriyi almak için; (CTRL+SHIFT+ENTER)

=PARÇAAL(A1;MAK(EĞER(PARÇAAL(A1;SATIR(DOLAYLI("1:"&UZUNLUK(A1)));1)=".";SATIR(DOLAYLI("1:"&UZUNLUK(A1)));0));255)

Formülleri uygulayıp deneyiniz.

 

[Erdal]

İlginiz için teşekkür ederim Korhan Bey.