Workbook Birleştirme...

[kaydoldum]

Ekteki book1, book2, book3... şeklinde devam eden 20'den fazla çalışma kitaplarını "anasayfa" isimli çalışma kitabının içerisine tek sayfada alt alta birleştirmek için makro mu önerirsiniz yoksa kopyala yapıştır haricinde bir yöntem var mı ? Macro kodlama bilgim yok bu arada Yardımlarınızı rica ederim.

 

[halit3]

Aşağıdaki linkdeki dosyayı irdeleyiniz.

http://www.excel.web.tr/f117/kapaly-dosyalardan-veri-alma-t68879.html

 

[kaydoldum]

cevabınız için teşekkür ederim. inceleme yaptım. kapalı dosyalar değil benimkiler o an sistemde açık durumdalar ve hepsindeki dataların birleşmesi gerek. kayıtlı dosyalar değiller.

 

[kaydoldum]

Açıklama yapmak gerekirse bir sistemden data her butona basışta yeni workbook açıp verileri ona atıyor. Sonuçta bu workbookların birleşmeleri gerek.

 

[halit3]

bunu denermisiniz.

Sub aktar()
son = Cells(Rows.Count, "A").End(3).Row + 1
Dosya = ActiveWorkbook.Name
Application.ScreenUpdating = False
Dim wkbk As Workbook
For Each wkbk In Application.Workbooks
If wkbk.Name <> ActiveWorkbook.Name Then
If Windows(wkbk.Name).Visible = True Then
Set ver = Workbooks(wkbk.Name).Sheets("Sheet1")
sat = ver.Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
sut = ver.Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
ver.Range(ver.Cells(2, 1), ver.Cells(sat, sut)).Copy
Range("a" & son).Select
ActiveSheet.Paste
Application.CutCopyMode = False
son = son + sat - 1
End If
End If
Next
Range("a1").Select
Application.ScreenUpdating = True
MsgBox "işlem tamam"
End Sub

 

[kaydoldum]

bu çalışmıyor.

Sadece tek sayfayı bazen kopyalıyor bazen kopyalamıyor. Ekte ekran görüntüsü var o sayfalardaki verileri ilk dosyadaki sayfaya kopyalayacak. bide dikkat edilecek husus geçici sayfaları sheet4 olarak açıyor.

 

[halit3]

Sadece tek sayfayı bazen kopyalıyor bazen kopyalamıyor. Ekte ekran görüntüsü var o sayfalardaki verileri ilk dosyadaki sayfaya kopyalayacak. bide dikkat edilecek husus geçici sayfaları sheet4 olarak açıyor.

Bunu denermisiniz.

Sub aktar()
son = Cells(Rows.Count, "A").End(3).Row + 1
Dosya = ActiveWorkbook.Name
Application.ScreenUpdating = False
Dim wkbk As Workbook
For Each wkbk In Application.Workbooks
If wkbk.Name <> ActiveWorkbook.Name Then
If Windows(wkbk.Name).Visible = True Then
Set ver = Workbooks(wkbk.Name).Sheets(ActiveSheet.Name)
sat = ver.Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
sut = ver.Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
ver.Range(ver.Cells(2, 1), ver.Cells(sat, sut)).Copy
Range("a" & son).Select
ActiveSheet.Paste
Application.CutCopyMode = False
son = son + sat - 1
End If
End If
Next
Range("a1").Select
Application.ScreenUpdating = True
MsgBox "işlem tamam"
End Sub

 

[kaydoldum]

neden olmadı

işlem tamamlandı dedi ekte ekran görüntüsü var
ama kopyalama yapmadı
yapılacak şey şu tekrar bahsedeyim müsadenizle
açık çalışma kitaplarındaki verileri tek sayfada toplayacak bir makro basit anlamda

 

[halit3]

Böyle anlaşamıyacağız galiba örjinal dosyalarınızı hayali veri ekliyerek gönderiniz bakalım
1 nolu mesajındaki dosyalarına ben buradan denedim işlem yapıyor

 

[halit3]

buda benim yaptığım kayıt

 

