Farklı bir çalışma kitabına çalışma sayfasının kopyasını oluşturmak

[muratozmenler]

çalışma isimli klasörün içinde bulunan her iki çalışma kitabıda açık varsayalım.
çalışma isimli çalışma kitabının sayfa1 in sekmesinin üzerine gelip sağ tıklayıp kopyala dediğimizde kitap seçme bölümündende bilgi isimli çalışma kitabını seçip kopyala dediğimizde bilgi isimli çalışma kitabına kopya oluşturuyor resim ekliyerekte anlattım bunu.
bunu nasıl makrolu yada kodla yapabiliriz ama bilgi sayfasına kopya oluştururkende çalışma sayfasının sayfa1in k1 hücresşnde yazılı ismide sekme adı olarak kullanacak.

 

[Zeki Gürsoy]

Merhaba,

Sub Copy_Sheet()
ThisWorkbook.Worksheets("Sayfa1").Copy _
    After:=Workbooks("Bilgi").Sheets(Sheets.Count)
End Sub

 

[muratozmenler]

Merhaba,

Sub Copy_Sheet()
ThisWorkbook.Worksheets("Sayfa1").Copy _
    After:=Workbooks("Bilgi").Sheets(Sheets.Count)
End Sub

hata veriyor...

 

[muratozmenler]

 Sheets.Add After:=Sheets(Sheets.Count)
    ActiveSheet.Name = "X"
    Sheets("BORDRO").Select
    Range("A1:P114").Select
    Selection.Copy
    Sheets("X").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Sheets("BORDRO").Select
    Rows("1:62").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("X").Select
    Rows("1:62").Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    Sheets("X").Copy Before:=Workbooks("BİLGİ.xlsx").Sheets(1)
    Sheets("X").Select
    Columns("Q:AD").Select
    Selection.Delete Shift:=xlToLeft
    Range("L1").Select
    ActiveCell.FormulaR1C1 = "=(RC[-3]&"" ""&RC[-1])"
    Range("L1").Select
    Sheets("X").Name = Range("L1").Value
    Range("L1").Select
    Selection.ClearContents
    Windows("maaş.xls").Activate
    Sheets("X").Select
    
    Application.DisplayAlerts = False
    ActiveWindow.SelectedSheets.Delete
    Application.DisplayAlerts = True

    
    Sheets("BORDRO").Select
    Range("A1").Select

BÖYLE BİRŞEY YAPTIM ÇALIŞIYOR AMA BUNU KISA KODLA NASIL OLUR?

 

[metin_1]

Sub kopyalama()
ThisWorkbook.sheets("Sayfa1").Copy After:=Workbooks("Bilgi.xlsx").Sheets(Sheets.Count)
Workbooks("Bilgi.xlsx").Sheets(Sheets.Count).name = _
ThisWorkbook.sheets("Sayfa1").cells(11,1).value
End Sub

 

[muratozmenler]

Teşekkür ederim..