Excl.Sheets.Add.Name = Me.metin1 & "-" & Me.metin2

Private Sub CommandButton1_Click()
SyfAdi = Me.TextBox1 & "-" & Me.TextBox2
SyfAdiTmp = SyfAdi
SyfNo = 0
Do While WorksheetExists(SyfAdiTmp) = True
SyfNo = SyfNo + 1
SyfAdiTmp = SyfAdi & IIf(SyfNo = 0, "", "(" & SyfNo & ")")
Loop
Sheets.Add.Name = SyfAdiTmp
 
End Sub

Function WorksheetExists(ByVal shtName As String, Optional wb As Workbook) As Boolean
    Dim sht As Worksheet
 
    If wb Is Nothing Then Set wb = ThisWorkbook
    On Error Resume Next
    Set sht = wb.Sheets(shtName)
    On Error GoTo 0
    WorksheetExists = Not sht Is Nothing
End Function

Private Sub Excele_Aktar_Click()
    DoCmd.SetWarnings False
    
    If IsNull(Me.text3) Then
    If MsgBox("xxxxxxx", vbNo, "UYARI") = vbNo Then Exit Sub
    Else
 
        If MsgBox("Bilgileriniz Excele Aktarılsın mı?", vbCritical + vbYesNo + vbDefaultButton1, "UYARI") = vbNo Then Exit Sub
        MsgBox "xxxxxxxxxxxxxxxxxx", vbDefaultButton1, "UYARI!!!"
        DoCmd.OpenQuery "srg_aaaaaaaa"
 
Dim rs As Excel.Application
Dim KTP1 As Excel.Workbook
Dim SYF As Excel.Worksheet
    
    
Set Excl = New Excel.Application
With Excl
 
       .Application.Visible = True
       .UserControl = True
 
End With
 
        Set KTP1 = Excl.Workbooks.Open(CurrentProject.Path & "\aaaaa.xlsx")
 
        Set Rs2 = CurrentDb.OpenRecordset("tbl_aaaaaaa")
       
 
        Excl.Sheets.Add.Name = Me.Text1 & "-" & Me.Text2
 
With SYF
 
 
On Error Resume Next
   
 
 Dim i
        i = 6
 
 
        Do Until Rs2.EOF
 
        Excl.Cells(i, "A") = i - 5 'Sıra Numarası verir
        Excl.Cells(i, "B") = Rs2(5) ' i ile sıralı döngü sağlanır. "A" Excelin sütun adı, rs(1) tablonun sütun adı
        Excl.Cells(i, "C") = Rs2(6) & " / " & Rs2(8)
        Excl.Cells(i, "D") = Rs2(8)
        Excl.Cells(i, "E") = Rs2(9)
        Excl.Cells(i, "F") = Rs2(10)
        Excl.Cells(i, "G") = Rs2(7)
 
 
        
  
        i = i + 1
        Rs2.MoveNext
            Loop
            
            Rs2.Close
            
Excl.Range("A2").Select
 
 DoCmd.RunMacro "Makro2"
  
    End With
    Excl.Visible = True
   Set Excl = Nothing
    DoCmd.SetWarnings True
   End If
   
End Sub

Function WorksheetExists(ByVal shtName As String, Optional wb As Workbook) As Boolean
    Dim sht As Worksheet
 
    If wb Is Nothing Then Set wb = ThisWorkbook
    On Error Resume Next
    Set sht = wb.Sheets(shtName)
    On Error GoTo 0
    WorksheetExists = Not sht Is Nothing
End Function