Sayfalardan Verİ Toplama

[Kristalin]

Arkadaşlar yardım edecek ve emek verecek arkadaşlara şimdiden teşekkür ederim
Elimde aylık bir tablo var.Sayfalardan (p5;p28) aralığını seçerek TABLO sayfasına örneğin sayfa1 deki veriyi tablo tablo sayfasındaki b32;b55'e , sayfa2 deki veriyi T ablo sayfasında C32;C55'e......>>> şeklinde eklemeye çalışıyorum.Fakat bunu döngüye çevirmenin yolu yok mudur?For döngüsünde sayfa adını nasıl döngüye katabilirim asıl sorunum burda.Gerisini halledeceğimi düşünüyorum.Şimdiden teşekkürler.

Sheets("OCAK1").Select
Range("P528").Select
Selection.Copy
Sheets("TABLO").Select
Range("B32").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

---------------------------------------
Sheets("OCAK2").Select
Range("P528").Select
Selection.Copy
Sheets("TABLO").Select
Range("C32").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


>>>>>>
Sheets("OCAK3").Select

.................
..........
....
..

 

[Orion1]

Merhaba.
Aşağıdaki kodları bir denermisiniz?
Yalnız Dosyanızın bir yedeğini almayı unutmayın.

Sub sayfa_yapistir()
Dim i As Integer, sut As Integer
sut = 2
For i = 1 To Worksheets.Count
    If Worksheets(i).Name <> "TABLO" Then
        Sheets(i).Select
        Range("P5:P25").Copy
        Sheets("TABLO").Cells(32, sut).PasteSpecial
        sut = sut + 1
     End If
Next i
Application.CutCopyMode = False
Sheets("TABLO").Select
MsgBox "KOPYALAMA YAPILDI"
End Sub

 

[Kristalin]

Allah razı olsun

Üstad dahil etmek istemediğim iki sayfa vardı
For i = 1 To Worksheets.Count - 2 şeklinde değiştirdim oldu. Allah razı olsun.Allah'a emanet ol.

 

[Orion1]

Rica ederim.
İyi çalışmalar.