Sub menu()
  Application.DisplayAlerts = False
    Call sayfa_kopyala
    Call kolonlari_kaydir
    Call baslik_yaz
  Application.DisplayAlerts = True
End Sub

Sub sayfa_kopyala()
    If WorksheetExists("Yevmiye Defteri") Then Sheets("Yevmiye Defteri").Delete
    If WorksheetExists("Muavin") Then Sheets("Muavin").Delete
    
    acikdosya = ActiveWorkbook.Name
    dosya = ActiveWorkbook.Path & "\Kapalı dosya.xlsx"
    Workbooks.Open Filename:=dosya, UpdateLinks:=0
    kapalidosya = ActiveWorkbook.Name
    Workbooks(kapalidosya).Sheets("Yevmiye Defteri").Copy Before:=Workbooks(acikdosya).Sheets(1)
    Workbooks(kapalidosya).Close
    Sheets("Yevmiye Defteri").Name = "Muavin"
End Sub

Sub kolonlari_kaydir()
    Columns("C:C").Select
    Selection.Cut
    Columns("A:A").Select
    Selection.Insert Shift:=xlToRight
    
    Columns("E:E").Select
    Selection.Cut
    Columns("B:B").Select
    Selection.Insert Shift:=xlToRight
    
    Columns("E:E").Select
    Selection.Cut
    Columns("C:C").Select
    Selection.Insert Shift:=xlToRight
    
    Columns("F:F").Select
    Selection.Delete Shift:=xlToLeft
    Columns("I:I").Select
    Selection.Delete Shift:=xlToLeft
    Columns("G:G").EntireColumn.AutoFit
    Columns("H:H").EntireColumn.AutoFit
End Sub

Sub baslik_yaz()
    Range("A1").Value = "ANA KOD"
    Range("B1").Value = "DETAY KOD"
    Range("C1").Value = "HESAP ADI"
    Range("D1").Value = "TARİH"
    Range("E1").Value = "FİŞ NO"
    Range("F1").Value = "Açıklama"
    Range("G1").Value = "BORÇ"
    Range("H1").Value = "ALACAK"
End Sub


Public Function WorksheetExists(ByVal WorksheetName As String) As Boolean
   On Error Resume Next
   WorksheetExists = (Sheets(WorksheetName).Name <> "")
   On Error GoTo 0
End Function