Veri Aktarma Sorunu

[Ahmet Sami]

Arkadaşlar elimde aşağıdaki gibi bir kod var. GENEL ÖDENEN sayfasında yaklaşık olarak 50000 (ellibin) satır verim var ancak aktarma işlemini 10000 (onbin) civarına kadar yapıyor, onbinden sonra yer alan isimleri aktarmıyor.
Bu konuda yardımcı olursanız sevinirim.

Sub tumodenenleriaktar()
Set S1 = Sheets("GENEL ÖDENEN")
Set S2 = Sheets("ANASAYFA")
S2.Range("B11:N300").ClearContents
sat = 10
DEM1 S1, S2, sat
End Sub
Public Sub DEM1(S1, S2, sat)
X = WorksheetFunction.CountA(S1.Range("B:B"))
For i = 2 To X
If S1.Cells(i, 2) = Sheets("ANASAYFA").[F8] Then
sat = sat + 1
S2.Range("B" + Trim(sat) + "" + Trim(sat)).Value = S1.Range("P" + Trim(i) + ":B" + Trim(i)).Value
End If
Next i
End Sub

 

[Ahmet Sami]

Yardımcı olabilecek bir arkadaşımız yok mu acaba.

 

[Orion1]

Orada bir koşul var.
B sütunundaki verinin F8 deki veriye eşit olma koşulu var.
Bunu sağlamıyorsa aktarmıyor olabilir.Başkada bir şey gözükmüyor.
B sütununda boşluklar varsada tamamını aktarmıyor olabilir.

 

[Orion1]

İlgili koduda aşağıdaki ile değiştirin.

S2.Range("B" & sat & ":P" & sat).Value = S1.Range("P" & i & ":B" & i).Value

 

[Ahmet Sami]

Hafta sonu olduğundan giriş yapamamıştım.
Orion Bey ilginizden dolayı teşekkür ederim.
Henüz kontrol etme zamanı bulamadım. kontrol edince olumlu veya olumsuz size dönüş yapacağım

 

[Saban Sertkaya]

Tahminen,

X = WorksheetFunction.CountA(S1.Range("B:B"))
For i = 2 To X

B sütunundaki toplam veri kadar döngü yapacaktır. B sütununda kaç adet veriniz vardır ?

 

[Ahmet Sami]

B sütununda yaklaşık 50000 civarında verim var Sayın Şaban bey