Yeni sayfa oluşturup belli sütunları aktarma

[Gold_Savt]

Merhabalar;
Makro ile yeni bir sayfa oluşturup, yeni sayfaya belirlediğim sütunların kopyalanmasını istiyorum.
A sütunu ile M sütunu arasını.

Belli bir yere kadar yol aldım. Sayfanın birebir kopyasını oluşturuyorum ama sadece sütun konusundaçözüme ihtiyacım var.

 

[Gold_Savt]

Hallettim arkadaşlar. Şu kodlar işimi gördü.

Sheets.Add After:=Worksheets(Worksheets.Count)
ActiveSheet.Name = Sayfa_Adi
Sheets("anasayfa").Range("A:M").Copy Sheets("aktarılan").Range("A1")

 

[genesis_vision]

Module1'i bu şekilde değiştirebilirsiniz. Silinmesini istediğiniz sütunları Columns("N:Z") ifadesinden değiştirebilirsiniz.

Public Sub aktar(sor As Boolean)
    If kontrol("aktarılan") = True Then
        Application.DisplayAlerts = False
        Worksheets("aktarılan").Delete
        Application.DisplayAlerts = True
    End If
 
    Worksheets("anasayfa").Copy After:=Worksheets(Sheets.Count)
    ActiveSheet.Name = "aktarılan"
   
    Worksheets("aktarılan").Columns("N:Z").EntireColumn.Delete
    Worksheets("aktarılan").Shapes("CommandButton1").Delete
End Sub
Public Function kontrol(s As String) As Boolean
    Dim wSheet As Worksheet
    On Error Resume Next
    Set wSheet = Worksheets(s)
    If wSheet Is Nothing Then
         kontrol = False
    Else
         kontrol = True
    End If
End Function

 

[Gold_Savt]

Ben yine bu siteden bulduğum diğer kodlarla işimi görmeye çalışmıştım.
Anasayfada bir hücreye "aktarılan" yazıp, o hücreye bağlı şekilde yeni sayfa adı vs oluşturmayı başarmıştım.

Genesis_vision, kesinlikle sizin kodlar daha temiz. Bunları kullanacağım. Başka hücrelere birşeyler yazmama gerek kalmadı.
Teşekkürler.

 

[genesis_vision]

Ben yine bu siteden bulduğum diğer kodlarla işimi görmeye çalışmıştım.
Anasayfada bir hücreye "aktarılan" yazıp, o hücreye bağlı şekilde yeni sayfa adı vs oluşturmayı başarmıştım.

Genesis_vision, kesinlikle sizin kodlar daha temiz. Bunları kullanacağım. Başka hücrelere birşeyler yazmama gerek kalmadı.
Teşekkürler.

Rica ederim. Güle güle kullanın.