[Yardım]  Sayfaları Alt Alta Toplayan Kod'da Ricam Var

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Sayfaları Alt Alta Toplayan Kod'da Ricam Var

İleti#1)  okankaradag22 » 31 May 2018 15:59

Herkese merhaba;
Ekteki dosya da yer alan makroyu çalıştırdığımda,dosyanın bulunduğu klasördeki tüm excel dosyalarının sayfalarını alt alta birleştiriyor.Fakat sadece ilk sheetleri dikkate almakta.Ben tüm sayfaları alt alta toplamasını istiyorum.
Yani dosyadaki makroyu çalıştırdığımda içinde bulunduğu klasördeki tüm excelleri tüm sayfalarını alt alta toplaması işimi görecektir.

Yardımlarınızı rica ederim
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
okankaradag22
 
Kayıt: 20 Şub 2018 09:43
Meslek: raporlama ve analiz uzm.
Yaş: 28
İleti: 4
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul / beykoz

Cevap: Sayfaları Alt Alta Toplayan Kod'da Ricam Var

İleti#2)  fıratugur_ » 31 May 2018 16:07

Sub birlestir()
Dim yol As String, dosya As String
Dim syf As Worksheet, kop As Range, yap As Integer
Dim bas As Range, bit As Range
Application.ScreenUpdating = False
yol = ThisWorkbook.Path & "\"
dosya = Dir(yol & "*.xls")
Do
If dosya = ThisWorkbook.Name Then GoTo a:
Workbooks.Open yol & dosya
ThisWorkbook.Activate
For Each syf In Workbooks(dosya).Worksheets
Set bas = Workbooks(dosya).Worksheets(syf.Name).Range("A2")
Set bit = Workbooks(dosya).Worksheets(syf.Name).Range("A1").SpecialCells(xlCellTypeLastCell)
yap = ThisWorkbook.Sheets(1).Range("A65536").End(xlUp).Row + 1
Set kop = Workbooks(dosya).Worksheets(syf.Name).Range(bas, bit)
kop.Copy Range("A" & yap)
Next syf
Workbooks(dosya).Close False
a:
dosya = Dir
Loop Until dosya = ""
Application.ScreenUpdating = True
End Sub
Kullanıcı avatarı
fıratugur_
Yeni Başlamış
 
Adı Soyadı:fırat uğur
Kayıt: 24 May 2012 13:09
Meslek: raporlama
Yaş: 39
İleti: 13
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul/bahçelievler

Cevap: Sayfaları Alt Alta Toplayan Kod'da Ricam Var

İleti#3)  okankaradag22 » 31 May 2018 17:04

Ütadım ellerine sağlık şkşk
Kullanıcı avatarı
okankaradag22
 
Kayıt: 20 Şub 2018 09:43
Meslek: raporlama ve analiz uzm.
Yaş: 28
İleti: 4
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul / beykoz

Cevap: Sayfaları Alt Alta Toplayan Kod'da Ricam Var

İleti#4)  okankaradag22 » 31 May 2018 20:13

Hocam;
Bu kodda sayfanın ortasına pivot yapıyor .
Kaldıramadım
tekrar yardımcı olurmusun
Kullanıcı avatarı
okankaradag22
 
Kayıt: 20 Şub 2018 09:43
Meslek: raporlama ve analiz uzm.
Yaş: 28
İleti: 4
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul / beykoz

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 0 misafir

Bumerang - Yazarkafe