• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Hücre ıcınden belırlı metınlerı alıp bırlestırmek.

K

kneehot

Katılım
4 Ekim 2007
Mesajlar
632
Excel Vers. ve Dili
OFFİCE 365
Herkese ıyı gunler.arkadaslar elımdekı malların ısım acıklamalarının yanında agırlık bırım ve adetlerı yazmaktadır

ornek olarak
salgam suyu 1 lt (20)

bu verıden ıstedıgım yerlerı alıp 20 x 1 lt yazmasını ıstıyorum.ornek ıcınde anlatmaya calıstım.tum yardımlara tesekkurler.
 

Ekli dosyalar

Metni sütunları dönüştür yaptıktan sonra

İstediklerinizi kendiniz yapabilirsiniz
 
kuvari' Alıntı:
metni sütunları dönüştür yaptıktan sonra

istediklerinizi kendiniz yapabilirsiniz
Genişletmek için tıkla ...

sayın kuvarı o bilgiler muhasebe programından gelıyor ve bır lısteye gırıyor.yaklasık 70 kalem mal var.sızın dedıgınız gıbı nasıl yapılabılır bılmıyorum.
 
Boşluklarda bir standart yok

Tam olarak muhasebe programından aldığınız dosyayı ekleyebilirmisiniz

Ona göre biraz daha uğraşmanız gerekebilir
 
kuvari' Alıntı:
Boşluklarda bir standart yok

Tam olarak muhasebe programından aldığınız dosyayı ekleyebilirmisiniz

Ona göre biraz daha uğraşmanız gerekebilir
Genişletmek için tıkla ...

sayın kuvari liste muhasebe programından ornek ıcıne yazdıgım gıbı gelmektedır sadece urun ısım sutunu geliyor ambalaj kısmını ben yapmaya calısıyorum ornektekı lıstenın 70 kalem maldan olustugunu dusunursek programdan aldıgım lısteyenın aynısı oluyor.sanırm dedıgınız gıbı bır standardının olmaması ısı cok zorlastırıyor.bende cok ugrastım ama beceremedım.enson sızlerden yardım almayı uygun gordum.
 
aslında soyle dusunursek bır standart var gıbı

