Eski bir web tarayıcısı kullanıyorsunuz. Bu veya diğer siteleri görüntülemekte sorunlar yaşayabilirsiniz.. Tarayıcınızı güncellemeli veya alternatif bir tarayıcı kullanmalısınız.
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...