Snasui Excel Forum

Code: Select all

Public Sub name_bycode()
Dim code As String
Dim i As Integer
Dim cell_value As String
Dim net_quantity As Single
Const code_col = 1
Const quantity_col = 2
code = homenumber.Value
cell_value = Worksheets("record").Range("a2").Value
i = 2
Do Until cell_value = ""
cell_value = Worksheets("record").Cells(i, code_col).Value
If cell_value = code Then
    Me.postname.Value = Worksheets("record").Cells(i, quantity_col).Value
End If
i = i + 1
Loop
End Sub

Code: Select all

'Other code
If cell_value = entry_form.homenumber.Text Then
    net_quantity = net_quantity_ & Worksheets("record").Cells(i, quantity_col).Value
End If
'Other code