M. List Sintax Private

Master List Sintax Private

'1 Tahun
'row 7

• Sub isi_masterlist()
• Rng = Selection.Rows.Count
• ActiveCell.Offset(0, 0).Select
• For i = 1 To Rng
• 'ActiveCell.Formula = _
• "=IF(VLOOKUP(RC[-1],satu_bulan,13,0)---<'0,vlookup(rc[-1],pengurangan,13,0),vlookup(rc[-1],satu_bulan,13,0))"
• ActiveCell.Formula = "=VLOOKUP(RC[-1],satu_tahun_pakai,13,0)"
• Application.CutCopyMode = False
• ActiveCell.Copy
• ActiveCell.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
• False, Transpose:=False
• ActiveCell.Offset(0, -1).Select
• posisi_baris = ActiveCell.Value
• a = ActiveCell.Offset(0, -1).Value
• 'Sheets("1 bulan").Cells(posisi_baris + 6, 12).Value = Sheets("1 bulan").Cells(posisi_baris + 6, 12).Value ----+ a
• Sheets("1 tahun").Cells(posisi_baris + 6, 12).Value = Sheets("1 tahun").Cells(posisi_baris + 6, 12).Value + a
• ActiveCell.Offset(1, 1).Select
• Next i
• End Sub

KET :

1. TAHUN ----> NO PERTAMA DI ROW NO 7
2. RANGE RUMUS (satu_tahun_pakai)