Renge Göre Veri Çekmek

[ismail-34]

Çok Değerli Excel Web Ailesine selamlar.

Benim sorum bir projeme entegre etmek istediğim bir özellik.Projemdeki aynı satır sütunların durumunu simultene ettim.Gereken Bütçe bölümündeki B1 deki renk koduyla uyuşan MAL-GİRİŞİ sekmesindeki verileri,Gereken Bütçe Sekmesine çekmek istiyorum.

Renge göre veri çekebileceğim bu özellik projemde çok işime yarayacaktır.

Şimdiden çok teşekkür ederim.

 

[Mdemir63]

Selamlar
İnceleyiniz

 

[hamitcan]

Sub test()
Sheets("GEREKEN BÜTÇE").[a5:c500].ClearContents
k = 4
With Sheets("MAL-GİRİŞİ")
    For i = 3 To .[B65536].End(3).Row
        If .Cells(i, 2).Interior.Color = Sheets("GEREKEN BÜTÇE").[b1].Interior.Color Then
            k = k + 1
            Sheets("GEREKEN BÜTÇE").Cells(k, 1) = .Cells(i, 2)
            Sheets("GEREKEN BÜTÇE").Cells(k, 2) = .Cells(i, "i")
            Sheets("GEREKEN BÜTÇE").Cells(k, 3) = .Cells(i, "ab")
        End If
    Next
End With
End Sub

 

[ismail-34]

Selamlar
İnceleyiniz

harika olmuş değerli hocam sağolun varolun.herşey gönlünüzce olsun.

 

[ismail-34]

Sub test()
Sheets("GEREKEN BÜTÇE").[a5:c500].ClearContents
k = 4
With Sheets("MAL-GİRİŞİ")
    For i = 3 To .[B65536].End(3).Row
        If .Cells(i, 2).Interior.Color = Sheets("GEREKEN BÜTÇE").[b1].Interior.Color Then
            k = k + 1
            Sheets("GEREKEN BÜTÇE").Cells(k, 1) = .Cells(i, 2)
            Sheets("GEREKEN BÜTÇE").Cells(k, 2) = .Cells(i, "i")
            Sheets("GEREKEN BÜTÇE").Cells(k, 3) = .Cells(i, "ab")
        End If
    Next
End With
End Sub

Buda çok güzel çalışıyor teşekkürler hamitcan hocam.

 

[Mdemir63]

harika olmuş değerli hocam sağolun varolun.herşey gönlünüzce olsun.

Rica ederim.
İyi çalışmalar