Run-time error code "438"

[hyudien]

Hello master. I'm a new member here and i have a little problem with my code. And forgive me if this trouble already asked by someone before.

Sub cmdpemasukan_Click()    Dim Ws As Worksheets
    Set Ws = Worksheets("PEMASUKAN") & ("ANGSURAN")
    BarisTerakhir = Ws("PEMASUKAN").Cells(Rows.Count, 1).End(xlUp).Row
    
    Ws("ANGSURAN").Range(DU7).Copy Ws("PEMASUKAN").Range(BarisTerakhir + 1, 1)
End Sub

Please help me to reolve this problem

Regards
Hyudien

[Paul_Hossler]

"Worksheets" is the Collection of all the worksheets

To refer to a single worksheet, it's Worksheets ("Sheet1") or what ever the name is

Sub cmdpemasukan_Click()
    Dim ws1 As Worksheet, ws2 as Worksheet
    Dim BarisTerakhir As Long
    Set ws1 = Worksheets("PEMASUKAN")
    Set ws2 = Worksheets ("ANGSURAN")

    BarisTerakhir = ws1.Cells(Rows.Count, 1).End(xlUp).Row
    
    ws2.Range(DU7).Copy ws1.Range(BarisTerakhir + 1, 1)

End Sub

[hyudien]

Thanks for help me. But when i try to run that code than error change to 1004. So, what's wrong?

[Bob Phillips]

Maybe

Sub cmdpemasukan_Click()
Dim ws1 As Worksheet, ws2 As Worksheet
Dim BarisTerakhir As Long
    
    Set ws1 = Worksheets("PEMASUKAN")
    Set ws2 = Worksheets("ANGSURAN")

    BarisTerakhir = ws2.Cells(ws2.Rows.Count, 1).End(xlUp).Row
    
    ws2.Range("DU7").Copy ws1.Cells(BarisTerakhir + 1, 1)
End Sub

[Paul_Hossler]

Thanks for help me. But when i try to run that code than error change to 1004. So, what's wrong?

What line is showing the error?

[hyudien]

already resolved with another code.
But, i have another one.

Private Sub cmdinput_Click()
With Worksheets("angsuran")
kodenama = Me.ComboBox1.Value
Set NAMA = Cells.Find("kodenama", LookIn:=xlValues)
If Not NAMA Is Nothing Then
    kolom = NAMA.Column
End If
KolomKosong = .Cells(NAMA, 1).End(xlToRight).Offset(0, 1).Column
    DPTpicker1.Value = Worksheets("angsuran").Cells(KolomKosong).Value
    TextBox1 = Worksheets("angsuran").Cells(KolomKosong + 1).Value
    End With
End Sub

And always wrong wrong in that code. Can you please help me.

Regards
Hyudien

[Artik]

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

[hyudien]

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

code error '35787'

can't set value to null when checkbox property = false

what's mean for that error message?

[Artik]

Show the code and mark where the error occurs, because the current code does not mention the CheckBox control.


Artik

[hyudien]

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, kolom).End(xlToRight).Offset(0, 1).Column
            Me.DTPicker1.Value = .Cells(KolomKosong).Value
            Me.TextBox1.Value = .Cells(KolomKosong + 2).Value
        Else
            MsgBox kodenama & " value not found in the sheet", vbExclamation
        End If


    End With
End Sub
Private Sub CommandButton1_Click()
Unload Me
End Sub
Private Sub TextBox1_Change()
TextBox1 = Format(TextBox1, "Rp#,##0")
End Sub
Private Sub UserForm_Initialize()
Dim c As Range
With Worksheets("angsuran")
    For Each c In .Range(.Range("b7"), .Range("b" & .Rows.Count).End(xlUp))
    If c.Value <> "" Then ComboBox1.AddItem c.Value
    Next c
End With
End Sub
Sub BERSIHKAN()
Dim AdaText
    For Each AdaText In Me.Controls
        If TypeOf AdaText Is MSForms.TextBox Then
            AdaText.Text = ""
        End If
    Next AdaText
Me.TextBox1.SetFocus
End Sub

This all my code. Always error when i try to sumbit my data. Sorry if i make a mistake, cause me as beginer didn't have a teacher for vba code

Regards

[Artik]

Can you indicate the place in the code where the error 35787 occurs?


Artik

[hyudien]

already resolved.
But when i run it, the value not like in my mind.
I want to place the value like in this pic
Untitled.jpg
hope you can help me for this problem sir