Sayfa kopyalama

Katılım
3 Temmuz 2005
Mesajlar
306
Excel Vers. ve Dili
excel 2021 tr
Aşağıdaki kod ile İCRA2 sayfası kopyalanıyor, ancak İCRA2 sayfasının sağında yer alan tüm sayfalar atlanarak en sağa kopyalanıyor.
İCRA2 isimli sayfanın hemen yanına kopyalansın istiyorum?

Sub copy()
On Error Resume Next
x = Sheets("İCRA2").Range("A2").Value
Sheets("İCRA2").copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = x
End Sub
 

Necdet

Moderatör
Yönetici
Katılım
4 Haziran 2005
Mesajlar
15,372
Excel Vers. ve Dili
Ofis 365 Türkçe
Merhaba,

Dener misiniz?

Kod:
Sub Kopyala()

    Dim SayfaNo As Integer, _
        x       As String, _
        Sh      As Worksheet
        
    Set Sh = Sheets("İCRA2")
    On Error Resume Next
    SayfaNo = Sh.Index
    x = Sh.Range("A2").Value
    Sh.copy After:=Sheets(SayfaNo)
    ActiveSheet.Name = x
    
End Sub
 
Katılım
3 Temmuz 2005
Mesajlar
306
Excel Vers. ve Dili
excel 2021 tr
Teşekkürler Necdet bey...
 
Üst