başka dosyadan isim getirme

[command]

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

 

[command]

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.

 

[command]

arkadaşlar yok mu yardım edecek

 

[İhsan Tank]

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.

 

[command]

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.

 

[İhsan Tank]

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.

 

[command]

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.

 

[İhsan Tank]

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.

Merhaba
Boş bir module kopyalayın ve deneyin.

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

 

[command]

hOCAM ÇOK TEŞEKKÜRLER, CEVAP YAZMA FIRSATIM OLMADI. TŞKLER.

İyi çalışmalar.

 

[İhsan Tank]

hOCAM ÇOK TEŞEKKÜRLER, CEVAP YAZMA FIRSATIM OLMADI. TŞKLER.

İyi çalışmalar.

Rica ederim
Kelimelerimizi küçük harfle yazmaya özen gösteriniz
:keyif: