Farklı Sütunlardaki benzer ifadeleri tek bir sütunda toplama

[officevolkn]

Öğrenciyim ve data işinde çalışıyorum

Kısaca işim şu : kelimeleri siliyorum pastahane. otel. marangoz. berber vs gibi kelimeleri aralarından ayıklıyorum sonra ... mesala C stününde posta kodları var D de bölge isimleri var E de telefon numaraları.... ama bunların hepsi birbirni karışmış şekilde oluyor ve tek tek kes yapıştır diyor birbirinden ayırıp düzenliyorum ve çok zamanımı alıyor aynı karekterleri tek bir stün altında toplama şansım var mı tecrübeli abilerimden yardım istiyorum varsa bir formülü benim için çok ama çok önemli......

 

[ÖmerBey]

Küçük bir örnek dosya paylaşırsanız ne isterdiğinizi daha net anlayabiliriz.
Dosya paylaşım sitelerine dosya yükleyip link verebilirsiniz.

 

[hayalmeyal]

=KIRP(PARÇAAL(YERİNEKOY(A$1;" ";YİNELE(" ";UZUNLUK($A$1)));SATIR(A1)*UZUNLUK($A$1)-(UZUNLUK($A$1)-1);UZUNLUK($A$1)))

bu formul ile hücre içindeki istediğin değeri alıp, istediğin yere koyabilirsin....

Bir dene istersen.

 

[officevolkn]

=KIRP(PARÇAAL(YERİNEKOY(A$1;" ";YİNELE(" ";UZUNLUK($A$1)));SATIR(A1)*UZUNLUK($A$1)-(UZUNLUK($A$1)-1);UZUNLUK($A$1)))

bu formul ile hücre içindeki istediğin değeri alıp, istediğin yere koyabilirsin....

Bir dene istersen.

hocam tam hakim değilim formülü yazdım ama işime yaramadı linke yaptığım işlemin resmini yükledim hocam kontrol eder misin
84152 Mengkofen yazanları tek tarafa toplamak istiyorum
ve kaymış numaralarıda sağ taraftaki numara kısmında toplamak istiyorum .. ben şimdi manuel olarak yapmıyorum ve çok vaktimi alıyor

 

[officevolkn]

Küçük bir örnek dosya paylaşırsanız ne isterdiğinizi daha net anlayabiliriz.
Dosya paylaşım sitelerine dosya yükleyip link verebilirsiniz.

buyur hocam linkte resim
84152 Mengkofen yazanları tek yerde toplamak istiyorum sağdaki numaralarıda tek yere toplayacagım bunları şimdilik manuel olarak kes yapıştır şeklinde yapıyorum ve çok uzun zaman alıyor

 

[Erdem Akdemir]

Malesef resimle olmaz, istediğiniz sonucu göstere örnek bir dosya ekleyebilir misiniz?

 

[ÖmerBey]

İstediğiniz makro ile kolayca yapılabilecek bir şey ancak dosyanıza benzeyen bir örnek dosya yükler misiniz?

 

[officevolkn]

Malesef resimle olmaz, istediğiniz sonucu göstere örnek bir dosya ekleyebilir misiniz?

Mengkofen-Neu-G-2.xls indir

buyur hocam

 

[officevolkn]

İstediğiniz makro ile kolayca yapılabilecek bir şey ancak dosyanıza benzeyen bir örnek dosya yükler misiniz?

Mengkofen-Neu-G-2.xls indir

 

[Korhan Ayhan]

Nasıl bir düzenleme yapmak istediğinizi de belirtirseniz yardımcı olabiliriz.

Yani görmek istediğiniz sonuç nasıldır?

 

[ÖmerBey]

Aşağıdaki kodu dosyanıza uygulayınız.
Kodu çalıştırdığınızda çıkan pencereye aradığınız değeri (84152 Mengkofen) yazıp sonucu gözlemleyiniz.

Sub KOD()
veri = Application.InputBox("Aranan değeri giriniz.")
If veri = False Then Exit Sub
Set hcr = Cells.Find(veri)
adr = hcr.Address
Do
    Cells(hcr.Row, "[COLOR="Red"]H[/COLOR]") = hcr
    Cells(hcr.Row, "[COLOR="red"]I[/COLOR]") = hcr.Offset(0, 1)
    Set hcr = Cells.FindNext(hcr)
Loop Until adr = hcr.Address
End Sub

 

[officevolkn]

Aşağıdaki kodu dosyanıza uygulayınız.
Kodu çalıştırdığınızda çıkan pencereye aradığınız değeri (84152 Mengkofen) yazıp sonucu gözlemleyiniz.

Sub KOD()
veri = Application.InputBox("Aranan değeri giriniz.")
If veri = False Then Exit Sub
Set hcr = Cells.Find(veri)
adr = hcr.Address
Do
    Cells(hcr.Row, "[COLOR="Red"]H[/COLOR]") = hcr
    Cells(hcr.Row, "[COLOR="red"]I[/COLOR]") = hcr.Offset(0, 1)
    Set hcr = Cells.FindNext(hcr)
Loop Until adr = hcr.Address
End Sub

hocam ne kadar teşekkür etsem azdır allah bin kere razı olsun allah ne muradın varsa versin

 

[officevolkn]

hocam ne kadar teşekkür etsem azdır allah bin kere razı olsun allah ne muradın varsa versin

hocam tam istediğim oldu ama adres kısmında yine bölge ismi bırakıyor ve şimdi de onları tek tek siliyorum onun işin bir şey yapabilir miyiz aşagıda bir ornek var

http://www.upturkey.com/download.php?file=719Mengkofen Neu G 22.xls

burada B kutucuğunda 84152 Mengkofen bu sözcük kalıyor formülü yapınca ben bunlarıda silmek istiyorum yardımcı olursanız çok sevinirim

 

[ÖmerBey]

Tek tek silmenize gerek yok, Bul-Değiştir kullanabilirsiniz. Nasıl yapılacağını diğer konunuza yazdım.
Aynı işlemi kodla yapmak için kodu aşağıdaki şekilde değiştiriniz.

Sub KOD()
veri = Application.InputBox("Aranan değeri giriniz.")
If veri = False Then Exit Sub
Set hcr = Cells.Find(veri)
adr = hcr.Address
Do
    Cells(hcr.Row, "H") = hcr
    Cells(hcr.Row, "I") = hcr.Offset(0, 1)
    Set hcr = Cells.FindNext(hcr)
Loop Until adr = hcr.Address
[COLOR="Red"]Columns("B:F").Replace veri, ""[/COLOR]
End Sub

 

[ÖmerBey]

Aşağıdaki linkteki dosyayı inceleyiniz istediğiniz farklı bir şey ise almak istediğiniz sonucu gösteren bir örnek dosya yükleyiniz.
http://s3.dosya.tc/server32/GgV4BH/office.rar.html