sayfa1 2 3

[sayın]

sayfa &1 ile döngüde ikinci üçüncü sayfa seçmek istiyorum ama olmuyor

for x=1 to 4
sayfa & x.select
next

ne yapılmalı ?

 

[sayın]

Sub Makro2()
'
' Makro2 Makro
'

For i = 1 To 4
    x = Sheets(i).Name
       Sheets(x).Select
  
    Next
End Sub

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu deneyiniz.

Sub SAYFA_SEÇ()
    Dim X As Byte
    
    For X = 1 To 4
        Sheets("Sayfa" & X).Select
    Next
End Sub

 

[sayın]

SAyfa adı değişince çalışmıyor, sayfaadını yazmamak için zaten sayfa&1 kullanmak istedim.
sheets("isim") değilde sayfa1.select sayfa2.select ...

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu deneyin.

Sub SAYFA_SEÇ()
    Dim Sayfa As Worksheet
    
    For Each Sayfa In ThisWorkbook.Worksheets
        Sayfa.Select
    Next
End Sub