macro ile farklı bir dosyadan veri alma

[MURATSO]

merhaba,

bilgisayarımın farklı bir yerinde bulunan bir klasörün içindeki excelden bir veri almak için nasıl bir kod yazmak lazım?


hedef klasör
Z:\ORTAK 2014\5. İŞLEM ADETLERİ VE İŞYÜKÜ\2. İŞYÜKÜ\İşyükü Raporları\MOB\HESAP İŞLEMLERİ

almak istediğim excel dosyasının adı
Hesap İşlemleri Mart 2014

almak istediğim veri ise bu exceldeki 80. satırdaki rakam


teşekkür ederim şimdiden

 

[ÖmerBey]

Merhaba,
Aşağıdaki kodu kendinize uyarlayınız.

Sub Kod()
Application.ScreenUpdating = False
Set ana = ThisWorkbook.Sheets("[COLOR="Red"]Sayfa1[/COLOR]") 'Hangi sayfaya alınacak?
Set başka = Workbooks.Open("Z:\ORTAK 2014\5. İŞLEM ADETLERİ VE İŞYÜKÜ\2. İŞYÜKÜ\İşyükü Raporları\MOB\HESAP İŞLEMLERİ\Hesap İşlemleri Mart 2014.[COLOR="red"]xlsx[/COLOR]") 'Alınacak dosyanın uzantısı ne?
ana.Range("[COLOR="red"]A1[/COLOR]") = başka.Sheets("[COLOR="red"]HESAP[/COLOR]").Range("[COLOR="red"]A80[/COLOR]") 'Hangi sayfanın hangi hücresi nereye alınacak?
başka.Close
Application.ScreenUpdating = True
End Sub

 

[Orion1]

Alternatif.
Dosyaların ikiside ayni klasörde olmalı.
Dosyanız ektedir.

Sub verial59()
Dim deg As String, yol As String
'yol = "Z:\ORTAK 2014\5. İŞLEM ADETLERİ VE İŞYÜKÜ\2. İŞYÜKÜ\İşyükü Raporları\MOB\HESAP İŞLEMLERİ\"
yol = ThisWorkbook.Path & "\"
deg = Application.ExecuteExcel4Macro("'" & yol & "[Hesap İşlemleri Mart 2014]Sayfa1'!R80C2")
Range("C3").Value = deg
End Sub

 

[MURATSO]

merhaba,

öncelikle ellerinize sağlık. çok teşekkür ederim.

ben gerekli bilgiler için tam detaylı bilgi vermeye çalıştım aşağıda. Dediğiniz şekilde yapmaya çalıştım ama bi yerde hata yapıyorum bulamadım. Macro bilgim hiç olmadığı için beceremedim sanırım.



veri almak istediğim dosya yolu şu şekilde
"X:\SURECLER_DENEME\ISYUKU\MOB\HESAP_ISLEMLERI"

HESAP_ISLEMLERI klasöründe "Hesap islemleri Ocak 2014" isimli bir excel var uzantısı = xlsx

bu exceldeki datanın bulunduğu sheet adı = "MOB TL Ops Ödemeler v1"

almak istediğim veri ise bu sheet deki "E" kolonundaki sayıların toplamı
yazdırmak istediğim yer ise yeni açtığım bir excel dosyasının "sheet 1" deki "A1" hücresi

bu yeni açtığım excelin adı "Rapor_Sonuc" uzantısı "xlsx"
yolu ise = "X:\SURECLER_DENEME\ISYUKU\MOB\HESAP_ISLEMLERI"

yardımlarınız için şimdiden çok teşekkür ederim.

 

[MURATSO]

merhaba,

öncelikle ellerinize sağlık. çok teşekkür ederim.

ben gerekli bilgiler için tam detaylı bilgi vermeye çalıştım aşağıda. Dediğiniz şekilde yapmaya çalıştım ama bi yerde hata yapıyorum bulamadım. Macro bilgim hiç olmadığı için beceremedim sanırım.



veri almak istediğim dosya yolu şu şekilde
"X:\SURECLER_DENEME\ISYUKU\MOB\HESAP_ISLEMLERI"

HESAP_ISLEMLERI klasöründe "Hesap islemleri Ocak 2014" isimli bir excel var uzantısı = xlsx

bu exceldeki datanın bulunduğu sheet adı = "MOB TL Ops Ödemeler v1"

almak istediğim veri ise bu sheet deki "E" kolonundaki sayıların toplamı
yazdırmak istediğim yer ise yeni açtığım bir excel dosyasının "sheet 1" deki "A1" hücresi

bu yeni açtığım excelin adı "Rapor_Sonuc" uzantısı "xlsx"
yolu ise = "X:\SURECLER_DENEME\ISYUKU\MOB\HESAP_ISLEMLERI"

yardımlarınız için şimdiden çok teşekkür ederim.

eksik bilgi varsa tamamlayabilirim..

 

[MURATSO]

Alternatif.
Dosyaların ikiside ayni klasörde olmalı.
Dosyanız ektedir.

