Döngü Hatası!!!

[baykan_m]

Merhaba Arkadaşlar,

Yaptığım projede aşağıdaki kodları kullanıyorum. Ancak liste sayısı kadar döngü tekrarlamasına rağmen döngü sürekli çalışmaya devam ediyor. Kendi kendine farklı farklı satırlarda işlemi tamamlıyor. Bu kodu nasıl düzenlemeliyizki örneğin 1 to 85 olduğu zaman 85. satırda makroyu durdursun?

Sub test()
    Range("A1").Select
    Selection.End(xlDown).Select
    liste = ActiveCell.Row + 1
For i = 1 To liste
    If i = liste Then
    Exit Sub
    End If
    Range(Cells(i, "j"), Cells(i, "v")).Select
    SendKeys "{F2}"
    SendKeys "{ENTER}"
Next i
End Sub

 

[baykan_m]

Farklı olarak aşağıdaki koduda deniyorum bu da aynı şekilde döngüden fazla işlem yapıyor

Sub Yenile()
    Range("A1").Select
    Selection.End(xlDown).Select
    liste = ActiveCell.Row
For i = 1 To liste
    Cells(i, "j").Select
    SendKeys "{F2}"
    SendKeys "{ENTER}"
Next i
End Sub

 

[Emir Hüseyin Çoban]

. . .

Sub Yenile()
    Range("A1").Select
    liste = Cells(Rows.Count, "A").End(3).Row
    For i = 1 To liste
        Cells(i, "j").Select
        SendKeys "{F2}"
        SendKeys "{ENTER}"
        MsgBox ""
    Next i
End Sub

. . .

 

[Ömer BARAN]

Yanlış anlamıyorsam METİN türünde olan verileriniz var ve bunları F2 > ENTER ile SAYI haline getirmeye çalışıyorsunuz.

Eğer durum böyle ise;
-- boş bir hücreye 1 yazın ve 1 yazdığınız hücreyi kopyalayın,
-- sonra veri alanını seçin ve ÖZEL YAPIŞTIR > DEĞERLERİ > ÇARP > TAMAM şeklinde işlem yapın.

Sorun yaşarsanız, gerçek belgenizin küçük bir parçasını örnek belge olarak yükleyin ki daha hızlı sonuca ulaşılabilsin.
.