excel farklı klasör içerisinde bulunan dosyadan veri alma

[ozguristanbullu]

"a" klasörümüz ve içerisinde "1" adlı dosyamız var. dosya içerisindeki excel tablomuzda "I8" hücresindeki formülle elde ettiğimiz veriyi, "b" klasörümüz içerisindeki "x" dosyamızda varolan tablodaki "D6" hücresine nasıl atarız, yardımlar için şimdiden teşekkürler
saygılar.

 

[asi_kral]

"a" klasörümüz ve içerisinde "1" adlı dosyamız var. dosya içerisindeki excel tablomuzda "I8" hücresindeki formülle elde ettiğimiz veriyi, "b" klasörümüz içerisindeki "x" dosyamızda varolan tablodaki "D6" hücresine nasıl atarız, yardımlar için şimdiden teşekkürler
saygılar.

Merhaba
Bu işlemi makro ile mi yaptırmak istiyorsunuz.
Bunun için iki klasörün olduğu adresler lazım. "C:\a" gibi

 

[ozguristanbullu]

C:\Users\sony\Desktop

 

[ReaLFrienD]

sn ozguristanbullu ;
I8 hücresini neye göre veya hangi koşula göre d6 ya aktaracak biraz daha açıklayabilirmisiniz

 

[ozguristanbullu]

koşul yok hocam I8 sürekli güncel tutulacak olan veri
D6 da formüle dahil olacak

 

[ozguristanbullu]

I8 hücresi birden fazla klasör içerisinde ve farklı dosyalarda maliyet hesabı verisi olarak kullanılacak

 

[ReaLFrienD]

anlayabildiysem ; sürekli I8 den alacaksa, 2 excel'i de aç,d6'nın üzerindeyken = ile formülü açtıktan sonra ı8'e gidip seç.

 

[asi_kral]

C:\Users\sony\Desktop

Merhaba
Boş bir module kopyalayın ve deneyin.

Option Explicit
Sub Veri_Gönder_1967()
'Konu       :   Dosyaya Veri Gönder
'Mail       :   m.batu.1967@gmail.com
'Coder By   :   asi_kral_1967
Dim asi, kral, asi1, kral1, yol
Dim s1, s2
asi = ActiveWorkbook.Name
asi1 = ActiveSheet.Name
Application.ScreenUpdating = False
yol = Replace(ThisWorkbook.Path & "\", "a\", "b\")
kral = "x.xls"
Workbooks.Open (yol & kral)
kral1 = ActiveSheet.Name
Set s1 = Workbooks(asi).Sheets(asi1)
Set s2 = Workbooks(kral).Sheets(kral1)
s2.Range("D6") = s1.Range("I8").Value
Workbooks(kral).Save
Workbooks(kral).Close
Application.ScreenUpdating = True
MsgBox "Kayıt Tamamlandı", vbInformation, "asi_kral_1967"
End Sub

Dosyanız Ekte.

 

[ozguristanbullu]

sn realfriend teşekkürler gerçekten yeterli

 

[ozguristanbullu]

sn. asikral1967 teşekkürler
saygılar

 

[asi_kral]

sn. asikral1967 teşekkürler
saygılar

Kolay Gelsin.

 

[eminasri]

bu işlemleri çoğaltabilirmiyiz 10 hücre mesela

 

[asi_kral]

bu işlemleri çoğaltabilirmiyiz 10 hücre mesela

Formülle mi işlem yapacaksınız makro ile mi_?
Formülle yapacaksanız Sabitleri ona göre değiştirin ve aşağıya doğru çoğaltın.
Makro ile yapacaksanız detay verirseniz yardımcı olabilirim.