[ÇÖZÜLDÜ] Sayıların içinden harfleri çıkarma

[S.Yiğit]

Selamlar

Kullandığım excelde şöyle bir formül yazıp =A1&B1 hücreleri birleştiriyorum, Sorunum birleştirdiğim hücrelerde sayı ve harfler var. formülde değişiklik yaparak harfleri çıkarmayı nasıl sağlarım.. yardım için tşkler..
Not: Excelim ingilizce

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz.

 

[BG]

Sayın Korhan Ayhan

hocam emeğinize sağlık gerçekten çok güzel bir çalışma olmuş, kodu birazcık açıklayabilirmisiniz, özellikle "With CreateObject("vbscript.regexp")"
satını ve " .Pattern = IIf(Karakter, "[^\d]", "\d") " satırı teşekkür ederim

iyi çalışmalar dilerim.


Function RAKAM_HARF_AYIR(Kriter As String, Karakter As Boolean) As String
With CreateObject("vbscript.regexp")
.Pattern = IIf(Karakter, "[^\d]", "\d") .Global = True
RAKAM_HARF_AYIR = .Replace(Kriter, "")
End With
End Function

 

[S.Yiğit]

Sayın Korhan Ayhan hocam yardım için tşk ederim. Bu formulleri baska excel sayfasında kullanabilecek miyim? yoksa bu gönderdiğiniz çalışmada makromu var? Ben acemiyim makrodan hiç anlamıyorum. Tekrar tşkler.. Kolay gelsin..

 

[Korhan Ayhan]

Selamlar,

Sn. yesilsy,

Evet çalışmada makro var. Başka excel sayfasında kullanmak istiyorsanız aşağıdaki işlemleri takip ediniz.

Ekteki excel dosyasını bilgisayarınıza indirin ve açın.
Farklı kaydet diyerek açılan pencerede KAYIT TÜRÜ seçeneğinden Microsoft Office Excel Eklentisi (*.xla) seçeneğini seçip dosyayı kaydedin.
Araçlar - Eklentiler menüsünü açın.
Açılan pencerede kaydettiğiniz dosya adını bulup çentiğini işaretleyin.
Artık fonksiyonu tüm excel dosyalarınızda kullanabilirsiniz.

 

[S.Yiğit]

Selamlar,

Sn. yesilsy,

Evet çalışmada makro var. Başka excel sayfasında kullanmak istiyorsanız aşağıdaki işlemleri takip ediniz.

Ekteki excel dosyasını bilgisayarınıza indirin ve açın.
Farklı kaydet diyerek açılan pencerede KAYIT TÜRÜ seçeneğinden Microsoft Office Excel Eklentisi (*.xla) seçeneğini seçip dosyayı kaydedin.
Araçlar - Eklentiler menüsünü açın.
Açılan pencerede kaydettiğiniz dosya adını bulup çentiğini işaretleyin.
Artık fonksiyonu tüm excel dosyalarınızda kullanabilirsiniz.

Sy Korhan Ayhan hocam

Açıklama için teşekkürler. Hemen deneyeceğim..

 

[Korhan Ayhan]

Selamlar,

Sn. brain,

Arşivimde olan bir koddu. Sanırım veyselemre beyin hazırladığı bir kod. Ama bu kodun kullanımı hakkında pek fazla bir bilgim yok. Netten biraz araştırdım fakat detaylı ve anlaşılır bir şekilde kullanımını anlatan bilgilere ulaşamadım. Sanırım string (metinsel) verilerde kullanılabiliyor.

Forumda konuyla ilgili bilgisi olan arkadaşlarımız paylaşırlarsa belkide üzerinde çok fazla düşünüp çözüm aradığımız bir çok konuya bu özelliği kullanarak pratik çözümler üretebiliriz.

 

[BG]

Sayın Korhan Ayhan

kod bana çok enterasan geldi o yüzden sordum, açıklamanız için teşekkür ederim hocam, iyi çalışmalar dilerim.

 

[S.Yiğit]

Sevgili hocalarım Excel ingilizce olduğu için

=RAKAM_HARF_AYIR(A1;1)&RAKAM_HARF_AYIR(B1;1)

bu fonksiyonu kullanamıyorum. İngilizcesini yazabilir misiniz? TŞkler

 

[Korhan Ayhan]

Selamlar,

Sn. yesilsy,

Yazılan kod kullanıcı tanımlı fonksiyondur. Excel dilinizin ingilizce olası bir şeyi değiştirmemesi gerekir. Sanırım uygularken hata yapıyorsunuz. Hata veren dosyanızı ekleyin üzerinden gidelim.

 

[S.Yiğit]

Selamlar,

Sn. yesilsy,

Yazılan kod kullanıcı tanımlı fonksiyondur. Excel dilinizin ingilizce olası bir şeyi değiştirmemesi gerekir. Sanırım uygularken hata yapıyorsunuz. Hata veren dosyanızı ekleyin üzerinden gidelim.

