MEMBUAT APLIKASI ARISAN DENGAN VB EXCEL

Cara penggunaanya iuran diisi terlebih dahulu dan setelah itu no di isi
Setelah No diisi dan di enter maka angsuran masuk ke kolom D dan bila sudah ada isinya di simpan di colom E
kode vb maronya adalah
Private Sub Worksheet_Change(ByVal Target As Range)
Dim CellTujuan As Object
Dim Kode As Variant
Dim KolomKosong As Object
Dim JmlhData As Double
Kode = Target.Value
On Error GoTo eror:
    If Not Intersect(Target, Range("N3")) Is Nothing Then
        If Target > 0 Then
            Set CellTujuan = Sheet1.Range("B:B").Find(What:=Kode, LookIn:=xlValues, LookAt:=xlWhole)
        Set KolomKosong = CellTujuan.Offset(0, 2)
        JmlhData = WorksheetFunction.CountA(Range(KolomKosong, KolomKosong.End(xlToRight)))
            If KolomKosong <> "" Then
            Set KolomKosong = CellTujuan.Offset(0, 2 + JmlhData)
            End If
        KolomKosong.Value = Range("K8").Value
        End If
        End If
Exit Sub
eror:
MsgBox "Data Tidak Ditemukan"
End Sub
DOWLOAD contoh filenya