xxx 200 gr.

[oak1969]

Selam dostlar,

Bir çok stok kodumuz var, bu stok isimleri içerisinde adı geçen gramajları ayırmam gerekiyor, Stok isim sonlarında bazen yazı da olabiliyor, belli bir standardı yok. Ben o stok isimleri içerisinden sadece gram bilgilerini ayırmak istiyorum. Bunu yapabilmek mümkün müdür?


bisküvi 200 gr.
çikolata 1000 gr. paket
kurabiye 100 gr. fındıklı
.
.
yukarıdaki stok isimlerinden sırasıyla şunları ayırmam gerekiyor
200 gr.
1000 gr.
100 gr.

Yardımcı olursanız sevinirim,

Teşekkürler

Olcay

 

[uzmanamele]

merhaba

bul-değiştir yöntemini deneyiniz.
bul: gr. paket
değiştir:gr.

 

[oak1969]

merhaba

bul-değiştir yöntemini deneyiniz.
bul: gr. paket
değiştir:gr.

Sanırım anlatamadım,

"paket" sadece bir örnekti, 20000 stok kodu var, bunların birçoğunda "xxx gr." gibi gramaj bilgileri var, ancak sağında ve solundaki bilgiler çok değişik olabiliyor.
"paket, 10'lu paket, çikolatalı, şeffaf paket" vs.vs... Bunların hepsini bul - değiştir yapabilmem mümkün değil.
Bir formül bulup bu stok isimlerinin içerisinden gr. ile biten rakamları ayıklamam lazım.
ancak formül aklıma gelmiyor...

 

[mami68]

Merhabalar,

10000 gr.-a çıkma şansı varmı,yoksa maksimum 4-rakamlı gram ağırlığımı olur.

İyi çalışmalar.

 

[Korhan Ayhan]

Selamlar,

Bence farklı birimleri içeren stoklarınızı gösteren örnek bir dosya ekleyin. Onun üzerinde formülasyon daha kolay yapılabilir. Daha net cevap alırsınız.

 

[Ömer]

Merhaba,

Sanırım istediğiniz bu.

=SAĞDAN(SOLDAN(A1;BUL("gr.";A1)-2);UZUNLUK(SOLDAN(A1;BUL("gr.";A1)-2))-BUL("*";YERİNEKOY(SOLDAN(A1;BUL("gr.";A1)-2);" ";"*";UZUNLUK(SOLDAN(A1;BUL("gr.";A1)-2))-UZUNLUK(YERİNEKOY(SOLDAN(A1;BUL("gr.";A1)-2);" ";"")))))&" Gr"

.

 

[1Al2Ver]

Merhaba, bu kod çözüm olabilir mi ?

Veriler A2:A sütunda ve

çilek reçeli250gr
Ayva Reçeli450,5gr
Dana Rosto300gr

şeklinde ise ;

