• Merhaba Dostlar,
    yeni forum ile yola devam ediyoruz. Bu büyüklükte bir forum yeni bir sisteme taşımak epey bir yordu bizi. Üstelik bir de yeni XenForo Forum altyapısına geçtik.
    Eminim çok yerde hatalar ve eksikler vardır. Kısa sürede toparlayıp hızlı bir şekilde yolumuza devam edeceğiz.
    Lütfen gördüğünüz eksik ve hataları aşağıdaki bölüme dönderin. Sırasıyla inceleyip yapılabilirliği varsa üzerinde çalışacağım.
    HATA BİLDİRİM BAŞLIĞI
    Forumdaki kullanıcı adınızla ile giriş yapamıyorsanız kullanıcı adınızın sonuna 1 veya 2 gibi rakamlar ekleyerek deneyin.

    Hepimize Hayırlı Olsun!
    Hüseyin
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
5,929
Beğeniler
58
Excel Vers. ve Dili
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