• FORUMU MOBİL UYGULAMADAN TAKİP EDİN

    Forumu isteyen üyelerimiz Tapatalk (Harici bir hizmet) üzerinden mobil uygulamadan takip edebilirler.
    iOS için : https://itunes.apple.com/app/id307880732?mt=8
    Android için : https://play.google.com/store/apps/details?id=com.quoord.tapatalkpro.activity
    adreslerinden indirebilirsiniz.

    Bir iki haftaya da foruma özel kendi uygulamamız yayında olacak.
ALTIN ÜYELİK Hakkında Bilgi
-----------------------

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,593
Beğeniler
267
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