Renkten renge kadar toplama

[waytooraider]

Merhaba,
Ekteki 5000 satırlı excelde beyaz hücreler hariç,(dolgusuz),aynı renkli hücreden bir alttaki aynı renkli hücreye kadar toplam alması sağlanabilir mi?Çok utopik bir istek olduğunu biliyorum,yinede teşekkür ederim.

 

[waytooraider]

Galiba çözümü yok..

 

[Korhan Ayhan]

Bu renkli alanların yan sütunlarındaki bilgilerde ayrıştırıcı ifadeler varsa formüllerde kullanılabilir.

 

[hoguz2]

merhaba ,

Ekli dosyanızı goremiyorum.. Tam isteginize gore bir cevap vermiyor olabilirim ama linkteki dosyayi bir inceler misiniz.. Tam istediginiz olmasa da isinizi kolaylasitracagindan eminim zira renkli hucrelere göre toplama yapan bir ornek..

https://yadi.sk/d/6qHjbBII3KFLNm

 

[halit3]

kod:

Sub Makro2()


ilk = 9
sut = 9
son1 = Cells(Rows.Count, sut).End(3).Row
For r = 10 To 137 'son1

aranan1 = Cells(r, sut).Interior.ColorIndex

If aranan1 = 24 Then
son = r - 1
Cells(ilk, sut).Value = "=SUM(I" & ilk + 1 & ":I" & son & ")"
ilk = son + 1
End If
Next

Cells(son + 1, sut).Value = "=SUM(I" & son + 2 & ":I" & son1 - 1 & ")"

Cells(son1, sut - 1).Value = "=SUM(I5:I" & son + 2 & ")"
MsgBox "işlem tamam"

End Sub

 

[waytooraider]

Halit Bey,kodunuzu çalıştıramadım... Immediate tarafında yapıştırdım olmadı.
Korhan Bey,yandaki stunlarda sadece malzeme tanımları,miktarları yazıyor.Metraj tablosu,İş yerinde dosya yüklyemeiyorum,IT izin vermiyor..Eve geçince ekleyeceğim.

 

[halit3]

kodu bir modüle ekliyeceksiniz.

1 nolu mesajınızdaki dosyada çalışıyor.
ayrıca kodun çalışması için dosyanın uzantısı ya xls olacak yada xlsm olacak.
tabi makrolarda etkin olmalı

 

[waytooraider]

Sub end sub koydum oldu elinize sağlık