Sayfalardaki belli hücreleri listelemek

[mehmet2285]

merhabalar,
düşündüğüm yapmak istediğim şeyi anlatayım kısaca

benim dosyamda çok fazla çalışma sayfası var

tek bir komut düğmesi ile bütün sayfalardaki (B1,C10,G5,H5) hücreLERİ
benim "liste" adlı sayfamda
2. satırdan itibaren sırasına göre listelensin..
böyle birşey mümkün mü

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub BELLİ_HÜCRELERİ_LİSTELE()
    Dim SAYFA As Worksheet, Satır As Long
    
    Satır = 2
    
    With Sheets("liste")
    
    .Range("A2:D65536").ClearContents
    
    For Each SAYFA In Worksheets
        If SAYFA.Name <> "liste" Then
        .Cells(Satır, 1) = SAYFA.Range("B1")
        .Cells(Satır, 2) = SAYFA.Range("C10")
        .Cells(Satır, 3) = SAYFA.Range("G5")
        .Cells(Satır, 4) = SAYFA.Range("H5")
        Satır = Satır + 1
        End If
    Next
    
    .Select
    
    End With
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[mehmet2285]

Yardımınız için tşkler korhan bey, çok faydalı oldu gerçekten kolay gelsin.