SAĞDAN Veri Ayır

[baydeniro]

Merhaba arkadaşlar aşağıda bir hücre içeriği olan veri bulunuyor. En sağda renkli bölümü ayırmaya çalışıyorum. Ancak SAĞDAN formülü işe yaramıyor. Çünkü sağdan olunca rakam 4 haneli de olabiliyor, 8 haneli de. bu konuda bir fikri olan var mı ?


Toplam 137,90 7,99 10,40 0,69 156,98

 

[asi_kral]

Merhaba
Dosya ekler misiniz_?
İçinde örnek de yazarsanız yardımcı olabilirim.

 

[baydeniro]

İlginize çok teşekküller asi kral 1967. Örnek dosya ekte.

 

[asi_kral]

İlginize çok teşekküller asi kral 1967. Örnek dosya ekte.

Merhaba
B2 hücresine

=SAĞDAN(A2;UZUNLUK(A2)-BUL("*";YERİNEKOY(A2;" ";"*";UZUNLUK(A2)-UZUNLUK(YERİNEKOY(A2;" ";"")))))*1

Bu formülü yazın ve deneyin.

 

[baydeniro]

Sayın asi kral 1967. Çok çok teşekkür ederim. Elinize, emeğinize sağlık, Allah razı olsun.

 

[asi_kral]

Sayın asi kral 1967. Çok çok teşekkür ederim. Elinize, emeğinize sağlık, Allah razı olsun.

Kolay Gelsin.

 

[assenucler]

Teşekkür

Sayın asi Kral 1967;

Üstadım günaydın ve hayırlı işler.

Sanırım, sizin için hiç bir şey çözümsüz değil excel'de. Katkınız için teşekkürler. Bu çözüm benim de işime yarayacak...

Formüllü çözümü olan sorunun, herhalde makro ile de çözümü vardır. Nasıl?

Sevgi ve saygılar.

 

[asi_kral]

Sayın asi Kral 1967;

Üstadım günaydın ve hayırlı işler.

Sanırım, sizin için hiç bir şey çözümsüz değil excel'de. Katkınız için teşekkürler. Bu çözüm benim de işime yarayacak...

Formüllü çözümü olan sorunun, herhalde makro ile de çözümü vardır. Nasıl?

Sevgi ve saygılar.

Merhaba
Aslına bakılırsa excel gerçekten çok büyük bir derya kolay kolay çözümsüz bir şey kalmıyor yeter ki çaba sarf edilip uğraşılsın.
Boş bir module kopyalayın ve deneyin.

Option Explicit
Sub sonu_ayır()
'Konu       :   Son Kelimeyi Ayır
'Mail       :   m.batu.167@gmail.com
'Msn        :   m.batu.1967@hotmail.com.tr
'Skype      :   m.batu.1967
'Coder By   :   asi_kral_1967
Dim asi As Long, kral As Variant
For asi = 2 To Cells(Rows.Count, "A").End(xlUp).Row
kral = Split(Cells(asi, "A"), " ")
Cells(asi, "C") = Trim(kral(UBound(kral))) * 1
Next
MsgBox "İşlem Tamamlandı" & vbLf & Application.UserName, _
vbInformation, "asi_kral_1967"
End Sub

 

[assenucler]

Teşekkürler asi_kral_1967...