how to quickly fill in a table

[coscongr]

I have an Excel table of that format

number | description | weight 1 | weight 2 | number | description | weight 1 | weight 2





I have to fill in data by finding the number and manually fill in weight1 and weight2

Is there a way I could just make the data entry quickly instead of finding line by line the right number every time?

The ideal would be something like this:
type a number and automatically send me to the right line to add the two weight numbers

 

[coscongr]

Thank you for your help but I have two columns of product codes. A and E.
Also since the columns i have to fill are always C,D AND G,Η could we do something to do directly on these columns?

 

[coscongr]

Shorter version

Sub Find_In_Column_A()


Dim FRD As Variant, Find_Range As String: Set B = ActiveSheet


Try_Again:


FRD = Application.InputBox("Insert lookup code")


    On Error GoTo Not_Found
    
    Application.Goto B.Range("A:A").Find(FRD)
    ActiveCell.EntireRow.Select


Exit Sub
Not_Found:
        If MsgBox("The selected code { " & FRD & " } was not found within column A" & vbNewLine & vbNewLine & "Would you like to try again ?", vbYesNo, "Please choose") _
            = vbYes Then GoTo Try_Again


End Sub

Thank you for your help but I have two columns of product codes. A and E.
Also since the columns i have to fill are always C,D AND G,Η could we do something to do directly on these columns?

 

[MoshiM]

Thank you for your help but I have two columns of product codes. A and E.
Also since the columns i have to fill are always C,D AND G,Η could we do something to do directly on these columns?

You might be better off with a form but I know nothing about forms so use this till somone else comes along.
Try:

Sub Find_Value()


Dim Code As Variant, Rrange As Range, Find_Range As String, G As Variant, B As Worksheet
Set B = ActiveWorkbook.ActiveSheet
Try_Again:


            Code = Application.InputBox("Insert lookup code")
            If Code = False Then Exit Sub
            'On Error GoTo Not_Found
Restart:
Application.ScreenUpdating = False
Set Rrange = B.UsedRange.Find(Code)


        Application.Goto Rrange, True
        
        Selection.Offset(0, 1).Resize(Selection.Rows.Count, Selection.Columns.Count + 1).Select
        Application.ScreenUpdating = True
    GoTo Another


Not_Found:


    Code = Application.InputBox("The selected code { " & Code & " } was not found within the current Worksheet" & vbNewLine & vbNewLine & "Would you like to try again with a different Code ?", vbYesNo, "Please choose")
        If Code <> False Then
        
            GoTo Try_Again
            
            Else: Exit Sub


         End If


Another:
    Code = Application.InputBox("Enter another code?")
    If Code = False Then
        Exit Sub
    Else
        GoTo Restart


    End If


End Sub

 

[MoshiM]

You might be better off with a form but I know nothing about forms so use this till somone else comes along.

This one might be better for you instead. It will ask you for the code and then ask for the 2 weights separated by a space

Sub Find_In_Column_A()


Dim Code As Variant, Rrange As Range, Find_Range As String, G As Variant, B As Worksheet, TH(0 To 2) As Variant, L(1 To 2)
Set B = ActiveWorkbook.ActiveSheet


Try_Again:






            
Restart:
TH = Split(Application.InputBox("Input the code and then Weight 1 and then weight 2. Separate each with a space"), " ")
            If Code = False Then Exit Sub
            On Error GoTo Not_Found
            Code = TH(0)
            L(1) = TH(1)
            L(2) = TH(2)
Set Rrange = B.UsedRange.Find(Code)


        Rrange.Offset(0, 1).Resize(Selection.Rows.Count, Selection.Columns.Count + 1) = L
        
    GoTo Another


Not_Found:


    Code = Application.InputBox("The selected code { " & Code & " } was not found within the current Worksheet" & vbNewLine & vbNewLine & "Would you like to try again with a different Code ?", vbYesNo, "Please choose")
        If Code <> False Then
        
            GoTo Try_Again
            
            Else: Exit Sub


         End If


Another:
    Code = Application.InputBox("Enter another code?")
    If Code = False Then
        Exit Sub
    Else
        GoTo Restart


    End If


End Sub

 

[MoshiM]

whoops almost forgot place Err.clear somewhere inside the if statement but before the else under the "Not_Found:" label at the bottom

 

[MoshiM]

whoops almost forgot place Err.clear somewhere inside the if statement but before the else under the "Not_Found:" label at the bottom

Also replace

[COLOR=#333333]Selection.Offset(0, 1).Resize(Selection.Rows.Count, Selection.Columns.Count + 1).Select[/COLOR]

With

[COLOR=#333333]Selection.Offset(0, 2).Resize(Selection.Rows.Count, Selection.Columns.Count + 1).Select[/COLOR]