Sayfalarda bulunan verileri değer olarak yapıştırma

[cayaso]

Ekli dosyada birden otuzbeşe kadar sıralanmış sayfalarda bulunan (Okul sayfaları) C15:AP21 aralığında bulunan verileri Genel1 sayfasında C15:AP85 aralığına boşluk bırakmadan altalta gelecek şekilde makro ile değer olarak yapıştırmak istiyorum. Okulların bazılarında 2 kişi bazılarında 7 kişiye kadar kayıt bulunmaktadır. Çeşitli denemeler yapmama rağmen yapamadım. Yardım edecek arkadaşlara şimdiden teşekkür ederim.

 

[omerceri]

Sn cayaso
Sayfa yapına göre aşağıdaki kodu hazırladım. ilk iki sütunun kodunu yazdım. Diğerlerini sen eklersin noktalı yerden aşağı doğru.

Sub dd()
For i = 1 To 35
a = CStr(i)
say = Sheets(a).Range("C21").End(3).Row
For e = 15 To say
say1 = Sheets("genel1").Range("C65536").End(3).Row

If say1 = 11 Then
say1 = 15
Else
say1 = Sheets("genel1").Range("C65536").End(3).Row + 1
End If

Sheets("genel1").Range("C" & say1).Value = Sheets(a).Range("C" & e).Value
Sheets("genel1").Range("D" & say1).Value = Sheets(a).Range("D" & e).Value
.......
.......
......
Next
Next
End Sub

 

[Huseyinkis]

Ekteki kodları denermisiniz.

Sub getir()
Dim dizi1(1 To 245, 1 To 40)

For x1 = 1 To 35
Syf = Format(x1, "")

For x2 = 15 To 21
If Len(Sheets(Syf).Cells(x2, 3)) > 3 Then
sat = sat + 1
For x3 = 3 To 42
dizi1(sat, x3 - 2) = Sheets(Syf).Cells(x2, x3)
Next x3
End If
Next x2
Next x1
Sheets("Genel1").Range("C15:AP" & sat).Value = dizi1()
End Sub

 

[cayaso]

Sayın omerceri ve hüseyinkis teşekkür ederim. Mesa bittiği için deneme fırsatım olmadı.İnşallah yarın uygulamaya çalışacağım.

 

[cayaso]

Sayın huseyinkis 28 nci sayfadan sonraki sayfalarda bulunan verileri aktarılmıyor. Mümkünse dosya olarak uyarlayabilirmisiniz.

 

[Huseyinkis]

Merhaba kodlarda eksiklik kalmış ekteki gibi değiştirip denermisiniz.

Sub getir()
Dim dizi1(1 To 245, 1 To 40)

For x1 = 1 To 35
Syf = Format(x1, "")

For x2 = 15 To 21
If Len(Sheets(Syf).Cells(x2, 3)) > 3 Then
sat = sat + 1
For x3 = 3 To 42
dizi1(sat, x3 - 2) = Sheets(Syf).Cells(x2, x3)
Next x3
End If
Next x2
Next x1
[B]Sheets("Genel1").Range("C15:AP" & sat+15).Value = dizi1()[/B]
End Sub

 

[cayaso]

Sayfa sayısını artırdığımızda yine sayfaların bir kısmını aktarmıyor. Sayfa sayılarını artırdığımızda kodlarda nasıl değişiklik yapmam gerekiyor. Açıklama yaparsanız memnun olurum.

 

[omerceri]

isim, isim1, Genel1 gibi işleme dahil olmayan sayfaların sayısına bağlı olarak (şu durumda 3)
Sn. Huseyinkis ın kodlarındaki

For x1 = 1 To 35

yazan satırı

Say = sheets.count -3
For x1 = 1 To Say

olarak değiştirin

 

[cayaso]

If Len(Sheets(Syf).Cells(x2, 3)) > 3 Then
Satırında hata verdi.

 

[omerceri]

Help diye bir sayfanız daha varmış

Say = sheets.count -4
For x1 = 1 To Say