Hücre İçinden Metin Alma

[kamsal]

Merhaba Üstadlarım;

Öncelikle hepinizin yeni yılını kutlar, sağlık ve mutluluk ve aynı zamanda huzur getirmesini temenni ederim.

Ekte gönderdiğim dosyada ayrıca açıklama yaptım. Özetle sizlerden istediğim yarım konusu şöyle;

Malzeme adlarının bulunduğu hücreden, sağ hücreye sadece malzemenin temel kategorik adını aldırmak istiyorum. Örneğin ; Kırmızı domates kasası tanımı içinden sadece "domates" aldırmak ve bu şekilde diğer malzemeleri kategorize etmek istiyorum.

Bunu tek teke yapmaya çalıştım fakat oldukça uzun zaman alıyor..!

Yapılabilecek bir formül vb. kolaylık varsa sizlerden bu konuda yardımlarınızı istirham ediyorum.
Saygılarımla

 

[kamsal]

http://dosya.co/5fagd424wwnr/malzeme_listesi.xlsx.html

 

[Murat OSMA]

Bu dosya kötü amaçlı uyarısı geldi.

Bilginize.​

 

[Sinan2618]

Veri kısmından "Metni Sütünlara Dönüştür" butonuna tıklayarak Sınıflandırılmış kısmından boşluktan itibaren yazıyı ayırabilirsiniz.

 

[Sinan2618]

Bu dosya kötü amaçlı uyarısı geldi.

Bilginize.​

Aynı uyarıyı bende aldım sanırımvirüs mevcut. Ayrıca bu basit işlem için metni sütunlara dönüştür kısmının neden kullanılmadığını algılayamadım.

 

[kamsal]

Dosyada bir sorun yok ama..! başka türlü nasıl gönderebilirim dosyayı acaba?

 

[kamsal]

Dosyayı birde başka bir siteden yükledim...umarım sorun çıkmaz

"Metni Sütunlara Dönüştür" işlemini denedim fakat, sanki daha karmaşık hale geliyor..!

http://s3.dosya.tc/server10/wpkcoq/malzeme_listesi.xlsx.html

 

[kamsal]

Aynı uyarıyı bende aldım sanırımvirüs mevcut. Ayrıca bu basit işlem için metni sütunlara dönüştür kısmının neden kullanılmadığını algılayamadım.

Sayın üstadım, sütunda tek tip veri olmadığı için metni sütunlara dönüştür işlemi oldukça karmaşık gibi geldi. Bu işlemi bir formül aracılığı ile çözmemiz mümkün olamıyor mu acaba?? örneğin; parçaal veya mbul formülü bunları denemeye çalıştım faka çok fazla bilgim olmadığı için yapamadım..

 

[Sinan2618]

Bu kod işinizi görür mü?

=SAĞDAN(B2;UZUNLUK(B2)-BUL(" ";B2;1))

 

[Korhan Ayhan]

Hücre içinde kategori etmek istediğiniz veriler karışık sırada görünüyor.

Bence bir kategori listeniz varsa hücreler buna göre kontrol edilebilir. Yoksa bu listede kategori oluşturmak sizi biraz uğraştıracaktır.

 

[kamsal]

Hücre içinde kategori etmek istediğiniz veriler karışık sırada görünüyor.

Bence bir kategori listeniz varsa hücreler buna göre kontrol edilebilir. Yoksa bu listede kategori oluşturmak sizi biraz uğraştıracaktır.

Korhan hocam haklısınız.. tek tek yapacağım artık.. teşekkür ediyorum.

 

[kamsal]

Bu kod işinizi görür mü?

=SAĞDAN(B2;UZUNLUK(B2)-BUL(" ";B2;1))

Sinan hocam ilginize teşekkür ediyorum ama, liste karışık veri barındırdığından galiba bu formülde olmadı.

 

[Korhan Ayhan]

Ekteki örnek dosyayı inceleyiniz.

Kullanıcı tanımlı fonksiyon hazırladım.

Dilediğiniz kelime sayısını yazıp kolayca kategori oluşturabilirsiniz.

Dosyada çalışırken HESAPLAMA yöntemini manuele alın. En son işiniz bitince hesaplatıp sonuca gidebilirsiniz.

 

[kamsal]

Ekteki örnek dosyayı inceleyiniz.

Kullanıcı tanımlı fonksiyon hazırladım.

Dilediğiniz kelime sayısını yazıp kolayca kategori oluşturabilirsiniz.

Dosyada çalışırken HESAPLAMA yöntemini manuele alın. En son işiniz bitince hesaplatıp sonuca gidebilirsiniz.

Korhan Hocam dosyayı göremiyorum ne yazıkki ...! altın üyelik isteniyor.. eğer uyguladığınız formülü açıklayabilirseniz ben dosya üzerinde yapmaya çalışırım.
Saygılar

 

[Korhan Ayhan]

Harici linke tıklayıp indirebilirsiniz.

Örnek Dosya

 

[kamsal]

Harici linke tıklayıp indirebilirsiniz.

Örnek Dosya

Korhan hocam dosyayı indirdim. Fakat "kategori" sütununda "AD" hatası veriyor ve dosya açılışında aşağıdaki hatayı veriyor..?

Kaldırılan Bölüm: /xl/comments1.xml parçası XML hatası içeriyor. (Açıklamalar) Yükleme hatası. Satır: 2, sütun : 172.

 

[Korhan Ayhan]

Kullandığım fonksiyon aşağıdadır.

Boş bir modüle ekleyip kullanabilirsiniz.

Hücrede kullanım şekli; (Kırmızı bölümü başka bir hücreden aldırabilirsiniz. Böylece verinin istediğiniz kısmını almış olursunuz.)

=Kategori(B2;[COLOR="Red"]3[/COLOR])

Function Kategori(Veri As Range, Optional Kaçıncı_Kelime As Integer = 1)
    Application.Volatile True
    If Veri.Value = Empty Then
        Kategori = ""
    Else
        Kategori = Split(Veri.Value, " ")(Kaçıncı_Kelime - 1)
    End If
End Function

 

[kamsal]

Kullandığım fonksiyon aşağıdadır.

Boş bir modüle ekleyip kullanabilirsiniz.

Hücrede kullanım şekli; (Kırmızı bölümü başka bir hücreden aldırabilirsiniz. Böylece verinin istediğiniz kısmını almış olursunuz.)

=Kategori(B2;[COLOR="Red"]3[/COLOR])

Function Kategori(Veri As Range, Optional Kaçıncı_Kelime As Integer = 1)
    Application.Volatile True
    If Veri.Value = Empty Then
        Kategori = ""
    Else
        Kategori = Split(Veri.Value, " ")(Kaçıncı_Kelime - 1)
    End If
End Function

Korhan hocam kusura bakmayın kod ve işlem mantığını anladım fakat, AD hatasının sebebini bulamadım.. bu nedenle henüz bir sonuç alamadım..' eğer AD hatasını çözer ve formül sonucunda bir veri alabilirsem sanırım sorunu tamamen çözüp konuyu kapatacağım...'
İlgi ve emeğinize çok teşekkür ediyorum Hakkını helal ediniz lütfen.

 

[kamsal]

Sayın Korhan Ayhan Hocam, AD hatasının sebebi makroların etkin olmaması imiş şimdi sorun çözüldü. İlgi ve emeğinize çok teşekkür eder, mutlu, sağlıklı ve hakkınızda hayırlara vesile yeni bir yıl temenni ediyorum. Saygılar