Sayfalardaki bilgileri tek sayfaya aktarmak

[selcuk_c]

merhaba,

aşağıdaki kodun S1.Cells(X, "A") = "S" & SUTUN.Cells(X, "A") satırlarında hata vermekte yani "S" & SUTUN tanımlamasında. nasıl düzeltebilirim.

Option Explicit
Private Sub CommandButton1_Click()


Dim S1 As Worksheet, S2 As Worksheet, S3 As Worksheet, SUTUN, SS, X As Long


Set S1 = Sheets("GENEL")
Set S2 = Sheets("ALKA")
Set S3 = Sheets("BAKAB")

S1.Select
SS = 0
For SUTUN = 2 To 3

For X = 3 To 1000

S1.Cells(X, "A") = "S" & SUTUN.Cells(X, "A")
S1.Cells(X, "B") = "S" & SUTUN.Cells(X, "B")

S1.Cells(X, "C") = "S" & SUTUN.Cells(X, 3 + SS)
S1.Cells(X, "D") = "S" & SUTUN.Cells(X, 4 + SS)
S1.Cells(X, "E") = "S" & SUTUN.Cells(X, 5 + SS)
S1.Cells(X, "F") = "S" & SUTUN.Cells(X, 6 + SS)
S1.Cells(X, "G") = "S" & SUTUN.Cells(X, 7 + SS)
S1.Cells(X, "H") = "S" & SUTUN.Cells(X, 8 + SS)
Next
SS = SS + 7
Next

MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[Korhan Ayhan]

Selamlar,

Yazdığınız kod ile yapmak istediğiniz nedir. Açıklar mısınız? Yazdığınız kodda yazım hatası var.

 

[selcuk_c]

yapmak istediğimi ekli dosyada gönderiyorum.genel sayfasındaki butona bastığımda, örneğin öncelikle alka sayfasıdaki tarih ve seans bilgilerini hemen genel sayfasına atacak sonra alka sayfasındaki ilgili bilgileri yani sırasıyla c3 den h3 e kadar olan bilgiyi genel sayfasındaki ilgili alanına atmasını istiyorum. sonra yine sırasıyla diğer sayfalardaki bilgileri genel sayfasına atacak. bunu yapacaktım.

 

[Korhan Ayhan]

Selamlar,

Diğer sayfalardaki tarihler hep aynımıdır. Veriler GENEL sayfasına aktarılırken hangi tarih aralığına göre aktarılacak?

 

[selcuk_c]

bütün sayfalardaki tarih ve seans bilgileri aynı herhangibir sayfadan alınması yeterlidir.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz. ALKA isimli sayfanızdaki tarihler ve seanslar eksik onlarıda diğer sayfalarla aynı yaparsanız problem yaşamazsınız.

Option Explicit
 
Private Sub CommandButton1_Click()
    Dim S1 As Worksheet, X As Integer, Sütun As Byte
    
    Set S1 = Sheets("GENEL")
    Sütun = 3
    
    S1.Select
        
    Range("A3:CN65536").ClearContents
    Range("A3:B65536").Value = Sheets(2).Range("A3:B65536").Value
    
    For X = 2 To Sheets.Count
        Sheets(X).Range("C3:H" & Sheets(X).Range("A65536").End(3).Row).Copy S1.Cells(3, Sütun)
        Sütun = Sütun + 6
    Next
    
    Set S1 = Nothing
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[selcuk_c]

Çok teşekkür ederim.