Trying to get new inputs from Userform into New/Unused Columns

Hi All,

I am trying to get values from a userform input into columns; every time I put a new value into a new userform, the results should shift over to the next column. The code in question is below.

If Me.ComboBox1.Value = "" Then
        MsgBox "Select the part"
Else
Set Found = Sheets("PARTS_TRACKER").Range("A:A").Find(What:=Me.ComboBox1.Value, _
                                                       LookIn:=xlValues, _
                                                       LookAt:=xlWhole, _
                                                       SearchOrder:=xlByRows, _
                                                       SearchDirection:=xlNext, _
                                                       MatchCase:=False)
      
Found.Offset(0, PR).Value = Me.TextBox43.Value
 
End If

Hello Don,

Welcome to the forum!

From your code it appears that the parts are in column "A" of the "Parts_Tracker" worksheet. Assuming you want to add a new part at the end of the column if it does not exist then this code should work for you.

    Dim Found   As Range
    Dim Rng     As Range
    
        ' Start with cell A2, in case A1 is header.
        Set Rng = Sheets("PARTS_TRACKER").Range("A2", Cells(Rows.Count, "A").End(xlUp))
        
        ' Look for the part in column "A".
        Set Found = Rng.Find(Me.ComboBox1.Value, , xlValues, xlWhole, xlByRows, xlNext, False, False, False)
        
        ' Add the value if it is missing to the next empty row below the range.
        If Found Is Nothing Then
            Rng.Cells(Rng.Rows.Count + 1, 1).Value = Me.ComoBox1.Value
        End If

Hello Don,

This will place the quantity in the next empty cell to the right of the part number on the same row.

        If Me.ComboBox1.Value = "" Then
            MsgBox "Select the part"
        Else
            Set Found = Sheets("PARTS_TRACKER").Range("A:A").Find(What:=Me.ComboBox1.Value, _
                                                       LookIn:=xlValues, _
                                                       LookAt:=xlWhole, _
                                                       SearchOrder:=xlByRows, _
                                                       SearchDirection:=xlNext, _
                                                       MatchCase:=False)
            
            If Not Found Is Nothing Then
                PR = Sheets("PARTS_TRACKER").Cells(Found.Row, Columns.Count).End(xlToLeft).Column + 1
                Found.Offset(0, PR).Value = Me.TextBox43.Value
            End If
        End If