makro

[onurbeyaz]

Merhaba

ben bir makro istiyorum bilmiyorum sitenizde daha önceden varmı göremedim araştırdım benim istediğim makro şu şekilde diyelim ki A sütununda 3000 TL var B Sütununda 1000 c sütununda 500 d sütununda 2000 tl e sutünunda 650 tl var bana desin ki sistem 3000tl ye denk gelen tutarlar b sutundaki 1000tl d sutundaki 2000 TL belki net anlatamamış olabilirim anlıcağınızı umuyorum ama bu konuda destekçi olabilecek arkadaşlarımız varmıdır acaba

 

[hmtstc]

merhaba,

Sub toplama()
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
Cells.Select
Selection.Interior.ColorIndex = Empty

    toplam = Cells(i, 1)
    a = Cells(i, 2)
    b = Cells(i, 3)
    c = Cells(i, 4)
    
    If a = toplam Then
    Cells(i, 2).Interior.ColorIndex = 3
    End If
    If b = toplam Then
    Cells(i, 2).Interior.ColorIndex = 3
    End If
    If c = toplam Then
    Cells(i, 2).Interior.ColorIndex = 3
    End If
    If toplam = a + b Then
    Cells(i, 2).Interior.ColorIndex = 3
    Cells(i, 3).Interior.ColorIndex = 3
    End If
    If toplam = a + c Then
    Cells(i, 2).Interior.ColorIndex = 3
    Cells(i, 4).Interior.ColorIndex = 3
    End If
    If toplam = b + c Then
    Cells(i, 3).Interior.ColorIndex = 3
    Cells(i, 4).Interior.ColorIndex = 3
    End If
    If toplam = a + b + c Then
    Cells(i, 2).Interior.ColorIndex = 3
    Cells(i, 3).Interior.ColorIndex = 3
    Cells(i, 4).Interior.ColorIndex = 3
    End If
Next
End Sub

 

[onurbeyaz]

konu biraz karışık ama tekrar örnek dosya ile birlikte paylaşıyorum Desteklerinizi rica ederim Şimdiden çok teşekkür ederim

Ekte 1.sayfa ve 2.sayfa olmak üzere 2 sheet var benim istediğim 1 sayfa daki ilk sırada örnek yapmaya çalıştım 616,26 TL var ben diyorum ki bu 616,26 tl ye denk gelen 2.sayfadaki 9 adet tutarın toplamı var ya onu bulsun yanındaki sas karşılığını yazsın bu konuda destek olabilir misiniz yada farklı alternatif fikirlerinizi sunabilir misiniz şimdiden çok teşekkürler

 

[onurbeyaz]

merhaba Konu biraz karışık Ama siz değerli üstadlarım destek olursanız ortaya birşeyler çıkabilir desteklerinizi rica ederim

hmtstc Hocamız Elinden geldiğince destekçi oldu ama tıkandığı noktalar oldu bu konuda fikir ve desteklerinizi özellikle rica ediyorum