Merhaba,
Döngü ile dizi oluşturup dizideki sayfaları seçmek için aşağıdaki kodu yazdım ama "Subscript out of Range" hatası verdi.
Acaba böyle bir çalışma yapılabilirmi ?
Sub DiziOlustur()
Dim a
For i = 1 To 3
If Not i = 3 Then a = a & i & ","
If i = 3 Then a = a & i
Next i
Sheets(Array(a)).Select
End Sub
Döngü ile dizi oluşturup dizideki sayfaları seçmek için aşağıdaki kodu yazdım ama "Subscript out of Range" hatası verdi.
Acaba böyle bir çalışma yapılabilirmi ?
Sub DiziOlustur()
Dim a
For i = 1 To 3
If Not i = 3 Then a = a & i & ","
If i = 3 Then a = a & i
Next i
Sheets(Array(a)).Select
End Sub