döngü

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...