KULIAH

Kamis, 19 Juni 2025

Latihan MYOB

Juni 19, 2025 manajemen

PT Sampurna download

Kencana Electric download

PT Catur Jaya download

PO Pratama download

No Comments

Selasa, 17 Juni 2025

Latihan SIA

Juni 17, 2025 manajemen

Bengkel Abadi download

No Comments

Selasa, 03 Juni 2025

Sub MacroBukuBantu()
'
' Macro1 Macro
'

'+
'Range("B5:B6").Select
Sheets("JUR. UMUM").Range("B3:J1000000").AdvancedFilter Action:=xlFilterCopy _
, CriteriaRange:=Range("B5:B6"), CopyToRange:=Range("B9:G9"), Unique:= _
False
Columns("F:F").ColumnWidth = 13.57
Columns("F:F").EntireColumn.AutoFit
Columns("G:G").EntireColumn.AutoFit
Columns("D:D").EntireColumn.AutoFit
Range("H10").Select
ActiveCell.FormulaR1C1 = _
"=IF(R5C8=""Debet"",R6C8+RC[-2]-RC[-1],R[-4]C-RC[-2]+RC[-1])"

Dim barisAkhir As Long
Dim i As Long
barisAkhir = Range("H" & Rows.Count).End(xlUp).Row
For i = 11 To barisAkhir

If Range("B" & i) <> "" Then
Range("H" & i) = "=IF(R5C8=""Debet"",R[-1]C+RC[-2]-RC[-1],R[-1]C-RC[-2]+RC[-1])"
End If
Next i

'Range("H11").Select
'ActiveCell.FormulaR1C1 = _
' "=IF(R5C8=""Debet"",R[-1]C+RC[-2]-RC[-1],R[-1]C-RC[-2]+RC[-1])"
'Range("H11").Select
'Selection.AutoFill Destination:=Range("H11:H12"), Type:=xlFillDefault
'Range("H11:H12").Select

Range("G9:G" & barisAkhir).Select
Selection.Copy
Range("H9").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False

Cells(7, 8) = Cells(barisAkhir, 8) + Cells(6, 8)

End Sub