(Sayın Korhan Ayhan'ın çözümüdür )

Modül'e ;

Sub RAKAM_AYIR()
Columns("B:C").ClearContents
For X = 1 To [A65536].End(3).Row
If InStr(1, Cells(X, 1), " ") > 0 Then
Veri = Split(Cells(X, 1), " ")
For Y = 1 To UBound(Veri)
If IsNumeric(Veri(Y)) Then
Cells(X, 2) = Veri(Y) * 1
Cells(X, 3) = Veri(UBound(Veri))
Cells(X, 1) = Mid(Cells(X, 1), 1, WorksheetFunction.Find(Cells(X, 2), Cells(X, 1), 1) - 2)
End If
Next
End If
Next
MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

İsim, miktar ve birim'i A,B,C sütunlarına ayırır.

Kodu bir buton'a atayınız,

 

[oak1969]

Merhaba,

Sanırım istediğiniz bu.

=SAĞDAN(SOLDAN(A1;BUL("gr.";A1)-2);UZUNLUK(SOLDAN(A1;BUL("gr.";A1)-2))-BUL("*";YERİNEKOY(SOLDAN(A1;BUL("gr.";A1)-2);" ";"*";UZUNLUK(SOLDAN(A1;BUL("gr.";A1)-2))-UZUNLUK(YERİNEKOY(SOLDAN(A1;BUL("gr.";A1)-2);" ";"")))))&" Gr"

.

Bu formül işimi fazlasıyla gördü, çok sağolun...

 

[oak1969]

Stok isimlerinden sayıyı ayıklamak...

Bu formül işimi fazlasıyla gördü, çok sağolun...

...demiştim, ancak bazı durumlarda formül yanlış sonuçlar verebiliyor...
Örnek dosya da yükleyemedim malesef, ancak aşağıda bazı örnekler mevcut..

Yukarıda bahsettiğim şekilde stok isimlerimin içerisinde 600 gr, 50 gr. 10 lt gibi bilgiler mevcut, ancak bazıları da bitişik yazılmış,

Mesela üstteki uzun formüle göre aşağıdaki "frico edam sade 230gr" 23gr olarak çıkıyor.
Halbuki 230 gr olmasını istiyorum. Zor ve karışık bir durum sanırım.
Üstteki makro da pek işe yaramadı bende
:-(


TRAKYA CIFLIK KREM KASAR 500GR
TRAKYA CIFLIK BEYAZ 200GR
TRAKYA CIFLIK LABNE 200GR
PINAFORE ROKFOR PRSIYON 100GR
FRICO EDAM SADE 230GR
FRICO OTLU GOUDA 220GR
FRICO SADE GOUDA 220GR
PINAR PEY.LIGHT 12,5 GR
PINAR PUDING MUZLU 200 GR
PINAR PUDING KAKAOLU 200 GR
ICIM PUDING ALP. CIKOLATA 200 ML
DANONE DANETTE CIKOLATA SUTLU 4X75GR
ICIM PUDING CILEKLI 200 ML
ICIM PUDING MUZLU 200 ML
ICIM PUDIG ALPELLA KASE CIKOLATALI 100 GR
DANONE DANETTE CIKO PUDING 4X110GR

 

[Ömer]

Bu şekilde deneyin.

=EĞER(ESAYIYSA(BUL("gr.";A1));ARA(9,99999999999999E+307;SAĞDAN(SOLDAN(YERİNEKOY(A1;" ";"");BUL("gr.";YERİNEKOY(A1;" ";""))-1);SATIR($1:$255))+0)&" Gr.";"")

.

 

[oak1969]

Bu şekilde deneyin.

=EĞER(ESAYIYSA(BUL("gr.";A1));ARA(9,99999999999999E+307;SAĞDAN(SOLDAN(YERİNEKOY(A1;" ";"");BUL("gr.";YERİNEKOY(A1;" ";""))-1);SATIR($1:$255))+0)&" Gr.";"")

.

Bu siteye bayılıyorum, süpersiniz...
Öyle çok işime yaradı ki anlatamam.

Çok teşekkürler

 

[Ömer]

Rica ederim. İşinize yaradığına sevindim, iyi çalışmalar.

.

 

[oak1969]

Yeni soru...

Selam arkadaşlar,


Bu formül ile bağlantılı olarak bir başka sorum olacak...
Ekteki örnek dosyada göreceğiniz gibi, bütün değerleri yanyana getirdim,
ancak en son yeşil renkli kolona, bu hücrelerde hatalı olmayan ancak olması gereken değeri getirmek istiyorum. Bunu nasıl yaparım acaba? Yardımcı olursanız sevinirim.

Teşekkürler

Olcay

 

[Korhan Ayhan]

Selamlar,

H2 hücresine aşağıdaki formülü uygulayıp denermisiniz. Dizi formüldür. Formülü hücreye yazdıktan sonra CTRL+SHIFT+ENTER tuşları ile tamamlayın.

=İNDİS(B2:G2;1;KAÇINCI(1;(B2:G2<>"")*(B2:G2<>"#YOK");0))

 

[oak1969]

Selamlar,

H2 hücresine aşağıdaki formülü uygulayıp denermisiniz. Dizi formüldür. Formülü hücreye yazdıktan sonra CTRL+SHIFT+ENTER tuşları ile tamamlayin.

=İNDİS(B2:G2;1;KAÇINCI(1;(B2:G2<>"")*(B2:G2<>"#YOK");0))

Tamamdır üstad, işe yaradı...

Çok teşekkürler