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

[kneehot]

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.

 

[Erdem Akdemir]

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

İstediklerinizi kendiniz yapabilirsiniz

 

[kneehot]

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

istediklerinizi kendiniz yapabilirsiniz

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.

 

[Erdem Akdemir]

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

 

[kneehot]

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

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.

 

[kneehot]

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

 

[İhsan Tank]

=SAĞDAN(C4;10)
bu formül işinizi görürmü_?

 

[Ali]

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))))&")";"")

.

 

[kneehot]

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))))&")";"")

.

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.

 

[İhsan Tank]

=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

 

[Ali]

=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.

.

 

[kneehot]

=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

tamam sımdı duzeldı cok tesekkurler gercekten.

 

[İhsan Tank]

tamam sımdı duzeldı cok tesekkurler gercekten.

iyi çalışmalar ALİ UZMAN'a Teşekkürler

 

[Orion1]

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ışı:
=ambalaj(C4)

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

 

[uzmanamele]

merhaba

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

 

[uzmanamele]

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ı!

 

[kneehot]

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.