(25/12/2019, 18:13)ozanakkaya yazdı: Butonun tıklandığında olayındaki kodu aşağıdaki ile değiştirerek deneyiniz.

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

(26/12/2019, 00:48)userx yazdı: Sayın maras321 ekteki örneği inceleyin devamını örneğe göre tamamlarsınız.

(26/12/2019, 01:15)maras321 yazdı:

(26/12/2019, 00:48)userx yazdı: Sayın maras321 ekteki örneği inceleyin devamını örneğe göre tamamlarsınız.

İlginiz için teşekkürler ama hata alıyorum .

[attachment=31059 yazdı:userx pid='161472' dateline='1577312189']

(26/12/2019, 01:15)maras321 yazdı: [quote='userx' pid='161469' dateline='1577310532']
Sayın maras321 ekteki örneği inceleyin devamını örneğe göre tamamlarsınız.

İlginiz için teşekkürler ama hata alıyorum .