makroda düzeltme;

[abbasonline]

Private Sub Workbook_copy()
Dim K1 As Workbook, K2 As Workbook

Application.ScreenUpdating = False

Set K1 = Workbooks.Open(ThisWorkbook.Path & "\" & "TÜM DEĞERLER-2011.xlsm")
Set K2 = Workbooks("DENEME.xlsm")

K1.Sheets("TÜM DEĞERLER").Range("A7:CR15000").Copy K2.Sheets("Sayfa1").Range("A7")

K2.Sheets("Sayfa1").Cells.EntireColumn.AutoFit
K2.Save

Set K1 = Nothing
Set K2 = Nothing

Application.ScreenUpdating = True

MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub




bu makro il diğer Excel kitapcığından veri alabiliyorum ancak veri aldığım kitapcıkta açılıyor onun açılmaması için nasıl düzenleme yapmam gerekli.

 

[Orion1]

Verilerinizin yapısı uygunsa ado ile alabilirsiniz.
Değilse excel4 makro ile alabilirisiniz.
Not:her 2 yöntemle sadece değerleri alabilirisiniz.
Biçimlendirmeleri ve renklendirmeleri alamazsınız.
Önceden çalıştığınız kitapta biçimlendirme yaparsanız o sorunu aşarsınız.
Kolay gelsin.

 

[Orion1]

Unuttum.!!
Şunuda ekleyeyim.
Dış veri al ilede alabilirisniz.

 

[Mehmet Şahin]

İyi akşamlar. Evren üstadın önerileri optimal ve doğru çözümlerdir. Siz yine de bunu kullanacağım derseniz,"K2.save"den sonra

K1.Close

ekleyiniz.

 

[Orion1]

İyi akşamlar. Evren üstadın önerileri optimal ve doğru çözümlerdir. Siz yine de bunu kullanacağım derseniz,"K2.save"den sonra

K1.Close

ekleyiniz.

Tam isabet.
Tebrik ederim.
Doğru çözümü vermişsiniz.
Ben soruyu tam anlamamışım!
Şimdi farkettim.
Dosyası açık kalıyor.
Kapatacak.
Jeton düşmedi.
İyi geceler dilerim.

 

[Mehmet Şahin]

İyi geceler Evren bey.

 

[abbasonline]

Evren bey ayıp olmassa ADO, EXCEL4 ve DIŞ VERİ BU YÖNTEMLER NASIL OLUYOR KISACIK BAHSEDEBİLİRMİSİNİZ ? öğrenmek açısından.

 

[abbasonline]

ayrıca her iki form üyesinede teşekkür ederim yardımlarından dolayı.

 

[abbasonline]

benim referanslarda microsoft activex dataobject 2.x library 'yi bulamıyorum Excel 2010 kullanıyorum.

 

[abbasonline]

microsoft activex dataobject 2.x library 'yi bulamıyorum Excel 2010 kullanıyorum.

nasıl aktif edebilirim.