Modul Cetak_Tab_Identitas_Santri

Sub cetakidentitassantri()
Dim rujukan As Range
Dim b As Long
Set rujukan = Sheets("CETAKIDENTITAS").Range("$H$2")


'===proses copy data dari Sheet DATASISWA yang terpilih==
Selection.EntireRow.Select
ActiveCell.Select
b = ActiveCell.Row
Range("B" & b & ":I" & b).Select

Selection.Copy Sheet6.Range("B6")
Sheets("CARISISWA").Select

'=====membuat nomor urut otomatis==============
Dim i As Long
Dim X As Long
Dim no As Long
Dim cell As Variant

X = Sheet6.Range("B" & Rows.Count).End(xlUp).Row
no = 0
For i = 1 To X - 5
no = no + 1
Cells(i + 5, 1).value = no

Next i

Sheets("CETAKIDENTITAS").Select
Dim nobaris As Byte
'===memasukkan nilai ke sheet CETAKTABUNGAN

Range("B1").value = Sheet6.Range("B6").value
Range("B2").value = Sheet6.Range("C6").value
Range("B3").value = Sheet6.Range("D6").value
Range("C6").value = Sheet6.Range("E6").value
Range("C7").value = Sheet6.Range("G6").value
Range("E6").value = Sheet6.Range("H6").value




Sheet14.Select



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