başka dosyadan isim getirme

  • Konbuyu başlatan Konbuyu başlatan command
  • Başlangıç tarihi Başlangıç tarihi
C

command

Katılım
22 Ocak 2009
Mesajlar
136
Excel Vers. ve Dili
excell 2003
Merhaba,

Yaklaşık 45 tane excel dosyasından sabit bir hücredeki veriyi(hepsinde B3 deki) başka bi(ÖRN.xls) dosyada yanına yazdırmak istiyorum. Örnekte olduğu gibi şehir isimlerini A sütunundaki ilgili hücreden almasını nasıl sağlayabilirim.

tşkler
 

Ekli dosyalar

Makro ile de olabilir, o zamanda bi klasör içindeki dosya isimlerini A1 e yazsın,ve yanına her kapalı excel dosyasının B3 hücresindeki veriyi B1 e D45 deki veriyi C1 e, F54 deki verisini ise D1 e yazacak.

yardımcı olursanız çok sevinirim.
 
Merhaba
Bir tane dosya eklemişsiniz ve başka dosyadan veri alsın istiyorsunuz sizce bu ne kadar mümkün.
Bence bir kaç tane dosya ekleyin nereden veri alınacağına dair örneklerle anlatın.
Ayrıca bunu formülle siz yapmıyacaksanız makro ile yaparım. Makro ile yapmak için bazı bilgiler istiyorum. Tüm belgeler aynı klaösrde mi yoksa farklı bir klasörde mi olacak_? Farklı klasörde ise lütfen yol bilgisi verin. Ayrıca bu yapacağım işlemde dosyalar arka planda açılıp kapanacak işinizi görürse dosyalarınızı ekleyin bizde ona göre bir çözüm üretelim.
 
Mrb Hocam,zür dilerim.

O:\1 Raporlama klasörü içindeki 45 excel dosyasının ismini
A1 sütununa B5 hücresindeki veriyi B2 ye ve B10 daki veriyi de C1 e yazacak

bu şekilde alt alta yazacak hepsini

şimdiden tşkler.
 
Merhaba
Üstte yazdıklarımı okuduğunuza emin misiniz_?
Ben dosya istedim siz bana açıklama göndermişsiniz sonra hocam niye yardım etmiyorsunuz diyeceksiniz bir daha uyarmam dosya gelene kadar bilginiz olsun.
 
Ekledim hocam kusura bakmayın. Ekteki dosyaların B5 ve B10 hücrelerini ÖRN.xls dosyasına A1(Dosyaadı) B1 C1 olarak yapıştıramak istiyorum.

Çok tşkler. Saygılar.
 

Ekli dosyalar

command' Alıntı:
Ekledim hocam kusura bakmayın. Ekteki dosyaların B5 ve B10 hücrelerini ÖRN.xls dosyasına A1(Dosyaadı) B1 C1 olarak yapıştıramak istiyorum.

Çok tşkler. Saygılar.
Genişletmek için tıkla ...

Merhaba
Boş bir module kopyalayın ve deneyin.
Kod: 
Option Explicit
Sub sayfa_bilgilerini_çal_61()
Dim ts, kaplan, trabzonspor, bordo, mavi, süre As Date
trabzonspor = MsgBox("Verileri Çekiyorum", vbYesNo, "Onay")
If trabzonspor = vbNo Then Exit Sub
Application.ScreenUpdating = False
süre = Time
Dim da, ds, ald, als, yol
kaplan = 1
da = ActiveWorkbook.Name
ds = ActiveSheet.Name
Range("A:C").ClearContents
Set mavi = CreateObject("Scripting.FileSystemObject")
For Each bordo In mavi.GetFolder("D:\1 Raporlama").Files
If bordo.Name <> ThisWorkbook.Name Then
Sheets(ds).Cells(kaplan, "A") = Replace(bordo.Name, ".xlsx", "")
kaplan = kaplan + 1
End If
Next
For ts = 1 To Workbooks(da).Sheets(ds).Cells(Rows.Count, "A").End(xlUp).Row
yol = "D:\1 Raporlama\"
ald = Workbooks(da).Sheets(ds).Cells(ts, "A") & ".xlsx"
Workbooks.Open (yol & ald)
als = ActiveSheet.Name
Workbooks(da).Sheets(ds).Cells(ts, "B") = Workbooks(ald).Sheets(als).Range("B5")
Workbooks(da).Sheets(ds).Cells(ts, "C") = Workbooks(ald).Sheets(als).Range("B10")
Workbooks(ald).Close
Next
Application.ScreenUpdating = True
MsgBox Format(süre - Time, "hh:mm:ss") & vbLf _
& "Sürede İşlem Tamamlandı", , "Bitiş"
End Sub
 
hOCAM ÇOK TEŞEKKÜRLER, CEVAP YAZMA FIRSATIM OLMADI. TŞKLER.

İyi çalışmalar.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst