Tüm Sayfaları Seç > Makro kodu

[baydeniro]

Merhaba arkadaşlar. Makro sihirbazı ile yaptığım makroda tüm sayfaları seç işlevi kullanıldığında seçilen sayfalkarın isimleri makroya kayıot oluyor. Haliyle sayfa isimleri değiştiğinde makro çalışmıyor. TÜM SAYFALARI SEÇ komutu sayfa ismi içermeden GENEL bir komut olarak kurgulanamaz mı ?

Örneğin : A3:A10 arasında yazılı olan sayfa isimlerini seç denilebilir mi ?

 

[halit3]

A1 hücresinden aşağıya doğru seçmek istemediğin sayfaları sil
aşağıdaki kodu dene



Sub sayfalarıaktar()
For i = 1 To Sheets.Count
Cells(i, 1).Value = Sheets(i).Name
Next i
End Sub
Sub sayfalarıseç()
Dosya = ActiveSheet.Name
Dim myArray() As Variant
r = 0
For i = 1 To Sheets.Count
If Sheets(i).Name <> Cells(i, 1).Value Then
r = r + 1
Else
ReDim Preserve myArray(i - (1 + r))
myArray(i - (1 + r)) = i
End If
Next i
Sheets(myArray).Select
End Sub

 

[Korhan Ayhan]

Selamlar,

Alternatif olarak aşağıdaki koduda kullanabilirsiniz.

Option Explicit
 
Sub TÜM_SAYFALARI_SEÇ()
    Sheets.Select
End Sub

 

[baydeniro]

Sayın halit3 ve sayın Korhan Ayhan, yardımlarınız için çok teşekkür ederim.

 

[halit3]

iyi çalışmalar

 

[Seyit Tiken]

Sayfaları çözmek için şöyle bir kod kullanabilirsiniz.

Sub Makro2()
ActiveSheet.Select
End Sub

 

[baydeniro]

Çok teşekkürler sayın Seyit Tiken