Yardım Macronun Revize Edilmesi

[ExcelCahili]

Merhaba

Bir konuda desteklerinizi rica ediyorum bir macrom var ;

1. Satırın parça numarası, sipariş miktarı ve sipariş tarihi kontrol ediliyor.
2. Eğer işlem yapılan parça numarası farklıysa, aynı parça numarasına sahip önceki siparişlerin toplam miktarı 50’den fazla mı diye kontrol ediliyor. Eğer öyleyse, ilk siparişin yanındaki hücreye toplam miktar yazılıyor ve ilk siparişin tarihi yanındaki hücreye yazılıyor. Eğer değilse, toplam miktarı 50 ve üzeri olacak şekilde önceki siparişlerin sipariş miktarları toplanıyor ve ilk siparişin tarihi yanındaki hücreye yazılıyor. Ayrıca, önceki siparişlerin sipariş tarihi bilgileri, toplam miktarı 50 ve üzeri olan ilk siparişin tarih bilgisine kopyalanıyor.
3. Eğer işlem yapılan parça numarası aynıysa, sipariş tarihleri kontrol ediliyor. Eğer tarihler aynıysa, sipariş miktarları toplanıyor. Eğer tarihler farklıysa, önceki siparişlerin toplam miktarı 50’den fazla mı diye kontrol ediliyor. Eğer öyleyse, ilk siparişin yanındaki hücreye toplam miktar yazılıyor ve ilk siparişin tarihi yanındaki hücreye yazılıyor. Toplam miktar, şimdiki siparişin miktarıyla güncelleniyor ve işlem yapılıyor.
4. Son satıra gelindiğinde, aynı parça numarasına sahip önceki siparişlerin toplam miktarı 50’den fazla mı diye kontrol ediliyor. Eğer öyleyse, ilk siparişin yanındaki hücreye toplam miktar yazılıyor ve ilk siparişin tarihi yanındaki hücreye yazılıyor. Eğer değilse, toplam miktarı 50 ve üzeri olacak şekilde önceki siparişlerin sipariş miktarları toplanıyor ve ilk siparişin tarihi yanındaki hücreye yazılıyor. Ayrıca, önceki siparişlerin sipariş tarihi bilgileri, toplam miktarı 50 ve üzeri olan ilk siparişin tarih bilgisine kopyalanıyor.

Benim istediğim 50 altı kalan siparişlerin Sütun 2 sipariş miktarlarını toplama yaptığı her set için sütun 4 aynen getirmesi ayrıca o set için yine ilk tarihi Sütun 5 kopyalaması destek olursanız minnettar kalırım.Teşekkürler.

 

[Sirius]

Merhaba

Bir konuda desteklerinizi rica ediyorum bir macrom var ;

1. Satırın parça numarası, sipariş miktarı ve sipariş tarihi kontrol ediliyor.
2. Eğer işlem yapılan parça numarası farklıysa, aynı parça numarasına sahip önceki siparişlerin toplam miktarı 50’den fazla mı diye kontrol ediliyor. Eğer öyleyse, ilk siparişin yanındaki hücreye toplam miktar yazılıyor ve ilk siparişin tarihi yanındaki hücreye yazılıyor. Eğer değilse, toplam miktarı 50 ve üzeri olacak şekilde önceki siparişlerin sipariş miktarları toplanıyor ve ilk siparişin tarihi yanındaki hücreye yazılıyor. Ayrıca, önceki siparişlerin sipariş tarihi bilgileri, toplam miktarı 50 ve üzeri olan ilk siparişin tarih bilgisine kopyalanıyor.
3. Eğer işlem yapılan parça numarası aynıysa, sipariş tarihleri kontrol ediliyor. Eğer tarihler aynıysa, sipariş miktarları toplanıyor. Eğer tarihler farklıysa, önceki siparişlerin toplam miktarı 50’den fazla mı diye kontrol ediliyor. Eğer öyleyse, ilk siparişin yanındaki hücreye toplam miktar yazılıyor ve ilk siparişin tarihi yanındaki hücreye yazılıyor. Toplam miktar, şimdiki siparişin miktarıyla güncelleniyor ve işlem yapılıyor.
4. Son satıra gelindiğinde, aynı parça numarasına sahip önceki siparişlerin toplam miktarı 50’den fazla mı diye kontrol ediliyor. Eğer öyleyse, ilk siparişin yanındaki hücreye toplam miktar yazılıyor ve ilk siparişin tarihi yanındaki hücreye yazılıyor. Eğer değilse, toplam miktarı 50 ve üzeri olacak şekilde önceki siparişlerin sipariş miktarları toplanıyor ve ilk siparişin tarihi yanındaki hücreye yazılıyor. Ayrıca, önceki siparişlerin sipariş tarihi bilgileri, toplam miktarı 50 ve üzeri olan ilk siparişin tarih bilgisine kopyalanıyor.

Benim istediğim 50 altı kalan siparişlerin Sütun 2 sipariş miktarlarını toplama yaptığı her set için sütun 4 aynen getirmesi ayrıca o set için yine ilk tarihi Sütun 5 kopyalaması destek olursanız minnettar kalırım.Teşekkürler.

Merhaba,

Anladığım kadarıyla, istediğiniz şey, makronun tamamını değiştirmeden, yalnızca 50'den az sipariş verilen durumlarda Sütun 4 ve Sütun 5'e yazılacak verileri değiştirmek. Bunu yapmak için, mevcut makronun sonuna aşağıdaki kodu ekleyebilirsiniz:

'Loop through each row in the worksheet
For i = 2 To lastRow
    
    If Range("B" & i).Value < 50 Then
       
        Range("D" & i).Value = Range("B" & i).Value
       
        Range("E" & i).Value = Range("C" & i).Value
        
        If Range("A" & i).Value = Range("A" & i - 1).Value Then
          
            Range("D" & i).Value = Range("D" & i).Value + Range("D" & i - 1).Value
           
            Range("E" & i).Value = Range("E" & i - 1).Value
        End If
    End If
Next i

Bu kod, her satır için sipariş miktarını kontrol eder ve eğer 50'den azsa, Sütun 4'e miktarı, Sütun 5'e tarihi yazar. Ardından, aynı parça numarasına sahip önceki satırların sipariş miktarlarını toplar ve Sütun 4'e yazar, Sütun 5'e ise ilk sipariş tarihini kopyalar.

Makronun geri kalanı aynı kalmalıdır ve sipariş miktarı 50'den fazla olan satırlar için önceki işlemi yapmaya devam etmelidir.