Birden çok sayfa seçme

[merakli_72]

Arkadaşlar selam
Sayfa sayısı/isimleri değişebilecek bir excel kitabında 3.sayfadan son
sayfaya kadar olan sayfalar makro ile nasıl seçilebilir

Teşekkürler

 

[Zeki Gürsoy]

Boş bir modulde deneyin.

Option Base 1
'-----
Sub Sec()
Dim arr() As String
For i = 3 To Sheets.Count
    ReDim Preserve arr(i - 2) As String
    arr(i - 2) = Sheets(i).Name
Next
    
    Sheets(arr).Select
    Erase arr
End Sub

 

[Necdet]

Merhaba,

Sheets(Array(3, Sheets.Count)).Select

 

[merakli_72]

Merhaba,
Necdet bey cevap için teşekkürler ama o koda hiç tepki vermiyor hatada vermiyor sayfalarıda seçmiyor

Anemos bey cevap için teşekkürler ama Sheets(arr).Select satırında Subscript out of range hatası veriyor.Arr dizisine indis belirtmek gerekmezmi?

 

[merakli_72]

Necdet bey pardon Sheets(Array(3, Sheets.Count)).Select komutu 3. vede son sayfayı seçiyor ben 3.sayfa ve son sayfa dahil aradaki sayfalarıda seçmek istiyorum

 

[Necdet]

Evet evet, ben aceleci davranmışım, yaptığımı yok sayınız

 

[Zeki Gürsoy]

Anemos bey cevap için teşekkürler ama Sheets(arr).Select satırında Subscript out of range hatası veriyor.Arr dizisine indis belirtmek gerekmezmi?

Option Base 1

satırını modulun en üst kısmında kullanarak deneyin.

 

[merakli_72]

Çok teşekkür ederim anemos şimdi oldu

Option Base 1 ne demek yardmcı olurmusun

 

[Zeki Gürsoy]

Çok teşekkür ederim anemos şimdi oldu

Option Base 1 ne demek yardmcı olurmusun

Dizilerde varsayılan ilk elemanın indexi "0" dır. Bunu "1" olarak atanması için kullanıyoruz.