(25/12/2019, 17:00)berduş yazdı: merak ettiğim 2 şey var
1 - aktif olan kaydı aktaracaksanız Dlookup a gerek var mı değerler zaten metin kutularında var
2 - hücreler hep sabit yani başka bir kaydı aktarmak istediğinizde eski veriler silinecek demektir.
kısacası amacınız tam olarak ne?

(25/12/2019, 17:13)berduş yazdı: 5. mesajdaki kodları denediniz mi?

(25/12/2019, 17:23)berduş yazdı: Sizin ilk mesajda yazdığınız kodda yer alan ilk kısmi çıkarıp  benim yazdığım 2. kısmi ekleyeceksiniz

Dim xlApp As Excel.Application

Dim objWkb As Workbook

Dim rs As DAO.Recordset

Dim xlSh As Worksheet



Set xlApp = New Excel.Application

xlApp.Visible = True

Set objWkb = xlApp.Workbooks.Add



Set rs = CurrentDb.OpenRecordset("Tablo1")



If Not (rs.EOF And rs.BOF) Then

    rs.MoveFirst

    Do Until rs.EOF = True

    

        Set xlSh = objWkb.Sheets.Add

        xlSh.Name = rs!adi & " " & rs!soyada

      

        xlSh.Range("B13") = rs!adi

        xlSh.Range("B14") = rs!soyada

      

        rs.MoveNext

    Loop

End If



For Each xlSh In objWkb.Worksheets

If InStr(1, xlSh.Name, "Sayfa") = 1 Then

objWkb.Worksheets(xlSh.Name).Delete

End If

Next xlSh