VBA Error "Object variable or with block variable not set "

Question

Private Sub LoginMasuk_Click()
Dim Password As String 
Dim Level As String
Dim pass As String  

pass = MD5(TextBox2.Value) 
Set WsUserName = Sheets("Data")
Set RgUserPas = WsUserName.Range("A2:A20")
Set c = RgUserPas.Find(TextBox1.Value, LookIn:=xlValues, MatchCase:=False)

Password = c.Offset(0, 1).Value
Level = c.Offset(0, 2).Value 

If pass <> Password Then
    MsgBox "password yang anda masukan salah", vbCritical, "User Login"
    Exit SubElse
    If Level = "Admin" Then
        MsgBox "Selamat Datang " & TextBox1.text, vbInformation, "Message"
        'MsgBox "Anda Login Sebagai " & Level, vbInformation, "User Login"
            loginApp.Hide
                Sheets("Data").Visible = xlSheetVisible
                Sheets("Hai").Visible = xlSheetVisible
                Sheets("Halo").Visible = xlSheetVisible
            Menu_Admin.Label1.Caption = Level
            Menu_Admin.Show
        Call bersih
        Exit Sub
    ElseIf Level = "Siswa" Then
        MsgBox "Selamat Datang " & TextBox1.text, vbInformation, "Message"
        'MsgBox "Anda Login Sebagai " & Level, vbInformation, "User Login"
            loginApp.Hide
                Sheets("Data").Visible = xlSheetVeryHidden
                'Sheets("Data").Visible = xlSheetVisible
                Sheets("Hai").Visible = xlSheetVisible
                Sheets("Halo").Visible = xlSheetVisible
                Menu_Siswa.Label1.Caption = Level
                Menu_Siswa.Show
        Call bersih
        Exit Sub
    End If
End If
End Sub

and I getting error in code -->

Password = c.Offset(0, 1).Value

how i solve it

braX · Accepted Answer · 2019-12-24 17:11:31Z

1

Check to see if your .Find call actually found something first. Put this before that line:

If c Is Nothing Then
  Msgbox "'" & TextBox1.Value & "' was not found"
  Exit Sub
End If

edited Dec 24, 2019 at 17:11

answered Dec 15, 2019 at 20:39

braX

11.9k5 gold badges24 silver badges38 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

VBA Error "Object variable or with block variable not set "

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related