For Next Döngüsü Çalışmıyor

[mharat]

Arkadaşlar,

Bir Excel çalışmam içesisinde PKFdb Sayfasından belirli Sütundaki verileri Genel Sayfasına Aktarmak için gönderdiğim kodları kullanmaktayım. ancak "Sona" Değişkeni 1 vermekte bu nedenle veri aktarılmamaktadır. Aslında "Sona" değişkeni Kayıt satırı kadar olması gerekmektedir.

Bir yerde hata yapıyorum fakat bulamadım. Yardımlarınızı Önemle rica ederim.

Private Sub CommandButton2_Click()
Dim b As Integer
Dim c As Integer
Dim sona As Integer
sona = Sheets("PKFdb").Range("AY65536").End(xlUp).Row
    Sheets("Genel").Cells.EntireRow.Hidden = False
    Sheets("Genel").Range("A3:L65536").ClearContents 'Hücre içinde yazanları temizler.
    Sheets("Genel").Range("A3:L65536").Interior.ColorIndex = -4142 'Hücrelerin dolgu renklerini temizler.
    c = 3
    For b = 2 To sona
            Sheets("Genel").Cells(c, 1) = c - 2
            Sheets("Genel").Cells(c, 2) = Sheets("PKFdb").Cells(b, 1)
            Sheets("Genel").Cells(c, 3) = Sheets("PKFdb").Cells(b, 2)
            Sheets("Genel").Cells(c, 4) = Sheets("PKFdb").Cells(b, 3)
            Sheets("Genel").Cells(c, 5) = Sheets("PKFdb").Cells(b, 4)
            Sheets("Genel").Cells(c, 6) = Sheets("PKFdb").Cells(b, 5)
            Sheets("Genel").Cells(c, 7) = Sheets("PKFdb").Cells(b, 6)
            Sheets("Genel").Cells(c, 8) = Sheets("PKFdb").Cells(b, 7)
            c = c + 1
    Next b
      Sheets("Genel").Rows(c & ":65536").Hidden = True
      Sheets("Genel").Activate
      Sheets("Genel").Range("B2:K" & Sheets("Genel").Range("B2").End(xlDown).Row).Sort Key1:=Sheets("Genel").Range("C2"), Order1:=xlAscending, Header:=xlYes, _
      OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
      DataOption1:=xlSortNormal
      Sheets("Genel").Range("A2").Select
End Sub

 

[Ömer BARAN]

Ularım yanlış bilmiyorumdur, açtığınız konu ile ilgili olarak fikrimi söylemek istedim.

Profilinizde Excel versiyonunuz 2003 olarak gödürüyor ancak gerçekte daha üst versiyon ve veri yığınınız 65536 satırdan fazla ise Sona değişkeni 1 değerini alır.
Excel versiyonunuz gerçekte daha üst versiyonsa kod'da yer alan 65536 sayısını versiyonunuzun izin verdiği en yüksek sayı veya muhtemel en fazla veri satır sayısı rakamıyla değiştirerek deneyiniz.

 

[Saban Sertkaya]

Sayın mharat, "sona" degişkeni AY sütununun son dolu hücresine bakmaktadır. Sütunda veri yoksa AY1 e ziplanir ve 1 değeri alır. Sanırım kontrol ettirilecek sütun A sütunu olmalı.