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

NADİR YILDIZ

Altın Üye
Altın Üye
Katılım
7 Ocak 2006
Mesajlar
713
Excel Vers. ve Dili
2013 türkçe
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
 

Ekli dosyalar

Belleksizz

Altın Üye
Katılım
21 Mayıs 2018
Mesajlar
20
Excel Vers. ve Dili
2007
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
 

Ekli dosyalar

NADİR YILDIZ

Altın Üye
Altın Üye
Katılım
7 Ocak 2006
Mesajlar
713
Excel Vers. ve Dili
2013 türkçe
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

Altın Üye
Altın Üye
Katılım
7 Ocak 2006
Mesajlar
713
Excel Vers. ve Dili
2013 türkçe
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

Uzman
Uzman
Katılım
31 Aralık 2005
Mesajlar
3,962
Excel Vers. ve Dili
Office 2019 (64 bit) - Türkçe
Kullanıcı tanımlı bir fonksiyon denemeyi düşünürseniz ...

C#:
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
222815





.
 

NADİR YILDIZ

Altın Üye
Altın Üye
Katılım
7 Ocak 2006
Mesajlar
713
Excel Vers. ve Dili
2013 türkçe
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
 

Ekli dosyalar

Zeki Gürsoy

Uzman
Uzman
Katılım
31 Aralık 2005
Mesajlar
3,962
Excel Vers. ve Dili
Office 2019 (64 bit) - Türkçe
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...



.
 

Ekli dosyalar

NADİR YILDIZ

Altın Üye
Altın Üye
Katılım
7 Ocak 2006
Mesajlar
713
Excel Vers. ve Dili
2013 türkçe
Zeki bey teşekkürler

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

iyi çalışmalar
 

Haluk

Özel Üye
Katılım
7 Temmuz 2004
Mesajlar
9,093
Excel Vers. ve Dili
32 Bit 2010 - İngilizce
Alternatif olarak "Google Sheets" kullanılabilir.....

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

Veya, alternatif formül:
Kod:
=IF(REGEXMATCH(A1,"(CEP ŞUBE-EFT-)[0-9]+"),"CEP ŞUBE-EFT-" & TRIM(REGEXREPLACE(A1,"(CEP ŞUBE-EFT-)[0-9]+","")),A1)


Test-REGEXPLACE.PNG
 
Son düzenleme:

NADİR YILDIZ

Altın Üye
Altın Üye
Katılım
7 Ocak 2006
Mesajlar
713
Excel Vers. ve Dili
2013 türkçe
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

Özel Üye
Katılım
7 Temmuz 2004
Mesajlar
9,093
Excel Vers. ve Dili
32 Bit 2010 - İngilizce
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...



.
 

NADİR YILDIZ

Altın Üye
Altın Üye
Katılım
7 Ocak 2006
Mesajlar
713
Excel Vers. ve Dili
2013 türkçe
google sheet kullanmadım ki

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

Haluk

Özel Üye
Katılım
7 Temmuz 2004
Mesajlar
9,093
Excel Vers. ve Dili
32 Bit 2010 - İngilizce
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

Altın Üye
Altın Üye
Katılım
7 Ocak 2006
Mesajlar
713
Excel Vers. ve Dili
2013 türkçe
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

Özel Üye
Katılım
7 Temmuz 2004
Mesajlar
9,093
Excel Vers. ve Dili
32 Bit 2010 - İngilizce
O zaman, Zeki Beyin önerdiği fonksiyonu aşağıdaki gibi biraz revize edip, kullanabilirsiniz;

Kod:
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;

Kod:
=IF(LEFT(F2;3)="CEP";RemoveNumbers(F2);F2)
Türkçe Excel için;

IF >> EĞER
LEFT >> SOLDAN

.
 
Son düzenleme:

NADİR YILDIZ

Altın Üye
Altın Üye
Katılım
7 Ocak 2006
Mesajlar
713
Excel Vers. ve Dili
2013 türkçe
Teşekkür ederim Haluk bey

iyi çalışmalar
 
Üst