• DİKKAT

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

macro ile farklı bir dosyadan veri alma

M

MURATSO

Katılım
3 Nisan 2014
Mesajlar
173
Excel Vers. ve Dili
excel 2010
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
 
Merhaba,
Aşağıdaki kodu kendinize uyarlayınız.
Kod: 
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
 
Alternatif.
Dosyaların ikiside ayni klasörde olmalı.
Dosyanız ektedir.:cool:
Kod: 
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
 

Ekli dosyalar

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' Alıntı:
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.
Genişletmek için tıkla ...

eksik bilgi varsa tamamlayabilirim..
 
Orion1' Alıntı:
Alternatif.
Dosyaların ikiside ayni klasörde olmalı.
Dosyanız ektedir.:cool:
Kod: 
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
Genişletmek için tıkla ...

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 "
 
mucit77' Alıntı:
Merhaba,
Aşağıdaki kodu kendinize uyarlayınız.
Kod: 
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
Genişletmek için tıkla ...

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.
 
Son düzenleme:
Merhaba,
E sütunundaki tüm sayıları toplamak için kodu şu şekilde değiştirebilirsiniz:
Kod: 
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]
 
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?
 

Ekli dosyalar

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

Merhaba Arkadaşlar, Konu ile ilgili olarak yardımcı olabilir misiniz?
 
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.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst