belli bir karakterden öncekini ve sonrakini almak

[maznun5255]

Merhaba sn ustalarım.
BİM_RED_30/1 K SÜPREM MAYLİ gibi bir satırdan ayrı hücrelere
1.hucreye BİM
2.Hucreye RED
3.Hücreye 30/1 K SÜPREM MAYLİ

olarak ayrı getirebilir miyim?
Rica etsem bana üç ayrı formul yazar mısınız ?
_ ALT TİRE getirmeyi alışkanlık haline getirmiş durumdayım.Buradan şart vererek yapabilirmiyiz ? tesekkur ederim.

 

[Orion1]

KTF
Aşağıdaki ktf yi standart bir modüle yazın.

Function verial59(ByVal deg As String, ByVal say As Byte) As String
verial59 = Split(deg, "_")(say)
End Function

Verinin A1 hücresinde olduğu varsayılmıştır.Bir hücreye, ilk Ayırma için
=verial59(A1;0)
2nci ayırma için,
=verial59(A1;1)
3ncü ayırma için,
=verial59(A1;2)

 

[maznun5255]

Hocam cok tesekkur ederim.Bunu makrosuz formul olarak hucreye nasıl yazabilirim?

 

[Orion1]

Bu bir kullanıcı tanımlı fonksiyondur.
Bu makroyu bir kere yazıyorsunuz,sonrada hücrelere formülü giriyorsunuz.
Ekteki dosyayı inceleyiniz.

 

[maznun5255]

Tesekkur ediyorum.Elinize saglık

 

[Orion1]

Tesekkur ediyorum.Elinize saglık

Rica ederim.
İyi çalışmalar.