Modul Hapus_Akun

Sub hapusakun()
Dim rujukan As Range
Set rujukan = Sheets("SETORAN").Range("$O$2")

'===pencarian nomor induk===

rujukan.ClearContents
'Sheets("DATASISWA").Select
Selection.EntireRow.Select
Selection.Columns(2).Select
Selection.Copy
rujukan.PasteSpecial Paste:=xlPasteValues


'===proses hapus DATASISWA sesuai induk===
Dim jumlahsiswa, jumlahsetoran, jumlahpenarikan As Long
Dim baris As Long
On Error Resume Next
jumlahsiswa = Sheets("DATASISWA").Range("nisndatasiswa").Rows.Count
jumlahsetoran = Sheets("SETORAN").Range("nisnsetoran").Rows.Count
jumlahpenarikan = Sheets("PENARIKAN").Range("nisnpenarikan").Rows.Count

For baris = 5 To jumlahsiswa + 4
  Sheets("DATASISWA").Cells(baris, 2).Select
        If Selection.value = rujukan.value Then
        Selection.EntireRow.Delete
               
        End If
Next baris
Sheet2.Range("I2").value = "=SUM($I$5:$I$1000000)"
'===proses hapus SETORAN sesuai induk===
Sheets("SETORAN").Select

For baris = 5 To jumlahsetoran + 4
  Sheets("SETORAN").Cells(baris, 4).Select
        If Selection.value = rujukan.value Then
        Selection.EntireRow.ClearContents
        End If
Next baris
'=====hapus setoran yang sudah kosong=
Dim c As Long

c = Cells(Rows.Count, 1).End(xlUp).Row
Sheets("SETORAN").Range("A5:A" & c).Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.EntireRow.Delete
'===============================

Sheet4.Range("M3").value = "=SUM($H$5:$H$1000000)"

'===proses hapus PENARIKAN sesuai induk===
Sheets("PENARIKAN").Select

For baris = 5 To jumlahpenarikan + 4
  Sheets("PENARIKAN").Cells(baris, 4).Select
        If Selection.value = rujukan.value Then
        Selection.EntireRow.ClearContents
        
        End If
Next baris
'=====hapus penarikan yang sudah kosong=

c = Cells(Rows.Count, 1).End(xlUp).Row
Sheets("PENARIKAN").Range("A5:A" & c).Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.EntireRow.Delete
'===============================

Sheet5.Range("M3").value = "=SUM($I$5:$I$1000000)"

Sheet2.Range("A5") = 1
Sheet4.Range("A5") = 1
Sheet5.Range("A5") = 1

MsgBox "Data akun santri berhasil dihapus", vbInformation, "Hapus Akun"
Sheet1.Protect "1", userinterfaceonly:=True
End Sub