+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Accesten Excele Farklı Sayfalara Kayıt (/konu-accesten-excele-farkli-sayfalara-kayit.html)
Cvp: Accesten Excele Farklı Sayfalara Kayıt - maras321 - 25/12/2019
(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
Cvp: Accesten Excele Farklı Sayfalara Kayıt - berduş - 25/12/2019
5. mesajdaki kodları denediniz mi?
Cvp: Accesten Excele Farklı Sayfalara Kayıt - maras321 - 25/12/2019
(25/12/2019, 17:13)berduş yazdı: 5. mesajdaki kodları denediniz mi?
ekleme yapamadım çok fazla kodtan anlamam
Cvp: Accesten Excele Farklı Sayfalara Kayıt - berduş - 25/12/2019
Sizin ilk mesajda yazdığınız kodda yer alan ilk kısmi çıkarıp benim yazdığım 2. kısmi ekleyeceksiniz
Cvp: Accesten Excele Farklı Sayfalara Kayıt - maras321 - 25/12/2019
(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 ekleyeceksinizyok malesef yapmadım
Cvp: Accesten Excele Farklı Sayfalara Kayıt - ozanakkaya - 25/12/2019
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