Dolgu rengine göre bilgi alma

[Enterprisers]

Arkidişler size nacizane acele bir soru sorsam
Excelde alt alta aynı sütunda 20 hücrem var bazılarının dolgu rengi krmızı bazılarının sarı ve 1 sayfada böyle 150 tane sayfa ile çalışıyorum veeee bu sütunlardan kırmızı dolgu rengindekileri tek bir sayfaya çağırmak istiyorum yani mesel Sayfa1 kırmızı renkteki hücreler a7=40 a10=60 diiyecek
Bunu nasıl yapabilirim çok acil please

 

[Necdet]

Merhaba,

Sorunuzu örnek dosya ile desteklerseniz, arkadaşların daha hızlı çözüm üreteceklerine yardımcı olmuş olursunuz.

 

[Enterprisers]

Örnekteki dosyada sayfa1de f4 f5 f11 f21 hücreleri ve sayfa2 de f4 f7 f10 f13 hücreleri kırmızı dolgu renginde kırmızı isimli sayfaya a sütununa sayfa1 b sütununa f4 f5 f11 f21 yazsın mümkünmüdür acep

 

[Orion1]

Ekli dosyayı inceleyiniz.

Sub yaz()
Dim hucre As Range, alan1 As Range, alan2 As Range, sat As Byte
Sheets("kırmızı_hucreler").Range("A2:B65536").ClearContents
Set alan1 = Sheets("Sayfa1").Range("F4,F5,F11,F21") 'Sayfa1 Kırmızı hücreler sayfası b süyununa
Set alan2 = Sheets("Sayfa2").Range("F4,F7,F10,F13") 'Sayfa2 kırmızı hücreler sayfası A sütununa
sat = 2
For Each hucre In alan1
    If hucre.Interior.ColorIndex = 3 Then
        Sheets("kırmızı_hucreler").Cells(sat, "B").Value = hucre.Value
        sat = sat + 1
    End If
Next
sat = 2
For Each hucre In alan2
    If hucre.Interior.ColorIndex = 3 Then
        Sheets("kırmızı_hucreler").Cells(sat, "A").Value = hucre.Value
        sat = sat + 1
    End If
Next
Sheets("kırmızı_hucreler").Select
MsgBox "İşlem Tamam..!!", vbOKOnly + vbInformation, "İŞLEM"
        

End Sub