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

 

[Joe4]

Where are these numbers to fill in coming from?
It sounds to me like maybe you could use VLOOKUP to lookup and populate your values.
See: https://exceljet.net/excel-functions/excel-vlookup-function

 

[coscongr]

Where are these numbers to fill in coming from?
It sounds to me like maybe you could use VLOOKUP to lookup and populate your values.
See: https://exceljet.net/excel-functions/excel-vlookup-function

These numbers correspond to daily deliveries so as i said it is a data entry job that i would like to gain some time.
I was thinking of a form ? To fill in data?

 

[sandy666]

I have an Excel table of that format

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

Excel Table can not have the same headers, so you've a range not a table

 

[coscongr]

Excel Table can not have the same headers, so you've a range not a table

Correct

 

[Joe4]

I think it would be helpful if you could post a small sample of your data and your expected result.

You cannot upload files to this site. But there are tools you can use to post screen images. They are listed in Section B of this link here: http://www.mrexcel.com/forum/board-a...forum-use.html.
Also, there is a Test Here forum on this board that you can use to test out these tools to make sure they are working correctly before using them in your question.

 

[coscongr]

I think it would be helpful if you could post a small sample of your data and your expected result.

You cannot upload files to this site. But there are tools you can use to post screen images. They are listed in Section B of this link here: http://www.mrexcel.com/forum/board-a...forum-use.html.
Also, there is a Test Here forum on this board that you can use to test out these tools to make sure they are working correctly before using them in your question.

Sheet1

	A	B	C	D	E	F	G	H
1	code	description	charged kg	received kg	code	description	charged kg	received kg
2	ab25	tomato			es542	Cherries
3	ab26	potato 1			fs569	chips
4	ab27	potato 2			eq12	chocolate
5	de12	spaggeti			dd588	chowder
6	fd25	corn			2354	clams
7	ef256	melon			as54	coffee

<tbody>
</tbody>

my task is a daily report of deliveries.

 

[Joe4]

Is that the before or after picture?
I am trying to get a clearer picture of what the data you have currently looks like, and what exactly you are trying to do with it.

 

[MoshiM]

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

Try this:

Sub Find_In_Column_A()


Dim FRD As Variant, Find_Range As String, B as worksheet


Try_Again:


FRD = Application.InputBox("Value to find in Column A")


Set B = ActiveSheet


With B
    On Error GoTo Not_Found
    Find_Range = .Range("A:A").Find(FRD).Address
    Application.Goto .Range(Find_Range)
                     .Range(Find_Range).EntireRow.Select


End With


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

 

[MoshiM]

Try this:

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