• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Kapalı olan dosyaya veri taşıma

C

Crazy Drake

Katılım
13 Kasım 2008
Mesajlar
86
Excel Vers. ve Dili
2010 TR
Kod: 
Sub EK_7()
Sheets("EK-7").Range("A10").Value = Range("C35").Value
Sheets("EK-7").Range("E10").Value = Range("C4").Value
Sheets("EK-7").Range("G10").Value = Range("J14").Value
Sheets("EK-7").Range("G12").Value = Range("J15").Value
Sheets("EK-7").Range("I10").Value = Range("J16").Value
If MsgBox("EK: 7yi Yazıcıya Yerleştirdinizmi?", vbQuestion + vbYesNo, "EK: 7") = vbNo Then Exit Sub
Sayfa70.PrintOut
End Sub

Koduyla aynı çalışma kitabındakı EK-7 isimli sayfaya verileri aktarıp yazdırıyordum ancak aynı klasör içinde BELGELER isminde bir çalışma kitabı oluşturup EK-7 sayfasını ona taşıdım.

Bu kodda nasıl bir değişiklik yapmamız lazımki BELGELER çalışma kitabındaki EK-7 sayfasına verileri aktaracak ve yazdıracak
Yardımcı olabilirmisiniz
 
Crazy Drake' Alıntı:
Kod: 
Sub EK_7()
Sheets("EK-7").Range("A10").Value = Range("C35").Value
Sheets("EK-7").Range("E10").Value = Range("C4").Value
Sheets("EK-7").Range("G10").Value = Range("J14").Value
Sheets("EK-7").Range("G12").Value = Range("J15").Value
Sheets("EK-7").Range("I10").Value = Range("J16").Value
If MsgBox("EK: 7yi Yazıcıya Yerleştirdinizmi?", vbQuestion + vbYesNo, "EK: 7") = vbNo Then Exit Sub
Sayfa70.PrintOut
End Sub

Koduyla aynı çalışma kitabındakı EK-7 isimli sayfaya verileri aktarıp yazdırıyordum ancak aynı klasör içinde BELGELER isminde bir çalışma kitabı oluşturup EK-7 sayfasını ona taşıdım.

Bu kodda nasıl bir değişiklik yapmamız lazımki BELGELER çalışma kitabındaki EK-7 sayfasına verileri aktaracak ve yazdıracak
Yardımcı olabilirmisiniz
Genişletmek için tıkla ...

Hedef ve kaynak dosyaları bir klasörün içine yollayın.Denemek lazım.Afaki bir şey söyelemem.Denemk lazım derken olmaz manasında değil.Alan adlarınıu falan görmem lazım.:cool:ADO ile aktarıcam çünkü.
 
Dosyanız ektedir.
Başka bir dosyada kullanmak isterseniz kodları,Tools referanslardan Tools referanslardan Microsoft activex Dataobjext 2.8 library seçiniz.
Kod: 
Sub kapaliye_aktar()
'Tools referanslardan Microsoft activex Dataobjext 2.8 library seçildi
Dim conn As ADODB.Connection, rs As ADODB.Recordset
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.Open ("Provider=microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.Path _
& "\BELGELER.xls;extended properties=""excel 8.0;hdr=yes""")
rs.Open "select * from [EK-7$];", conn, adOpenDynamic, adLockOptimistic
rs.AddNew
rs("ADI SOYADI").Value = Range("C6").Value
rs("KAYIT SINIFI").Value = Range("C4").Value
rs("CİNSİ").Value = Range("J5").Value
rs("YER").Value = Range("J7").Value
rs.Update
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
MsgBox "Veriler Başarı ile BELGELER.xls Dosyasına kaydedildi." & vbLf & _
vbLf & "evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End Sub
 

Ekli dosyalar

dosyayı açıpta aktarsa ADO kullanmadan çünkü o ek 7 sayfası formu doldurmak için şablon gibi bişey sadece yazdırmak için kullanılacak verileri kaydetmesine gerek yok

Kısacası: BELGELER dosyasını açacak verileri aktaracak ve aktardığı sayfayı yazdıracak
 
Son düzenleme:
Crazy Drake' Alıntı:
dosyayı açıpta aktarsa ADO kullanmadan çünkü o ek 7 sayfası formu doldurmak için şablon gibi bişey sadece yazdırmak için kullanılacak verileri kaydetmesine gerek yok
Genişletmek için tıkla ...
Konu başlığınız Kapalı olan dosyaya veri aktarma idi.Dolayısı ile ben bu konu ile ilgili cevapladım.Bu konu kapandı.Yeni bir başlık açınız ve Başka bir dosya açıp kayıt kayıt etmek diye başlık açarsanız bu konu hakınddadad yardım alırsınız sanırım.:cool:
 
Dosya başlangıçta kapalı olduğu için öyle yazdım. :) Yanlış anlatım için özür diliyorum sizide uğraştırdım.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst