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

Katılım
18 Kasım 2012
Mesajlar
28
Beğeniler
0
Excel Vers. ve Dili
Excel 2010 - İngilizce
#1
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

Özel Üye
Katılım
7 Temmuz 2004
Mesajlar
6,968
Beğeniler
425
Excel Vers. ve Dili
32 Bit 2010 - İngilizce
#2
Kod:
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
.
 
Üst