Hücreleri eşitleme

[acar6783]

Ekteki dosyada bir lsitem var yoldakı urunler ve teslım adıklarım
bunların karsılastırmasını kolay bı sekılde yapmak ıstıyorum :

Dosyada b sutunu ve c sutununda gelen mıktar ve sayılan mıktar var bunlar esıtse ben sarıya boyuyprum ıkısını bunu formulle nasıl yapabılırız bır de su problemım var dosyada gorecegınız uzere yoldakıler bolumunde tekrar eden satırlar var bunları tek satrda toplamı olarak bırlestrmem mumkun mudur sayet bu olmazsa formul ıse yaramıycaktr ve yıne aynı ısı yapmak zorunda kalcagım

 

[Ömer]

Merhaba,

Module kopyalayıp çalıştırınız.

Sub BensersizListeleTopla()
 
    Dim d, s, a1, a2, deg, i As Long, son As Long
 
    Set d = CreateObject("Scripting.Dictionary")
 
    Application.ScreenUpdating = False
 
    For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row
        deg = Cells(i, "A")
        If Not d.exists(deg) Then
            s = Array(1, Cells(i, "B"))
            d.Add deg, s
        Else
            s = d.Item(deg)
            s(1) = s(1) + Cells(i, "B")
            d.Item(deg) = s
        End If
    Next i
 
    a1 = d.keys: a2 = d.items
 
    Range("A2:A" & Rows.Count).ClearContents
 
    For i = 0 To d.Count - 1
        Cells(i + 2, "A") = a1(i)
        s = a2(i)
        Cells(i + 2, "B") = s(1)
    Next i
 
    son = Cells(Rows.Count, "A").End(xlUp).Row + 1
 
    Range("B" & son & ":B" & Rows.Count).ClearContents
 
    Set d = Nothing
    Application.ScreenUpdating = True
 
End Sub

.

 

[acar6783]

kopyaladım ama bısey olmadı hocam sız dosya uzerınde yapabılırmsnz
simdiden tesekkur ederım

 

[acar6783]

hocam yaptım ama renklendrme olmadı

 

[Ömer]

İki verinin aynı satırda olma durumu yok mu?

Örneğin;

A kitabı 5 satmış ve 3.satırda bulunuyor.

Diğer sütunda ise A kitabı 12.satır da ve 7 satmış.

Bu şekilde verilerin karşışık sırada olma ihtimali yok mu? Eğer varsa renklendirme yaparsanız sorun yaşamazmısınız. Veriler eşit olursa sıralama ile bu problem çözülebilir fakat verilerin eşitliği her zaman oluyor mu?

Yaşamam derseniz renklendirme tam olarak nasıl olacak, daha detaylı açıklayınız.

.

 

[acar6783]

hocam vermış olduğunuz kod işimi bir nebze kolaylaştırdı ama herseferinde kodu çalıştırmam gerekiyor :
renklendırme su sekılde ıstemıstım daha detyalı olursam:
b ve c sutunundakı sayılar karsılıklı esitse eğer eşit olan iki hcre sarıya boyansın yada başka bır renk onemlı degıl eğer eşit değilse renksiz kalsın

 

[Ömer]

Bu işlemi koşullu biçimlendirme ile de yapabilirsiniz.

B2:C120 ( 120 değerini artırabilirsiniz. ) aralığını fare ile seçin, biçim / koşullu biçimlendirmeden formül bölümüne;

=İNDİS($C:$C;KAÇINCI($A2;$D:$D;0))=$B2

yazıp menüyü kapatmadan biçimden sarı rengi seçin ve tamam ile işlemi bitirin.

.

 

[acar6783]

denedim ama hiçbirsey olmadı hocam

 

[acar6783]

tmm oldu eksık yapmısım ılgınız ıcın cok tesekkur ederım