Toplamı Veren Sayıların Hücreleri Renklensin...

[ataköylü-59]

Saygıdeğer Üstadlarım
Aşağıda link'ini verdiğim dosyamda G sütunundaki sayılardan hangisi veya hangilerinin Toplamı J2 deki sayıya eşit ise G sütunundaki bu sayıların bulunduğu hücre yada hücreler renklensin istiyorum. Her türlü çözüm benim için geçerlidir.
Not: Hem J2 deki Sayı ve hemde G sütunundaki sayılar değişkendir. Ancak her zaman J2 ye yazılan sayı mutlaka G sütununda bulunan sayı yada sayılar toplamına eşittir. Bu yapılabilir mi? Bilmiyorum. Kendim bu işin içinden çıkamadım. İlgilenecek kardeşlerime şimdiden Teşekkür ederim.

http://s5.dosya.tc/server4/cpjqxv/Toplam.xlsx.html

 

[Korhan Ayhan]

Linki inceleyiniz.

Toplamı oluşturan hücreler hangisi

 

[ataköylü-59]

Sayın Korhan bey hocam
Vermiş olduğunuz link'i baştan sona inceledim. Ancak burada konuya esas teşkil eden Dosyalara Altın üye olmamam sebebiyle ulaşamadım. Ayrıca kod bilgimde yok denecek kadar azdır. ilgili dosyamdaki sorunum için Çözücü eklentisini kullanarak ve Koşullu biçimlendirme ile bir çözüm üretebildim. Ancak bu yöntemde satır sayısı çok olduğu zaman epey uzun zaman sonunda sonuç alıyorum. Bir başka Platformda bir arkadaşımız aşağıdaki Kodu yazdı Kod sorunsuz olarak çalışıyor Ama buda en fazla üçlü kombinasyona kadar sonuç üretiyor. Bunu daha fazla kombinasyonlu hale nasıl getireceğimi bilemiyorum. Bu yüzden biraz gecikmeli olarak dönüş yaptım. İlgilendiğiniz için Teşekkürlerimi sunarım.
Dosya linki;
http://s5.dosya.tc/server4/5mjnq4/Kombinasyon.rar.html

Sub Düğme1_Tıklat()
Range("H:J").ClearContents
Range("G:G").Interior.ColorIndex = xlNone
Dim Rky As Integer
Application.ScreenUpdating = False
sonuç = Range("K2").Value
renk = 2
For i = 2 To Range("g65536").End(3).Row
      If Range("g" & i).Value = sonuç Then
            renk = renk + 1
         Range("H" & i) = 1
         Range("g" & i).Interior.ColorIndex = renk
      End If
  For a = i + 1 To Range("g65536").End(3).Row
   If Range("g" & i) + Range("g" & a) = sonuç Then
            renk = renk + 1
       Range("I" & i) = 2
       Range("I" & a) = 2
       Range("g" & a).Interior.ColorIndex = renk
       Range("g" & i).Interior.ColorIndex = renk
   End If
   For c = a + 1 To Range("g65536").End(3).Row
      If Range("g" & i) + Range("g" & a) + Range("g" & c) = sonuç Then
            renk = renk + 1
       Range("g" & c).Interior.ColorIndex = renk
       Range("g" & a).Interior.ColorIndex = renk
       Range("g" & i).Interior.ColorIndex = renk
       Range("J" & c) = 3
       Range("J" & a) = 3
       Range("J" & i) = 3
      End If
   Next
  Next
Next

'For Rky = Range("A65536").End(3).Row To 1 Step -1
 '       If IsEmpty(Cells(Rky, "F")) And IsEmpty(Cells(Rky, "G")) And IsEmpty(Cells(Rky, "H")) Then
  '          Cells(Rky, "B").Resize(, 9).Delete
   '     End If
    'Next Rky
    
Application.ScreenUpdating = True

End Sub

 

[Korhan Ayhan]

Verdiğim linkteki dosyaya aşağıdaki linkten ulaşabilirsiniz.

http://s4.dosya.tc/server4/u753ln/Kombinasyonlari_Listelemek.rar.html

 

[ataköylü-59]

Teşekkürler Korhan bey
Dosyayı indirdim. Kendi dosyama uyarlayarak bir çözüme ulaşmaya çalışacağım.