İşlem sonucunda bilgisayarın kapanması

[1903emre34@gmail.com]

Merhaba, aşağıdaki işlem sonucunda bilgisayar kapanmasını istiyorum, nasıl değişiklik yapabiliriz,

Sub ozel_hesap_sil()
sonsatir = Cells(Rows.Count, "A").End(3).Row
buldu = False
For i = sonsatir To 1 Step -1
hesap = Cells(i, "C").Value
yevmiye = Cells(i, "B").Value
If i = sonsatir Then
eskiyevmiye = yevmiye
sayozel = 0
saynormal = 0
altsatir = i
End If

If yevmiye <> eskiyevmiye Then
If saynormal = 0 Then
For j = altsatir To i + 1 Step -1
Rows(j).Delete
Next j
altsatir = i
Else
altsatir = i
End If
i = i + 1
sayozel = 0
saynormal = 0
GoTo son
End If

If hesap = 893 Or hesap = 393 Or hesap = 891 Or hesap = 191 Then
sayozel = sayozel + 1
Else
saynormal = saynormal + 1
End If
son:
eskiyevmiye = yevmiye

Next i
End Sub

 

[halit3]

Next i

yukarıdaki prosedürden sonra aşağıdakileri ekleyin

ThisWorkbook.Save
Shell ("shutdown -s -t 1")