Tüm Sayfalarda Makroyu Çalıştırma

[rvoncu]

Merhabalar ;
Çalıma kitabındaki tüm sayfalarda benim belirlediğim ve her sayfa için aynı olan hücreleri silmek istiyorum.Tuşa bu kod ile atama yaptım ama sadece 1 sayfayı siliyor diğer sayfalar kalıyor.Ne ekleme gerekiyor acaba ?

Sub Löschen()
Range("D10,E10,F10").ClearContents
Selection.ClearContents
End Sub

 

[yusuf1284]

Kardeşim şu şekilde döngü ile tüm sayfaları gezebilirsin.

Sub testsayfalar()

For Each sayfa In ThisWorkbook.Sheets
    sayfa_adı = sayfa.Name 'sayfa adını alma
        If sayfa_adı = "rapor" Then 'rapor adında sayfaya gelince
            'rapor adında sayfaya gelince bunları yap.
            Exit Sub
        End If
 'buraya istedğiniz kodları ekleyin örnek a1 değerini her sayfa için getirmek için
    MsgBox sayfa_adı & "-" & sayfa.Range("A1").Value

Next

End Sub

 

[Muzaffer Ali]

Merhaba.

Alternatif kod.
Hangi sayfaların silinmesini istiyorsanız sayfa isimlerini kendinize göre değiştirin.

Sub Test()
    Dim Sayfalar As Variant
    Dim Sayfa As Integer
    Sayfalar = Array("Sayfa1", "Sayfa2", "Sayfa3")
    
    For Sayfa = 0 To UBound(Sayfalar)
        ThisWorkbook.Worksheets(Sayfalar(Sayfa)).Range("D10,E10,F10").ClearContents
    Next
End Sub

 

[Haluk]

Döngü kullanmadan alternatif;

Sub Test()
    Sheets(Array("Sheet1", "Sheet2")).Select
    Sheets("Sheet1").Activate
    Range("D10:F10").Select
    Selection.ClearContents
    Range("A1").Select
    Sheets("Sheet1").Select
End Sub

.