while wend döngüsü

[Hazallkara]

merhaba iyi günler, program sayfasındaki command butonun içindeki kodda sayi=151 dedim. 151'den 231 'e kadar olanları getirsin demeye çalıştım ama kod çalışmadı. sayi=1 dediğimde kod çalışıyor ama ben 151'den sonrasını istiyorum. Yardımcı olabilir misiniz?

 

[Muzaffer Ali]

Merhaba.
Sayfa2 nin kod sayfasındaki kodları silin aşağıdakileri ekleyin.

Private Sub CommandButton1_Click()
    Dim iRow As Long
    Dim ws As Worksheet
    Set ws = Worksheets("program")
    Dim ws2 As Worksheet
    Set ws2 = Worksheets("anasayfa")
    Dim sayac As Double
    Dim sayac2 As Double
    Dim sonveri As Double
    Dim sayi As Integer
    Dim controlkes As Double
    For sayi = 151 To 231
        ws.Cells(sayi, 7).Value = ws2.Cells(sayi, 1).Value
        ws.Cells(sayi, 9).Value = ws2.Cells(sayi, 8).Value
        sayac = (sayac + CDbl(ws2.Cells(sayi, 14).Value))
        If sayac < 435 Then
            sayac2 = (sayac2 + CDbl(ws2.Cells(sayi, 14).Value))
            ws.Cells(sayi, 8).Value = ws2.Cells(sayi, 14).Value
        End If
        If sayac > 435 Then
            sonveri = CDbl(ws2.Cells(sayi, 14).Value)
            controlkes = 435 - sayac2
            ws.Cells(sayi, 8).Value = controlkes
            Exit For
        End If
    Next
End Sub

 

[Hazallkara]

teşekkür ederim ama yine çalışmıyor yani hiçbir şey getirmiyor?

 

[Muzaffer Ali]

Şu hali ile 151. satırdan itibaren yazıyor. Böyle istemiyorsanız,
Tam olarak ne yapmaya çalıştığınızı belirtir misiniz?

 

[Hazallkara]

evet 151. satırdan itibaren yazsın istiyoruz ama sizin yazdığınız kodu yazıp çalıştırdığımda bir sonuç vermiyor.