Consulting

Results 1 to 9 of 9

Thread: Userform help

Threaded View

Previous Post Previous Post   Next Post Next Post
  1. #1
    VBAX Newbie
    Joined
    Aug 2018
    Posts
    2
    Location

    Userform help

    Hello Guys,

    Searched net way too much and could not find solution to my problem.
    Will try to explain as clear as possible what I am trying to do.
    I tried to do simple weighbridge userform with simple stock control but I am stuck...

    Here is photo how looks my userform, it might look too complicated but its what I need.

    userform.jpg

    The code which does the final step should check user's input in the table and if there is no such value it should give error, if there is such value it should delete it.
    I have the code which works pretty much as I want but it works only for one textbox, the problem is if user makes mistake for example at 10 or 11 input of weight all before weights are already deleted.
    Hope you could understand anything, my code is below:

    Private Sub Check_on_error()    
        Dim ws As Worksheet
        Dim strSearch As String
        Dim aCell As Range
        ' where we look
        Set ws = Sheets("Stock")
        With ws
            ' Get the value which you want to search
            strSearch = TextBox6.Value
            ' lWhole is used in the code below so that we find a complete match
            If ComboBox1.Value = "Z1" Then
                 Set aCell = .Columns(1).Find(What:=strSearch, LookIn:=xlValues, _
                 LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
                 MatchCase:=False, SearchFormat:=False)
            End If
            If ComboBox1.Value = "Z2" Then
                 Set aCell = .Columns(2).Find(What:=strSearch, LookIn:=xlValues, _
                 LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
                 MatchCase:=False, SearchFormat:=False)
            End If
            If ComboBox1.Value = "Z3" Then
                 Set aCell = .Columns(3).Find(What:=strSearch, LookIn:=xlValues, _
                 LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
                 MatchCase:=False, SearchFormat:=False)
            End If
            ' check if the weight is in the list
            If Not aCell Is Nothing Then
                ' deletes weight from exact zone
                aCell.Delete
            Else ' if there is no such weight
                MsgBox TextBox6.Value & " nera tokio svorio"
            Exit Sub
            End If
        End With
    End Sub
    Last edited by Aussiebear; 12-24-2024 at 01:35 PM.

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •