Tüm Sayfalardaki Değeri Kontrol Edip Sayfa İsmini Listeleme

[cenkataseven]

Merhaba,

4 sayfalık bir excel dosyasında,

Sheet1, Sheet2, Sheet3 sayfalarının C4 hücrelerini kontol edip, C4 >1 olanların sayfa isimlerini Sheet4 sayfasındaki A kolonuna listelemek istiyorum. VBA kodu için yardımcı olabilir misiniz?

 

[Haluk]

Sub Test()
    Sheets("Sheet4").Activate
    Range("A:A").Clear
    For i = 1 To Sheets.Count
        If Sheets(i).Name <> "Sheet4" And Sheets(i).Range("C4") > 1 Then
            r = r + 1
            Cells(r, 1) = Sheets(i).Name
        End If
    Next
End Sub

.

 

[cenkataseven]

Çok teşekkür ederim.