Probably 
Private Sub cmdinput_Click()
    Dim kodenama    As String
    Dim NAMA        As Range
    Dim kolom       As Long
    Dim KolomKosong As Long


    kodenama = Me.ComboBox1.Value
    
    With Worksheets("angsuran")


        Set NAMA = .Cells.Find(kodenama, LookIn:=xlValues)


        If Not NAMA Is Nothing Then
            kolom = NAMA.Column


            KolomKosong = .Cells(NAMA.Row, 1).End(xlToRight).Offset(0, 1).Column
            'Or
            'KolomKosong = .Cells(NAMA.Row, kolom).End(xlToRight).Offset(0, 1).Column
            DPTpicker1.Value = .Cells(KolomKosong).Value
            TextBox1.Value = .Cells(KolomKosong + 1).Value
        Else
            MsgBox kodenama & " value not found in the sheet", vbExclamation
        End If
        
    End With
End Sub
Artik