Açıklama içinde belli bir bölümü alma

[NADİR YILDIZ]

Arkadaşlar F sütununda kırmızı alan açıklaması cep şube-eft- şeklinde ise açıklama E sütundaki gibi olacak..açıklamada Cep şube-eft- değilse E sütununda açıklamanın aynısını nasıl getirebilirim

iyi çalışmalar

 

[Belleksizz]

Ben bu tarz işlemlerde ilk önce adan z ye sıralama yapıyorum sonra ekte gönderdigim gibi bir işlem yapıyorum sadece gerekli olan değerleri kopyala özel yapıştır ile degerleri yapıştırıyorum

Umarım işine yarar

 

[NADİR YILDIZ]

Sayın belleksizz çözüm öneriniz için teşekkür ederim.
ancak liste uzun ve başka sayfadan veriler geldiği için bu işimi görmüyor maalesef

iyi çalışmalar

 

[NADİR YILDIZ]

aslında bu ve bunun gibi sorunlarım çok oluyor.
herbirine ayrı ayrı sizlere soru sormak zorunda kalıyorum.
geçen günde buna benzer bir sorum olmuştu sağolun siz çözüm önerisinde bulunmuştunuz.
bul parçaal esayıysa değiştir bunları nasıl birlikte kullanırım bilmiyorum.fonskiyonlar çoğaldımı formüller beni aşıyor.
ben bu açıklama içinden bu ve bunun gibi metin sayı kelimeleri nasıl ayırt ederim asıl onu öğrenmek isterim.
geçen sorumdaki formül şu şekilde idi
=EĞER(ESAYIYSA(--PARÇAAL(H3;BUL("X";H3)+1;12));DEĞİŞTİR(H3;BUL("X";H3);13;"-");H3)
ben bu formülü kuramıyorum.bunu nasıl öğrenirim asıl önemli olan benim için bu
yani balık vermek yerine balık tutmayı öğrenmek benim amacım.

iyi çalışmalar

 

[Zeki Gürsoy]

Kullanıcı tanımlı bir fonksiyon denemeyi düşünürseniz ...

Function RemoveNumbers(Addr As Range)
    Static reg As Object
    
    If reg Is Nothing Then
        Set reg = CreateObject("VBScript.RegExp")
        reg.Global = True
        reg.Pattern = "\d+"
    End If
    
    If reg.test(Addr) Then
        RemoveNumbers = reg.Replace(Addr, "")
    Else
        RemoveNumbers = Addr
    End If
End Function

.

 

[NADİR YILDIZ]

Zeki bey teşekkürler
tabiki düşünürüm düşünmesinede
nasıl kullanıldığı bilmiyorum
makrolar gibi bişey değil galiba
dosyaya ekledim bişey olmadı
iyi çalışmalar

 

[Zeki Gürsoy]

Kod, bildiğimiz VB kodu. Yerleşik fonksiyon gibi kullanıyoruz o kadar. Kodu standart bir module yapıştırdıktan sonra formülü yazmak yeterliydi. G2 ve sonraki hücrelerdeki formülleri inceleyin. Uygulanmış hali ekte...



.

 

[NADİR YILDIZ]

Zeki bey teşekkürler

Açıklamada sayıları çıkartıyor.sadece kelimeler kalıyor

iyi çalışmalar

 

[Haluk]

Alternatif olarak "Google Sheets" kullanılabilir.....

Formül:

=IF((LEFT(A1,3)="CEP"),TRIM(REGEXREPLACE(A1,"[0-9]+","")),TRIM(REGEXREPLACE(A1,"(CEP ŞUBE-EFT-)[0-9]+","")))

Veya, alternatif formül:

=IF(REGEXMATCH(A1,"(CEP ŞUBE-EFT-)[0-9]+"),"CEP ŞUBE-EFT-" & TRIM(REGEXREPLACE(A1,"(CEP ŞUBE-EFT-)[0-9]+","")),A1)

 

[NADİR YILDIZ]

Sayın haluk sizede teşekkürler
bu dediğinizi ilk defa duyuyorum.
iyice kafam karıştı.

Benim anlayacağım gibi bir formülle ilk sorumu çözebilirmisiniz

iyi çalışmalar

 

[Haluk]

Kafa karıştıracak bir şey yok, verilerinizi "Google Sheet" içine yapıştırıp, verdiğim formülü kullanabilirsiniz.

Yine de örnek uygulamayı aşağıdaki linkten görebilirsiniz...

TEST-REGEXREPLACE

docs.google.com

.

 

[NADİR YILDIZ]

google sheet kullanmadım ki

ben normal excel kullanıyorum.
bu kadar fazlası yok bende

 

[Haluk]

Verdiğim linki tıklayıp, baktınız mı ?

Eğer işinize yarıyorsa, yapmanız gereken tek şey bir adet Gmail hesabı alarak kaydolmak..... Sonra, Google Drive'dan uygulamayı kullanmaya başlayabilirsiniz....

Tamamen ücretsiz bir uygulama. Üstelik; dosyalara bilgisayardan, cep telefonundan, tabletten her yerden ulaşabilir, istediğiniz kişilere gönderebilirsiniz.

.

 

[NADİR YILDIZ]

baktım sayın haluk gmail ve e tablolar kullanmak gibi bir isteğim yok google drivedan da uygulama kullanmak istemiyorum.
bunlara ihtiyacım ve isteğim yok
sadece ilk sorumda formül kurmak gibi masum bir çözüm arıyorum.
bu anlatılanlar benim konumum dışında ağır ve benim için zaman kaybı ve kafa yorucu meseleler
neticede muhasebiciyim.
formül ile işimi çözüp sonuç almak istiyoruım

anlatmak istedikleriniz size göre daha pratik olabilir.ama benim açımdan uygulanabilirliği olan bir çözüm değil ağır konular. olay bu

teşekkürler

 

[Haluk]

O zaman, Zeki Beyin önerdiği fonksiyonu aşağıdaki gibi biraz revize edip, kullanabilirsiniz;

Function RemoveNumbers(Addr As Range)
    Dim reg As Object
  
    If reg Is Nothing Then
        Set reg = CreateObject("VBScript.RegExp")
        reg.Pattern = "CEP ŞUBE-EFT-[0-9+]+"
        reg.Global = True
    End If
  
    If reg.test(Addr) Then
        RemoveNumbers = "CEP ŞUBE-EFT-" & reg.Replace(Addr, "")
    Else
        RemoveNumbers = Addr
    End If
End Function

Veya, Zeki Beyin önerdiği kullanıcı tanımlı fonksiyonu hiç değiştirmeden hücre içinde şu şekilde kullanabilirsiniz;

=IF(LEFT(F2;3)="CEP";RemoveNumbers(F2);F2)

Türkçe Excel için;

IF >> EĞER
LEFT >> SOLDAN

.

 

[NADİR YILDIZ]

Teşekkür ederim Haluk bey

iyi çalışmalar