Renk kırılımı olmasın ve toplamı yazsın

[sesar]

Merhaba;

Listemde model numarası ve renk kırılımlı siparişler mevcut. Ben bunun renk kırılımını tablomda nasıl kaldırabilir ve toplatabilirim?
Pivottable daki gibi olmasını istiyorum, mükerrer model kodlarını temizlemek istiyorum.

http://dosya.co/1qtkmqolid3n/ÖRNEK_DOSYA.xlsx.html




Şimdiden teşekkürler.

 

[Necdet]

Merhaba,

Kendi adıma söyleyim ne istediğinizi tam olarak anlamadım.

 

[sesar]

Merhaba;
Model Kodu mükerrerliği mevcut. Yani bir modelin birkaç çeşit rengi var. Ben bunu nasıl hızlıca kaldırabilirim diye sordum.
İstediğim tablo aşağıdaki gibidir.

 

[Necdet]

Merhaba,

Aşağıdaki kodları bir modüle kopyalayıp deneyiniz.

Not : Dosyanızın yedeğini almayı unutmayınız.

Değişik yöntemlerle olabilir, ben işin tembelliğine kaçtım.

Sub Tek()

    Dim i As Long
    
    Application.ScreenUpdating = False
    
    i = Cells(Rows.Count, "A").End(3).Row
    
    Range("A2:J" & i).Sort Key1:=[A1]
    
    For i = i To 3 Step -1
        If Cells(i, "A") = Cells(i - 1, "A") Then
            Cells(i - 1, "J") = Cells(i - 1, "J") + Cells(i, "J")
            Rows(i).Delete
        End If
    Next i

    Application.ScreenUpdating = True
    
End Sub

 

[sesar]

Hocam makronuz çalıştı teşekkürler.

a2, J, i değişkenleri nasıl kullanılıyor? Yani şablonum değiştiğinde makro çalışmadı doğal olarak.
Mantığını da açıklayabilirseniz çok sevinirim.

 

[sesar]

Hocam makronuz çalıştı teşekkürler.

a2, J, i değişkenleri nasıl kullanılıyor? Yani şablonum değiştiğinde makro çalışmadı doğal olarak.
Mantığını da açıklayabilirseniz çok sevinirim.