(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?
sayın berduş rapor yazdırmak yerine mevut
Excel formuna göndereceğim verileri form sabit veri tabanındakiler değişken olacak
5. mesajdaki kodları denediniz mi?
(25/12/2019, 17:13)berduş yazdı: [ -> ]5. mesajdaki kodları denediniz mi?
ekleme yapamadım çok fazla kodtan anlamam
Sizin ilk mesajda yazdığınız kodda yer alan ilk kısmi çıkarıp benim yazdığım 2. kısmi ekleyeceksiniz
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