Sy Korhan Ayhan hocam ekledim. Tşkler..

 

[Korhan Ayhan]

Selamlar,

Örnek olarak eklediğiniz dosyanıza boş bir modül ekleyin verdiğim kodu modüle uygulayın. Daha sonra dosyayı kapatıp tekrar açın. Formülün çalışması gerekir.

Function RAKAM_HARF_AYIR(Kriter As String, Karakter As Boolean) As String
    With CreateObject("vbscript.regexp")
        .Pattern = IIf(Karakter, "[^\d]", "\d")
        .Global = True
        RAKAM_HARF_AYIR = .Replace(Kriter, "")
    End With
End Function

 

[S.Yiğit]

Selamlar,

Örnek olarak eklediğiniz dosyanıza boş bir modül ekleyin verdiğim kodu modüle uygulayın. Daha sonra dosyayı kapatıp tekrar açın. Formülün çalışması gerekir.

Function RAKAM_HARF_AYIR(Kriter As String, Karakter As Boolean) As String
    With CreateObject("vbscript.regexp")
        .Pattern = IIf(Karakter, "[^\d]", "\d")
        .Global = True
        RAKAM_HARF_AYIR = .Replace(Kriter, "")
    End With
End Function

Sy Korhan Ayhan hocam cevap için tşkler ama Bu dediklerinizi yapmam için 40 fırın ekmek yemem lazım.. Excelde çok çok yeniyim ama bu konuyu kayıt ettim ilerde bir gün mutlaka çözecem.. Tekrar tşkler..

 

[Necdet]

Sayın yesilys,

KULLANICI TINIMLI FONKSİYON linkini inceleyiniz. 40 fırına gerek yok bir kaç ekmekle de bu işi çözersiniz

 

[S.Yiğit]

Sayın yesilys,

KULLANICI TINIMLI FONKSİYON linkini inceleyiniz. 40 fırına gerek yok bir kaç ekmekle de bu işi çözersiniz

Selamlar..


Sy Necdet hocam teşekkürler ama verdiğiniz linki inceledimde

Fonksiyon nasıl yazılır?

Kullanıcı tanımlı fonksiyonlar yine makrolar gibi modullere yazılırlar.
Makro nedir bilmem Modul nedir hiç bilmem.

Ayrıca

Ders:Modül
Ders:Makro
Ders:Kod Yazmayı Öğreniyorum

Linkleri ölmüş.. İlginiz için Tşkler..

 

[Kemal Demir]

Merhaba,

Alternatif bir calisma hazırlamıstım.Umarım aşagıdaki link işinizi görür

http://www.excel.web.tr/showthread.php?t=53151

 

[S.Yiğit]

Selamlar,

Sn. yesilsy,

Evet çalışmada makro var. Başka excel sayfasında kullanmak istiyorsanız aşağıdaki işlemleri takip ediniz.

Ekteki excel dosyasını bilgisayarınıza indirin ve açın.
Farklı kaydet diyerek açılan pencerede KAYIT TÜRÜ seçeneğinden Microsoft Office Excel Eklentisi (*.xla) seçeneğini seçip dosyayı kaydedin.
Araçlar - Eklentiler menüsünü açın.
Açılan pencerede kaydettiğiniz dosya adını bulup çentiğini işaretleyin.
Artık fonksiyonu tüm excel dosyalarınızda kullanabilirsiniz.

Sy Korhan hocam Özür dilerim.. Dediklerinizi yapıyorum fakat benim excelde Microsoft Office Excel Eklentisi (*.xla) böyle bir seçenek yok. Excelin e'sini bilmeyen biri için zor bi durum ve karşısındaki kişi içinde zor bir durum..

 

[S.Yiğit]

Merhaba,

Alternatif bir calisma hazırlamıstım.Umarım aşagıdaki link işinizi görür

http://www.excel.web.tr/showthread.php?t=53151

Sy Rakkas Hocam unutmuşum Özür.. Tşkler ederim tavsiye için

 

[Korhan Ayhan]

Selamlar,

Sn. yesilsy,

Necdet beyin önerdiği linkte bahsettiğim kısım resimlerle tarif edilmiş.

Benim 5. başlıkta eklediğim dosyayı resimde tarif edildiği şekilde eklenti olarak kaydedip tüm excel dosyalarınızda kullanabilirsiniz.

Ayrıca bende Microsoft Office Excel Eklentisi (*.xla) kısmı yok demişsiniz. Olmaması imkansız Necdet beyin verdiği linkteki resimleri takip ederseniz bulacağınıza eminim.

 

[S.Yiğit]

Selamlar,


Ayrıca bende Microsoft Office Excel Eklentisi (*.xla) kısmı yok demişsiniz. Olmaması imkansız Necdet beyin verdiği linkteki resimleri takip ederseniz bulacağınıza eminim.

Sy Korhan hocam gerçekten xla şeçeneği yok bende. Ekteki kopylere bakar mısınız? Tşkler..