Sayfayı Sona Taşımak

[Tarikkk_]

Merhabalar. yeni sayfa ekleme makrom var sorunsuz çalışmakta fakat sayfa eklediğimde eklediğim yeni sayfa en sona değil de en başa geliyor. en sona nasıl ekleyebilirim teşekkür ederim.

Sub sayfaekle()

isimyaz:

    Sor = Application.InputBox("OLUŞTURMAK İSTEDİĞİNİZ SAYFA ADINI GİRİNİZ :", "Onay Kutusu", _
                                "Yeni Sayfa", , , , , 2)
    If Sor = False Then
        Exit Sub
    End If
    
    If Sor = "" Then
        MsgBox ("DOSYA ADI GİRMEDİNİZ..!")
        GoTo isimyaz
    End If
                                    
        On Error Resume Next
        checkSheetName = Worksheets(Sor).Name
    If checkSheetName = "" Then
        Worksheets.Add.Name = Sor
        MsgBox Sor & "'' Adında Yeni Sayfanız  Eklenmiştir.", vbInformation, "Yeni Sayfa Eklendi"
    Else
    checkSheetName = ""
        MsgBox "Sayfa Mevcut"
    End If
        End Sub

 

[Necdet]

Merhaba,
Dener misiniz?

Sub sayfaekle()

isimyaz:

    Sor = Application.InputBox("OLUŞTURMAK İSTEDİĞİNİZ SAYFA ADINI GİRİNİZ :", "Onay Kutusu", _
                                "Yeni Sayfa", , , , , 2)
    If Sor = False Then
        Exit Sub
    End If
    
    If Sor = "" Then
        MsgBox ("DOSYA ADI GİRMEDİNİZ..!")
        GoTo isimyaz
    End If
                                    
        On Error Resume Next
        checkSheetName = Worksheets(Sor).Name
    If checkSheetName = "" Then
        Worksheets.Add after:=Sheets(Sheets.Count)
        ActiveSheet.Name = Sor
        MsgBox Sor & "'' Adında Yeni Sayfanız  Eklenmiştir.", vbInformation, "Yeni Sayfa Eklendi"
    Else
    checkSheetName = ""
        MsgBox "Sayfa Mevcut"
    End If
    
End Sub

 

[Tarikkk_]

Merhaba,
Dener misiniz?

Sub sayfaekle()

isimyaz:

    Sor = Application.InputBox("OLUŞTURMAK İSTEDİĞİNİZ SAYFA ADINI GİRİNİZ :", "Onay Kutusu", _
                                "Yeni Sayfa", , , , , 2)
    If Sor = False Then
        Exit Sub
    End If
   
    If Sor = "" Then
        MsgBox ("DOSYA ADI GİRMEDİNİZ..!")
        GoTo isimyaz
    End If
                                   
        On Error Resume Next
        checkSheetName = Worksheets(Sor).Name
    If checkSheetName = "" Then
        Worksheets.Add after:=Sheets(Sheets.Count)
        ActiveSheet.Name = Sor
        MsgBox Sor & "'' Adında Yeni Sayfanız  Eklenmiştir.", vbInformation, "Yeni Sayfa Eklendi"
    Else
    checkSheetName = ""
        MsgBox "Sayfa Mevcut"
    End If
   
End Sub

hocam cevabınız için çok teşekkür ederim. bu şekilde işimi görüyor fakat bende örnek olarak kalaması için makromda olduğu gibi ilk sayfayı istediğim isimde ekletip eklenen yeni sayfayı select ederek nasıl en sona taşıyabiliriz onuda mümkünse öğrenmek istiyorum. çok teşekkür ederim

 

[Necdet]

Merhaba,

Kısaca ilk sayfanın kopyasını mı çıkartmak istiyorsunuz? Tam olarak anlamadım.
Siz sorumu yanıtlayın, bu arada ben de uykuya dalayım, baya geç oldu.
Ben uyanana kadar mutlaka bir arkadaş yardımcı olacaktır.

 

[Tarikkk_]

Merhaba,

Kısaca ilk sayfanın kopyasını mı çıkartmak istiyorsunuz? Tam olarak anlamadım.
Siz sorumu yanıtlayın, bu arada ben de uykuya dalayım, baya geç oldu.
Ben uyanana kadar mutlaka bir arkadaş yardımcı olacaktır.

hocam biraz acemiyim kusura bakmayın
tam olarak yapmayı istediğim şey ilk attığım kodlarda olduğu gibi sayfayı en başa ekledikten sonra en sona taşımak.
iyi geceler dilerim

 

[Necdet]

Sayfayı en başa ekledikten sonra tekrar en sona taşımanın mantığını anlamadım.
madem en sona eklenecek, neden ilk sayfaya eklensin?

Anlamamaca

 

[Tarikkk_]

Sayfayı en başa ekledikten sonra tekrar en sona taşımanın mantığını anlamadım.
madem en sona eklenecek, neden ilk sayfaya eklensin?

Anlamamaca

Peki o zaman şöyle diyeyim çalışma kitabımda 100 adet sayfa var A,B,C,D Gibi en baştaki sayfayı yani A sayfasını en sona taşımak istedim inputboxa A yazınca en sona taşınması için ne yapabiliriz

 

[bmutlu966]

Sub ilk_sayfayi_sona_tasi()

Sheets(1).Move after:=Sheets(Sheets.Count)

End Sub

 

[Tarikkk_]

Sub ilk_sayfayi_sona_tasi()

Sheets(1).Move after:=Sheets(Sheets.Count)

End Sub

Çok teşekkür ederim. Son olarak aynı mantıkla A sayfasını nasıl kopyalabiliriz acaba

 

[ÖmerFaruk]

ARAMA MENÜSÜNDEN örnek bir sonuç

 

[Necdet]

Çok teşekkür ederim. Son olarak aynı mantıkla A sayfasını nasıl kopyalabiliriz acaba

Makro kaydet ile işin mantığını anlayabilirsiiniz.