Makro ile klasör içindeki kapalı excel dosyalarından sırayla aynı satırdaki veriyi alıp alt alta listelemek

[kepetto]

Merhabalar,

Bir klasör içerisinde kapalı excel dosyalarım var. bu klasörün dışındada makro yazmak istediğim excel dosyası.
Sırası ile kapalı olan dosyaların B20:O20 aralığındaki satırlarını, Dışarıdaki makro yazacağım dosyama alt alta listelemek istiyorum,
Kod konusunda yardımcı olur musunuz?

Biraz yapmaya çalıştım fakat yapamadım, şimdiden çok teşekkür ederim

 

[kepetto]

yardım rica olunur.

 

[thegreen]

Bir komut dugmesine asagidaki kodlari ekleyip calistirdiginizda istediginiz excel dosyasindan istediginiz sutun ve satirlari, istediginiz satira alabilirsiniz.

Private Sub CommandButton1_Click()

Dim ilk, ikinci As Workbook
Dim Baslik As String
Dim Hucre1, Hucre2 As Range
Set ilk = Application.ActiveWorkbook
Baslik = "ExceldenExceleVeriCek"
With Application.FileDialog(msoFileDialogOpen)
.Filters.Clear
.Filters.Add "Excel 2007-13", "*.xlsx; *.xlsm; *.xlsa"
.AllowMultiSelect = False
.Show
If .SelectedItems.Count > 0 Then
Application.Workbooks.Open .SelectedItems(1)
Set ikinci = Application.ActiveWorkbook
Set Hucre1 = Application.InputBox(prompt:="Kopyalamak Istediginiz Hücreleri Seçin", Title:=Baslik, Default:="A1", Type:=8)
ilk.Activate
Set Hucre2 = Application.InputBox(prompt:="Yapistiracaginiz Yeri Seçin", Title:=Baslik, Default:="A1", Type:=8)
Hucre1.Copy Hucre2
Hucre2.CurrentRegion.EntireColumn.AutoFit
ikinci.Close False
End If
End With
End Sub

 

[kepetto]

Yanıtınız için çok teşekkür ederim,
yazdığınız kod tam istediğim işlemi yapıyor fakat,

Şu revizeleri yapmak mümkün müdür ?

1- Bana klasör seçtirmesin. Koda uzantıların bulunduğu klasör yolunu yazayım.
2- ilk dosyadan başlayarak b2020 satırındaki veriyi kopyalasın,
3- alt alta ana dosyamda sırayla alt alta listelesin.

Yardımlarınız için teşekkür ediyorum.

 

[thegreen]

Rica ederim, bunun icin makro da daha deneyimli bir arkadasa ihtiyaciniz var, cunku aynisini bende cok sefer denedim bir kac sonuc buldum yalniz her seferinde islem kodu hatasi veriyor, bende makroda pek iyi sayilmam, elimde olan makroyu size attim.
Ama biraz arastirma yaparsaniz istediginiz sonuca varmaniz mumkun tahminimce.

 

[kepetto]

Umarım yardım eden olur,
Katkılarınızdan dolayı teşekkür ederim.

 

[kepetto]

zor bir soru sordum galiba..

 

[kepetto]

Üstadlarım 100 kişi bakıp cevap yazmamış el birliği ile yeşillendirelim artık. Bir el atın.

 

[Korhan Ayhan]

Forumda arama yapmalısınız. Bolca örnek var.

Farklı xls dosyalarını tek bir shette alt alta birleştirme

Merhaba Değerli arkadaşlar, Farklı xls dosyalarınında yer alan sheetleri farklı bir excel kitabında tek bir sheette alt alta birleştirebilirmiyiz. Formda çok aradım ancak genellikle farklı sayfaları tek bir çalışma kitabında ayrı ayrı sheetler şeklinde çözümler var.Dolayısıyla bu ihtiyacımı...

www.excel.web.tr