[kaydoldum]

bunların hepsi sheet 1 den çekiliyor benimkilerde sheet4 var acaba ondan mı ?

 

[halit3]

bunların hepsi sheet 1 den çekiliyor benimkilerde sheet4 var acaba ondan mı ?

Örnek dosyalarında hepsinde bir sayfa var bu dosyaların hepsinden veri alır sayfa adı ne olursa olsun.

Eğer dosyalarınızda birden fazla sayfa varsa açık olan sayfanın dışındakilerden veri almıyacaktır.

 

[kaydoldum]

tamam bir aşama kaydettik

şimdi denedim oldu ama nasıl oldu anlatayım.

önce açık çalışma kitaplarını ;

1) tek tek diske kaydettim ve kapattım
2) sonra tekrar sırayla açtım
3) makroyu çalıştırdım.
4) sorunsuz verileri çekip kopyaladı.

dikkatimi çeken nokta ise şu oldu.

biraz ifade ederken zorlanıyorum ama şöyle anlatayım
çalışma kitapları bir şekilde birbiri ile ilişkili iken (iç içe açıkken) makro çalışıyor yani en üstteki çarpıya basıp yes derseniz hepsi birden kapanıyor ya o durum işte oysa ilkinde her çarpıya basışta bir tablo kapanıyor diğerleri duruyordu sanki birbirinden bağımsızdılar bu durumu anlatabildim mi mesela arka arkaya çalışma kitabı açınca tek excell içersinde açılıyor ya bi de arada başka program açarsanız sonrasında bir tane daha çalışma kitabı açarsanız son açtığınız kendi başına bir tablo oluyor bu kriteri göz önüne aldığımda makronun bu sebepten çalışmadığını gördüm. benim çalışma kitaplarımın her biri birbirinden bağımsız açılıyor ve bu makro bu yüzden işe yaramadı

ayrıca sabrınız ve ilginiz için teşekkür ederim

 

[halit3]

üsdeki kapat (x) kapat exceli tamamen kapatır dolayısıyla açık olan dosyaların hepsini kapatır

altdaki kapat (x) kapat işareti pencereyi kapat açık olan ekrandaki aktif dosyayı kapatır

araçlar/seçenekler/görünm/görev çubugundaki pencereler tiki işaretli olusa açık olan bütün excel dosyalarını aşağıda durum çubuğunda görürsünüz.

iyi çalışmalar.

 

[kaydoldum]

peki ben üstteki exceli kapat çarpısına bastığımda diğer excel tablolar neden hala açık kalıyor ? bunu çözdüğümüzde problemin kaynağına inmiş olucaz sanırım.

 

[halit3]

Görünüm/tam ekran modunda değilken sağ en üst köşedeki kapat düğmesine tıkladığınız zaman açık olan bütün excel dosyaları kapanır.

 

[kaydoldum]

bu doğru ama benim excell dosyaları kayıtlı değiller bundan dolayı herhalde sağ en üst köşedeki x basınca dosyaların hepsi kapanmıyor tektek bstıkça kapatıyor bu duruma hiç rastlamadınız mı ?
mesela iki üç tane new workbook açıp üstten kapatınca tek tek kapandığını görebilirsiniz

 

[halit3]

her halde sizin excelinizin ekranı tam ekran modunda olduğu için bunları yapamıyorsunuz.
başka bilgisayrlar varsa onlara bir bakınız bu farkı mutlaka göreceksiniz.

 

[kaydoldum]

tam ekran modunda değil siz denediniz mi new workbook açıp iki üç tane sonra tek tek kapatmayı üstteki çarpıdan

 

[halit3]

tam ekran modunda değil siz denediniz mi new workbook açıp iki üç tane sonra tek tek kapatmayı üstteki çarpıdan

evet denedim.

sağ üstdeki kapat (x) kapat exceli tamamen kapatır dolayısıyla açık olan dosyaların hepsini kapatır

sağ üstekinin altındaki kapat (x) kapat işareti pencereyi kapat açık olan ekrandaki aktif dosyayı kapatır