Modul Cetak_Tab_Setoran

Option Explicit

Sub cetaktabungansetoran()
Dim rujukan As Range
Dim b As Long
Set rujukan = Sheets("CETAKTABUNGAN").Range("$O$2")


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

Selection.Copy Sheet3.Range("B5")
Sheets("CARISETORAN").Select

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

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

Next i

Sheets("CETAKTABUNGAN").Select
Dim nobaris As Byte
nobaris = Sheets("CETAKTABUNGAN").Range("L7").value

'===memasukkan nilai ke sheet CETAKTABUNGAN

Range("B" & nobaris).value = Sheet3.Range("C5").value
Range("C" & nobaris).value = Sheet3.Range("D5").value
Range("D" & nobaris).value = Sheet3.Range("H5").value



Dim jumlahsiswa As Long
Dim baris As Long
On Error Resume Next
jumlahsiswa = Sheets("DATASISWA").Range("nisndatasiswa").Rows.Count

Sheet2.Select
For baris = 5 To jumlahsiswa + 4
  Sheets("DATASISWA").Cells(baris, 2).Select
        If Selection.value = rujukan.value Then
        Selection.Row.Select
        b = Selection.Row
        Sheets("DATASISWA").Range("I" & b).Select
        Exit For
        End If
        
Next baris
Sheets("CETAKTABUNGAN").Range("F" & nobaris).value = Selection.value
Sheets("CETAKTABUNGAN").Range("A" & nobaris).value = "=Row() - 1"
Sheets("CETAKTABUNGAN").Range("G" & nobaris).value = Sheet1.Range("Z26").value
Sheet12.Select



Sheet1.Protect "1", userinterfaceonly:=True
End Sub