ayrı sayfalarda yazılanları tek sayfaya otamatik

[eserpil]

ayrı sayfalarda yazılanları tek sayfaya otamatik
aktara bilecegim bir folmül varmı

 

[Orion1]

ayrı sayfalarda yazılanları tek sayfaya otamatik
aktara bilecegim bir folmül varmı

Bence bu işlem makro ile daha doğru olur.
Formülmü istiyorsunuz makromu?

 

[eserpil]

makro bilmedigim için folmül dedim ama makro,da olur

 

[Orion1]

makro bilmedigim için folmül dedim ama makro,da olur

Örnek dosya yollarsanız yaparım.
Bu şekilde neyin nereye nasıl olacağı belirsiz.Örnek dosya üzerindede açıklama girmeniz gerekiyor.

 

[eserpil]

hocam gönderdim şimdiden teşekkürler

 

[Orion1]

Dosyanız ektedir.

Sub sayfa_aktar()
Dim sh As Worksheet, sat As Long, sat2 As Long
Application.ScreenUpdating = False
Sheets("ÖZET TABLO").Select
Range("A5:H65536").ClearContents
For Each sh In Worksheets
    If sh.Name <> "ÖZET TABLO" Then
        sat2 = sh.Cells(65536, "B").End(xlUp).Row
        sat = Cells(65536, "B").End(xlUp).Row + 1
        sh.Range("A3:G" & sat).Copy
        Range("A" & sat).PasteSpecial xlPasteValues
    End If
Next
Range("A5:H65536").Sort Range("B2")
Range("A1").Select
Application.ScreenUpdating = True
MsgBox "Aktarım tamamlandı" & vbLf & _
"evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End Sub

 

[eserpil]

Allah sen razı olsun hocam nekadar hayra girdin anlatamam beni sıkıntıdan kurtardın

 

[Orion1]

Allah sen razı olsun hocam nekadar hayra girdin anlatamam beni sıkıntıdan kurtardın

Rica ederim.
İyi çalışmalar.

 

[apparatebau]

Dosyanız ektedir.

Sub sayfa_aktar()
Dim sh As Worksheet, sat As Long, sat2 As Long
Application.ScreenUpdating = False
Sheets("ÖZET TABLO").Select
Range("A5:H65536").ClearContents
For Each sh In Worksheets
    If sh.Name <> "ÖZET TABLO" Then
        sat2 = sh.Cells(65536, "B").End(xlUp).Row
        sat = Cells(65536, "B").End(xlUp).Row + 1
        sh.Range("A3:G" & sat).Copy
        Range("A" & sat).PasteSpecial xlPasteValues
    End If
Next
Range("A5:H65536").Sort Range("B2")
Range("A1").Select
Application.ScreenUpdating = True
MsgBox "Aktarım tamamlandı" & vbLf & _
"evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End Sub

Sayın Evren Bey

Son sayfadaki sayfaları aktar butonunu nasıl oluşturuyoruz acaba,
Birde bu makro oluşturma konusunda biraz yardımcı olabilirmisiniz yukardaki değerleri nasıl neye göre yazıyorsunuz.Bunu oluştuturken hamgi mantıkla hareket ediliyor,Birde bununla ilgili görsel yada resimli bir anlatım varmı?İşimde çok sıklıkla excel de liste vesair hazırlamam gerekir ve bu tip bilgiler çok işime yarıyor.Sizleride ayrıca tebrik ediyorum.Hakikaten bunları yapmak istiyorum ama nasıl yapacağım konusunda sizlerden yardım bekliyorum.Şimdiden teşekkürler