Sayfalardan alınan verileri birleştirme

[enes2000eren]

SLM.ARKADAŞLAR AŞAĞIDAKİ MAKRO İLE DİĞER SAYFALARDAN BİLGİLERİ AKTARABİLİYORUM.FAKAT BEN SADECE 1,2,3,...23,24,25 ARASINDAKİ SAYFALARDAN BİLGİ AKTARILMASINI İSTİYORUM.DİĞER SAYFALARDAN DEĞİL.BAŞKA İSİMLER ALTINDA DAHA 15-20 SAYFAM VAR.
"""""""""""""""""""""""""""""""""""""""""""""" """" """""""""""""""""""""""""""""""""""""""""""""" "
Sub AKTAR2()
Call TEMIZLE2
Dim sat, i
s = 3
Sheets("EGZERSIZ").[A3:AL501] = Empty
Application.ScreenUpdating = False
For i = 1 To Sheets.Count
For sat = 347 To Sheets(i).Cells(355, "A").End(xlUp).Row
If Sheets(i).Name <> Sheets("EGZERSIZ").Name Then
Range(Sheets("EGZERSIZ").Cells(s, "A"), Sheets("EGZERSIZ").Cells(s, "AL")) = _
Range(Sheets(i).Cells(sat, "A"), Sheets(i).Cells(sat, "AL")).Value
s = s + 1
End If
Next: Next
Application.ScreenUpdating = True
Call MODEL2
Call GIZLE2
End Sub

 

[enes2000eren]

Arkadaşlar yardımlarınızı bekliyorum.tşk

 

[omerceri]

Bilgi almak istediğin sayfaların isimleri numeric mi diğer sayfaların isimleri arasında numeric olan varmı

 

[enes2000eren]

sağolun.diğer sayfalar alfabetik olarak yapılmıştır.yani nümerik sayfa başka yok.

 

[omerceri]

Kusura bakmayın çıkmak zorunda kaldım, kodu aşağıdaki gibi denerseniz
Sub AKTAR2()
Call TEMIZLE2
Dim sat, i
s = 3
Sheets("EGZERSIZ").[A3:AL501] = Empty
Application.ScreenUpdating = False
For i = 1 To Sheets.Count
if isnumeric(Sheets(i).name) then
For sat = 347 To Sheets(i).Cells(355, "A").End(xlUp).Row
If Sheets(i).Name <> Sheets("EGZERSIZ").Name Then
Range(Sheets("EGZERSIZ").Cells(s, "A"), Sheets("EGZERSIZ").Cells(s, "AL")) = _
Range(Sheets(i).Cells(sat, "A"), Sheets(i).Cells(sat, "AL")).Value
s = s + 1
End If
Next
End If
Next
Application.ScreenUpdating = True
Call MODEL2
Call GIZLE2
End Sub