Döngüyü neden sonlandıramıyorum

[tukayf]

Excel Versiyonu

Excel 2016

Excel Sürümü

64 Bit

Excel Dili

Türkçe

Sub bsn()
'Birim Sıra No Birim personel sayısına göre sıralar. List B sütunu
Dim i As Long, sh As Worksheet
Set sh = Sheets("Grup")
Application.Calculation = xlCalculationManual
sh.Range("A3:A" & Rows.Count).ClearContents
sonsat = sh.Cells(Rows.Count, 1).End(1).Row
For i = 3 To sonsat
sh.Cells(i, "A:A").Value = WorksheetFunction.CountIf(sh.Range("F3:F" & i), sh.Cells(i, "F").Value)
Next i
Application.Calculation = xlCalculationAutomatic
End Sub

değerli hocalarım bu döngü neden sonlanmıyor. Nasıl sonlandırabilirim bu döngüyü. F sütununa göre sıra numarası veriyorum.

 

Hata var ise dur nasıl yazılır

Yazdır düğmesinin makrosu nedir

[okutkan]

sonsat = sh.Cells(Rows.Count, 1).End(1).Row
Virgülden sonra gelen 1 sayısını 6 olarak değiştirip deneyin.

 

[tukayf]

Teşekkür ederim. Herşeyi düzelttim sanıyordum orayı görmemişim.