Sub verial59()
Dim deg As String, yol As String
'yol = "Z:\ORTAK 2014\5. İŞLEM ADETLERİ VE İŞYÜKÜ\2. İŞYÜKÜ\İşyükü Raporları\MOB\HESAP İŞLEMLERİ\"
yol = ThisWorkbook.Path & "\"
deg = Application.ExecuteExcel4Macro("'" & yol & "[Hesap İşlemleri Mart 2014]Sayfa1'!R80C2")
Range("C3").Value = deg
End Sub

selam üstad
ben pek macro bilmiyorum ama bu detaylar ile düzeltebilmen mümkünmüdür?

veri almak istediğim dosya yolu şu şekilde
"X:\SURECLER_DENEME\ISYUKU\MOB\HESAP_ISLEMLERI "

HESAP_ISLEMLERI klasöründe "Hesap islemleri Ocak 2014" isimli bir excel var uzantısı = xlsx

bu exceldeki datanın bulunduğu sheet adı = "MOB TL Ops Ödemeler v1"

almak istediğim veri ise bu sheet deki "E" kolonundaki sayıların toplamı
yazdırmak istediğim yer ise yeni açtığım bir excel dosyasının "sheet 1" deki "A1" hücresi

bu yeni açtığım excelin adı "Rapor_Sonuc" uzantısı "xlsx"
yolu ise = "X:\SURECLER_DENEME\ISYUKU\MOB\HESAP_ISLEMLERI "

 

[MURATSO]

Merhaba,
Aşağıdaki kodu kendinize uyarlayınız.

Sub Kod()
Application.ScreenUpdating = False
Set ana = ThisWorkbook.Sheets("[COLOR="Red"]Sayfa1[/COLOR]") 'Hangi sayfaya alınacak?
Set başka = Workbooks.Open("Z:\ORTAK 2014\5. İŞLEM ADETLERİ VE İŞYÜKÜ\2. İŞYÜKÜ\İşyükü Raporları\MOB\HESAP İŞLEMLERİ\Hesap İşlemleri Mart 2014.[COLOR="red"]xlsx[/COLOR]") 'Alınacak dosyanın uzantısı ne?
ana.Range("[COLOR="red"]A1[/COLOR]") = başka.Sheets("[COLOR="red"]HESAP[/COLOR]").Range("[COLOR="red"]A80[/COLOR]") 'Hangi sayfanın hangi hücresi nereye alınacak?
başka.Close
Application.ScreenUpdating = True
End Sub

Merhaba,

öncelikle çok teşekkür ederim.
verdiğiniz kod ile herşey yerli yerine oturdu

bu noktada bir sorum daha olacak
ağaıdaki kod satırında E80 nolu hücredeki veriyi alıyorum. bu noktada E kolonundaki tüm sayısal rakamların toplam değerini almak için nasıl değiştirmeliyim?
çünkü ben daha öncesinde E80 nolu satıra toplam değeri alarak bu rakamı çekiyorum ama her seferinde önce toplayıp sonra almak yerine kod ile toplamak istiyorum.

ana.Range("C3") = başka.Sheets("MOB_TL_Ops_0demeler_v1").Range("E80")

E kolonuna satır eklenmesi veya çıkarılması durumunda da yine toplam alabileyim

şimdiden çok teşekkür ederim.

 

[ÖmerBey]

Merhaba,
E sütunundaki tüm sayıları toplamak için kodu şu şekilde değiştirebilirsiniz:

ana.Range("C3") = [COLOR="Red"]WorksheetFunction.Sum([/COLOR]başka.Sheets("MOB_TL_Ops_0demeler_v1").Range("[COLOR="red"]E:E[/COLOR]")[COLOR="Red"])[/COLOR]

 

[MURATSO]

selam

Run Tİme Error '424':

hatası verdi

ben veri almak istediğim dosyayıda ekliyorum.

 

[MURATSO]

selam

Run Tİme Error '424':

hatası verdi

ben veri almak istediğim dosyayıda ekliyorum.

gerek kalmadı hata bendeymiş

düzeldi şimdi çok teşekkür ederim

 

[muhammethezer]

excel makro ile satıra göre sutuna veri almak

Merhaba, Ekli dosya içerisinde bulunan telefon numarasına göre TUTAR, KDV % 18 MATRAH
gibi kolonları makro ile sayfaya almak istiyorum. Yardımcı olabilir misiniz?

 

[muhammethezer]

excel makro ile satıra göre sutuna veri almak

Merhaba Arkadaşlar, Konu ile ilgili olarak yardımcı olabilir misiniz?

 

[noyfa]

Merhaba,

Klasör içerisinde yüzlerce excel dosyası ve bir tanede kontol excel dosyası mevcut. Kontrol dosyasında B3 den başlayarak aşağı doğru diğer excel dosyalarının adı yazıyor.
Kontrol excel sayfasında B3 de dosya adı yazan excel'i açıp C3 deki degeri alarak, kontrol sayfasındaki C3 e yazmasını istiyorum.

Bunu makro ile Kontrol sayfasındaki B3 den başlayarak aşagı doğru dolu olan hücreleri okutarak yapmam lazım.

Yardımlarınızı bekliyorum.