adet miktarını paket yada koliye çevirmek

[muratkul]

Merhabalar,
Ürünlerin adetlerini koli yada pakete çevirmek istiyorum, aşağıdaki örnekte biraz daha açıklamalı yapacam. Yardımcı olabilirmisiniz

ürün adı paket içeriği istenen miktar çevrim
salça............................24.adet.....................48 adet...................2 koli
500 gr çay.................12 adet....................36adet......................3 koli
makarna....................20 adet.....................60adet.....................3 koli
metro.........................24 adet......................96 adet...................4paket
bu şekilde çevrim yapabilecek bir formül varmı acaba

 

[sbayyigit]

Sadece 4 kalem ürün mü var?
Bence Örnek Dosyanızı ekleyin daha sağlıklı bir çözüm bulunur.

 

[muratkul]

ben örnek olarak 4 ürün gönderdim, ama 100-150 ürün olabiliyor, Altın üyeliğim bitti, yeniletmediğim için bu şekilde yazdım

 

[RBozkurt]

d2=c2/b2

Örnek hücre biçimlenirme:
Genel "Adet"
Genel "Koli"
Genel "Paket"

Yeni_Microsoft_Excel_Calisma_Sayfasi.xlsx dosyasını indir - download

Yeni_Microsoft_Excel_Calisma_Sayfasi.xlsx dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s6.dosya.tc

 

[muratkul]

Merhaba,
Peki çevrim işini başka sütunda değilde B sütununda görünmesi için nasıl yaparız.
Yani istenen miktar sutununda çevrim nasıl yaparız.
.

 

[muratkul]

çay	20 adet	40 yazıyorsa totomatik 2 görünsün	burada görünmesin
makarna	20 adet	60 yazıyorsa otomatik burada 3 görünsün	bu sutunda görünmesin

 

[RBozkurt]

40 ve 60 bilgisini nerden alıyor? Yada nereye gireceksiniz.

 

[muratkul]

40 ve 60 bizim şubelerin siparişleri Şubeler bize excelden siparişlerini gönderiyorlar. . Şubelerimiz adet bazlı sipariş veriyor bizde bu siparişi koli yada pakete çevirerek göndermek istiyoruz. Depocu arkadaşların daha rahat toplamaları için.
Ben sadece örnek olarak bunları gönderdim. Normalde satır,satır ürünler ve sütun sütun da şube isimleri var.

 

[RBozkurt]

40 ve 60 bizim şubelerin siparişleri Şubeler bize excelden siparişlerini gönderiyorlar. . Şubelerimiz adet bazlı sipariş veriyor bizde bu siparişi koli yada pakete çevirerek göndermek istiyoruz. Depocu arkadaşların daha rahat toplamaları için.
Ben sadece örnek olarak bunları gönderdim. Normalde satır,satır ürünler ve sütun sütun da şube isimleri var.

60 yazıyorsa otomatik burada 3 görünsün
Bu 60 nerde yazıyor ben onu sormuştum.

 

[muratkul]

a sütunu ürün adı....................................b sütunu ürünün koli yada paket içi.........................................sipariş
çay....................................................................................20....................................................................................................60
60 tane çay siparişi varsa 60 değilde burda 3 görünsün.
yani ilk önce 60 olarak görünsün, ama makroyu çalıştırdığımız zaman burası otomatik 3 olsun, Makro işi çözer gibi ama nasıl yapılacak ben bilmiyorum

 

[RBozkurt]

a sütunu ürün adı....................................b sütunu ürünün koli yada paket içi.........................................sipariş
çay....................................................................................20....................................................................................................60
60 tane çay siparişi varsa 60 değilde burda 3 görünsün.
yani ilk önce 60 olarak görünsün, ama makroyu çalıştırdığımız zaman burası otomatik 3 olsun, Makro işi çözer gibi ama nasıl yapılacak ben bilmiyorum

En başta formül yazıyordu, formül üzerinden mantık yürütmeye çalıştım.
Makro ile olabilir.

 

[RBozkurt]

Aşağıdaki kodu bi modüle yükleyip deneyin.
C'de yazan veriyi B'de yazan veriye böler tekrar C'ye yazar ve sonuna Koli ekler.
Makroyu 2 defa çalıştırmamaya dikkat edin yoksa tekrar işleme girer.

Sub Koli()
    Dim i As Long
    For i = 2 To Cells(Rows.Count, "C").End(xlUp).Row
        If Not IsEmpty(Cells(i, "C")) And Not IsEmpty(Cells(i, "B")) Then
            Cells(i, "C").Value = Cells(i, "C").Value / Cells(i, "B").Value & " Koli"
        End If
    Next i
End Sub

Koli yazmaması için;
Cells(i, "C").Value = Cells(i, "C").Value / Cells(i, "B").Value & " Koli"
Satırını
Cells(i, "C").Value = Cells(i, "C").Value / Cells(i, "B").Value
ile değiştirin.

KOLI.xlsm dosyasını indir - download

KOLI.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s2.dosya.tc

 

[muratkul]

çok teşekkür ederim, tam istediğim gibi olmuş, peki buradaki sütun sayısını nasıl çoğaltabiliriz. Z sütununa göre hesaplamayı nasıl yaparız

 

[RBozkurt]

çok teşekkür ederim, tam istediğim gibi olmuş, peki buradaki sütun sayısını nasıl çoğaltabiliriz. Z sütununa göre hesaplamayı nasıl yaparız

Veriler B, Sonuç Z olacaksa, C yazan yeri Z ile değiştirin.

 

[muratkul]

C DEN Z ye KADAR KOMPLE sütunları çevireceğiz

 

[RBozkurt]

İstenilen sonucun tamamını örnek 1 dosya yükleyerek tarif ediniz.
Kullandığınız dosyanin örneğini eklerseniz daha sağlıklı.

 

[muratkul]

ÖRNEK

 

[RBozkurt]

Sub KoliPaket()
'Tüm satırlardaki değerleri E hücresindeki değere bölme makrosu

'Son satırı bulma
Dim lastRow As Long
lastRow = Cells(Rows.Count, "E").End(xlUp).Row

'Son sütunu bulma
Dim lastColumn As Long
lastColumn = Cells(1, Columns.Count).End(xlToLeft).Column

'Döngü değişkenleri
Dim i As Long
Dim j As Integer

For i = 3 To lastRow 'Her satır için işlem yap
For j = 6 To lastColumn 'Her sütun için işlem yap
If Cells(i, j).Value <> "" Then 'Eğer hücre dolu ise
Cells(i, j).Value = Cells(i, j).Value / Cells(i, "E").Value 'Hücrenin değerini E hücresindeki değere böl
End If
Next j
Next i

End Sub

 

[muratkul]

Çok Teşekkür ederim. Valla Tam istediğim gibi olmuş. Allah Razı OLsun.Emeğinize sağlık....

 

[muratkul]

Kusura Bakmayın, Makronuz çalışıyor fakat 600adet satır var, sadece 400 satıra kadar hesaplama yapıyor, diğer 200 satırı yapmıyor, Satır ve sütun sayısını sonsuz yapabilrmisiniz Size zahmet olmazsa eğer.

sube_siparisleri.xlsm dosyasını indir - download

sube_siparisleri.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s2.dosya.tc