TEK EXCEL DOSYASINDA BİRDEN FAZLA SEKMEDEN KRİTERE GÖRE VERİ GETİRME

[ben28]

Merhabalar,

Excel belgemde yaklaşık olarak 70 sekme var. Tek olarak oluşturduğum sayfaya sekmelerdeki kolaylıkları sunmak istiyorum. ( Sekmelerde değişiklik olabilir )

Düşeyara ile yapmaya çalıştı ama olmadı.

Kriterim yatıştırma gözüken Kod, Bölüm, Sicil ve Adı kontrol edildi Tarih ve Avans bilgilerinin gelmesidir.

Yapılabilirmiyiz.

 

[hasankardas]

Merhaba,
Sayfada ki G ve H sütununda ki birleştirmeyi kaldırınız. Kopyalama yaparken verileri kaydırıyor. Verilerin kopyalanacağı sayfanın ismini kod içeresinde değiştirebilirsiniz.
*Kodu sayfadan alıp düzenledim.


Sub birlestir()

Range("A5:A1000000").ClearContents

Application.ScreenUpdating = False


zaman = Timer
For t = 1 To Sheets.Count
If Sheets(t).Name <> "Data" Then
Sheets(t).Activate
son = [A65000].End(3).Row
Range("A2:X" & son).Copy
Sheets("Tüm").Activate
sond = [A65000].End(3).Row
Range("A" & sond + 1).PasteSpecial xlValues
End If

Next
Application.CutCopyMode = False
Range("A4").Select

Application.ScreenUpdating = True

MsgBox "Islem tamam" & Chr(10) & Chr(10) & Sheets.Count - 1 & " Adet sayfa birlestirildi." _
& Chr(10) & Chr(10) & " Islem zamani : " & Format(Timer - zaman, "0.00") & " Saniye", , "BMutlu"

End Sub