Kapalı Dosyadan Döngü Kullanmadan Belirli Hücreleri Almak

[hamzasaricicek]

Kapalı olan dosya bağlantı kurduğumu varsayarak Kapali olan Kapali.xls dosyasının "A5, B3, C8" hücrelerindeki verileri Acik.xls dosyasındaki "A2, B3, C5" hücrelerine VBA kullanarak yazdırmak istiyorum.. Hücreleri tamamen rasglele seçilmiş hücreler. Farklı hücrelerden alınmış değerleride aktarabilirim belli değil. Olayın mantığını anlamak istiyorum sadece.. Şimdiden teşekkürler.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki linkteki konuları inceleyiniz.

http://www.excel.web.tr/forumdisplay.php?f=117

Ayrıca arama kutusuna excel4 yazarak çıkan konularıda inceleyiniz.

 

[Orion1]

Kapalı olan dosya bağlantı kurduğumu varsayarak Kapali olan Kapali.xls dosyasının "A5, B3, C8" hücrelerindeki verileri Acik.xls dosyasındaki "A2, B3, C5" hücrelerine VBA kullanarak yazdırmak istiyorum.. Hücreleri tamamen rasglele seçilmiş hücreler. Farklı hücrelerden alınmış değerleride aktarabilirim belli değil. Olayın mantığını anlamak istiyorum sadece.. Şimdiden teşekkürler.

iki dosyada ayni klasörde olmalı.
excel4 makro bunun için iyidir.

Sub Düğme1_Tıklat()
yol = ThisWorkbook.Path
Range("A2").Value = Application.ExecuteExcel4Macro("'" & yol & "\[kapalı.xls]Sayfa1'!R5C1")
Range("B3").Value = Application.ExecuteExcel4Macro("'" & yol & "\[kapalı.xls]Sayfa1'!R3C2")
Range("C5").Value = Application.ExecuteExcel4Macro("'" & yol & "\[kapalı.xls]Sayfa1'!R8C3")
End Sub

 

[hamzasaricicek]

Üstadlar ellerinize sağlık. Sayenizde excel4 makro diye birşey olduğunu ve kullanımı hakkında fikir sahibi oldum. Evren hocam gönderdiğiniz kodu uyguladım gayet güzel çalışıyor. Korhan hocam ADO ile ilgili verdiğiniz link çok faydalı gerçekten sizede teşekkür ediyorum..

 

[hamzasaricicek]

Peki, excel4 makro ile ilgili bulabileceğim başlangıç seviyesinde bir konu dökümanı mevcutmu acaba. Çok makbule geçer hocam eğer öyle bir döküman bulabilir isem..

 

[Hasan_32]

iki dosyada ayni klasörde olmalı.
excel4 makro bunun için iyidir.

Sub Düğme1_Tıklat()
yol = ThisWorkbook.Path
Range("A2").Value = Application.ExecuteExcel4Macro("'" & yol & "\[kapalı.xls][COLOR="red"]Sayfa1'!R5C1")[/COLOR]
Range("B3").Value = Application.ExecuteExcel4Macro("'" & yol & "\[kapalı.xls][COLOR="Red"]Sayfa1'!R3C2")[/COLOR]
Range("C5").Value = Application.ExecuteExcel4Macro("'" & yol & "\[kapalı.xls][COLOR="red"]Sayfa1'!R8C3")  [/COLOR]
End Sub

Evren Hocam Buradaki konunuzuda inceledim, veri alınan hücre adresini genişletip A1 den AD30' a kadar veriyi al A25'den AD55' kadar yaz dememiz mümkünmü? Bunun için (R:C) kodlarınamı ihtiyacım var?

 

[Orion1]

Evren Hocam Buradaki konunuzuda inceledim, veri alınan hücre adresini genişletip A1 den AD30' a kadar veriyi al A25'den AD55' kadar yaz dememiz mümkünmü? Bunun için (R:C) kodlarınamı ihtiyacım var?

Sub kapali_aktar_59()
Dim hcr As Range, yol As String
yol = ThisWorkbook.Path
Application.ScreenUpdating = False
For Each hcr In Range("A1:AD30")
    Cells(hcr.Row + 24, hcr.Column) = Application.ExecuteExcel4Macro("'" & yol & "\[Kapalı.xls]Sayfa1'!R" & hcr.Row & "C" & hcr.Column)
Next
Application.ScreenUpdating = True
MsgBox "Veriler aktarıldı." & vbLf & _
"evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End Sub

 

[Hasan_32]

Hocam Bu kod için çok teşekkür ediyorum. Emeğinize sağlık.

 

[Orion1]

Hocam Bu kod için çok teşekkür ediyorum. Emeğinize sağlık.

Rica ederim.
İyi çalışmalar.