• DİKKAT

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

adet miktarını paket yada koliye çevirmek

M

muratkul

Katılım
27 Ocak 2009
Mesajlar
243
Excel Vers. ve Dili
EXCEL2003,TÜRKÇE
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
 
Sadece 4 kalem ürün mü var?
Bence Örnek Dosyanızı ekleyin daha sağlıklı bir çözüm bulunur.
 
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
 
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.
.
 
Son düzenleme:

ç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
 
40 ve 60 bilgisini nerden alıyor? Yada nereye gireceksiniz.
 
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.
 
muratkul' Alıntı:
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.
Genişletmek için tıkla ...

60 yazıyorsa otomatik burada 3 görünsün
Bu 60 nerde yazıyor ben onu sormuştum.
 
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
 
muratkul' Alıntı:
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
Genişletmek için tıkla ...

En başta formül yazıyordu, formül üzerinden mantık yürütmeye çalıştım.
Makro ile olabilir.
 
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.

C++: 
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 s2.dosya.tc
 

Ekli dosyalar

Son düzenleme:
ç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
 
muratkul' Alıntı:
ç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
Genişletmek için tıkla ...

Veriler B, Sonuç Z olacaksa, C yazan yeri Z ile değiştirin.
 
İstenilen sonucun tamamını örnek 1 dosya yükleyerek tarif ediniz.
Kullandığınız dosyanin örneğini eklerseniz daha sağlıklı.
 
C++: 
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
 

Ekli dosyalar

Çok Teşekkür ederim. Valla Tam istediğim gibi olmuş. Allah Razı OLsun.Emeğinize sağlık....
 
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 s2.dosya.tc
 
Son düzenleme:
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst