Çoklu Sayfa Seçimi.

[Cengiz Demir]

İşyerimde yaptığım bi çalışma için; belli bir sayfadan sonraki ardışık sayfaları, yeni bir excel dosyasına taşımam gerekti.
Forumda aradım. Ama uygun kodları bulamadım. İnternette çoğunlukla array ile çözümler verilmişti. O çözümler de istediğim gibi değlidi.

Biraz daha araştırdıktan sonra bu kodları buldum. Basit ve etkili. Belki ihtiyacı olan olur diye buraya da ekliyeyim dedim.

Sub Kopya ()


Sheets(4).Activate '4. safya dahil sonrası için seçim başlangıcı. İhtiyacınıza göre bu sayıyı değiştirebilirsiniz. For I döngüsünü de bu rakama göre ayarlamalısınız.

      For I = 4 To Sheets.Count

           Sheets(I).Select (False)
    
     Next

ActiveWindow.SelectedSheets.Move  'Move yerine Copy yaparsanız yeni bir dosyaya kopyalar.

End Sub

,

 

[Korhan Ayhan]

Paylaşımınız için teşekkürler.

Benzer alternatifler;

Option Explicit

Sub Sayfa_Sec()
    Dim Sayfa As Worksheet

    For Each Sayfa In ThisWorkbook.Worksheets
        If Sayfa.Index > 3 Then Sayfa.Select False
    Next

    ActiveWindow.SelectedSheets.Copy
End Sub

Option Explicit

Sub Sayfa_Sec()
    Dim Sayfa As Worksheet, Say As Integer
   
    ReDim Sayfalar(1 To 1)
   
    For Each Sayfa In ThisWorkbook.Worksheets
        If Sayfa.Index > 3 Then
            Say = Say + 1
            ReDim Preserve Sayfalar(1 To Say)
            Sayfalar(Say) = Sayfa.Name
        End If
    Next
   
    Sheets(Sayfalar).Select
End Sub

 

[Cengiz Demir]

Üstad alternatifler için teşekkürler

 

[Korhan Ayhan]

Başka bir alternatif;

Option Explicit

Sub Sayfa_Sec()
    Sheets(Application.Transpose(Evaluate("Row(" & "4:" & Sheets.Count & ")"))).Select
End Sub