ŞALGAM SUYU 1 LT (20) ( den once 6 karakterı standart dusunursek bosluk ve 1 ı almıs oluruz.
KAN PORTAKAL 10 KG (20) ( den once 6 karakter dusunursek 10 dan baslamıs oluruz bu rakam hıcbırzaman 100 kg yada 100 lt olmayacagı ıcın ( den once karakter sayısı herzaman 6 alınabılır.ama bunu nasıl formule ederız onu sız bılıyorsunuz :)
 
Biraz uzun oldu ama sayı değişkeni 3-4 basamaklıda olsun çalışsın şeklinde yaptım.


=MUTLAK(ARA(9,99999999999999E+307;--SAĞDAN(DEĞİŞTİR(C4;1;MİN(MBUL({0;1;2;3;4;5;6;7;8;9};C4&"0123456789"))-1;"");SATIR($A$1:$A$1024))))&" x "&YERİNEKOY(DEĞİŞTİR(C4;1;MİN(MBUL({0;1;2;3;4;5;6;7;8;9};C4&"0123456789"))-1;"");"("&MUTLAK(ARA(9,99999999999999E+307;--SAĞDAN(H4;SATIR($A$1:$A$1024))))&")";"")

.
 
ali' Alıntı:
biraz uzun oldu ama sayı değişkeni 3-4 basamaklıda olsun çalışsın şeklinde yaptım.


=mutlak(ara(9,99999999999999e+307;--sağdan(değiştir(c4;1;min(mbul({0;1;2;3;4;5;6;7;8;9};c4&"0123456789"))-1;"");satır($a$1:$a$1024))))&" x "&yerinekoy(değiştir(c4;1;min(mbul({0;1;2;3;4;5;6;7;8;9};c4&"0123456789"))-1;"");"("&mutlak(ara(9,99999999999999e+307;--sağdan(h4;satır($a$1:$a$1024))))&")";"")

.
Genişletmek için tıkla ...

sayın ali cok tesekkurler sızı gercekten yormusum fakat ekledıgım ornek dosyada d4 hucresıne yapısyırdıgım zaman formulunuzu #yok hatası verıyor.
 
=MUTLAK(ARA(9,99999999999999E+307;--SAĞDAN(DEĞİŞTİR(C4;1;MİN(MBUL({0;1;2;3;4;5;6;7;8;9};C4&"0123456789"))-1;"");SATIR($A$1:$A$1024))))&" x "&YERİNEKOY(DEĞİŞTİR(C4;1;MİN(MBUL({0;1;2;3;4;5;6;7;8;9};C4&"0123456789"))-1;"");"("&MUTLAK(ARA(9,99999999999999E+307;--SAĞDAN(C4;SATIR($A$1:$A$1024))))&")";"")

bunu dener misin
 
=MUTLAK(ARA(9,99999999999999E+307;--SAĞDAN(DEĞİŞTİR(C4;1;MİN(MBUL({0;1;2;3;4;5;6;7;8;9};C4&"0123456789"))-1;"");SATIR($A$1:$A$1024))))&" x "&YERİNEKOY(DEĞİŞTİR(C4;1;MİN(MBUL({0;1;2;3;4;5;6;7;8;9};C4&"0123456789"))-1;"");"("&MUTLAK(ARA(9,99999999999999E+307;--SAĞDAN(DEĞİŞTİR(C4;1;MİN(MBUL({0;1;2;3;4;5;6;7;8;9};C4&"0123456789"))-1;"");SATIR($A$1:$A$1024))))&")";"")

şeklinde olacak.

.
 
cılgın86'lı' Alıntı:
=mutlak(ara(9,99999999999999e+307;--sağdan(değiştir(c4;1;min(mbul({0;1;2;3;4;5;6;7;8;9};c4&"0123456789"))-1;"");satır($a$1:$a$1024))))&" x "&yerinekoy(değiştir(c4;1;min(mbul({0;1;2;3;4;5;6;7;8;9};c4&"0123456789"))-1;"");"("&mutlak(ara(9,99999999999999e+307;--sağdan(c4;satır($a$1:$a$1024))))&")";"")

bunu dener misin
Genişletmek için tıkla ...

tamam sımdı duzeldı cok tesekkurler gercekten.
 
Size bir ktf hazırladım.
Bu ktf yi çalışcağınız dosyada boş bir modüle yapıştırınız.
Kullanılışı::cool:
=ambalaj(C4)
Kod: 
Function ambalaj(deg As Range) As String
Dim z, k As Integer, amblj As String
z = Split(deg, " ")
For k = LBound(z) To UBound(z)
    If IsNumeric(z(k)) Then
        amblj = z(k) & " " & z(k + 1)
        Exit For
    End If
Next
ambalaj = amblj
z = Split(deg, "(")
For k = LBound(z) To UBound(z)
    If IsNumeric(Left(z(k), 1)) Then
        amblj = Replace(z(k), ")", "") & " X " & amblj
        Exit For
    End If
Next
ambalaj = amblj
End Function
 

Ekli dosyalar

merhaba

bundan sonra takipcisiyim.
yiğidin hakkını yiğide verin!!!
 
merhaba

syn kneehot, çözüm üreten değil düzeltmene teşekkür etmişsiniz.
syn Ali'nin hakkını teslim edin!
syn cılgın86'lı Ali beye teşekkür etmişken sizin asıl çözümü üretene teşekkür etmemeniz üzücü.
yiğidin hakkını yiğide verin!!!

not:
syn Evren Gizlen'in çalışmasını göz ardı etmiş olmanızda ayrıca cabası!
 
sanırım yanlıs anlasılmısım.ben tesekkurumu dogru yanlıs tum ılgılenenlere edıyorum.tum yardım edenlere yazan ve duzeltenlere tekrar tesekkurler.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst