Replace lookup value with Textbox value VBA

[olorin_117]

I have a table that the user doesn't see with data in rows A and B. There are data in row A (for example apples, oranges etc) and row B is empty. User picks from a combobox a value that belongs to row A, the value is stored in a cell. After that user must put an integer in a textbox that belongs to row B (which is empty at first). For example first the user picks Apples and after that has to put the number 10 (as in kilos).I am trying to put the value from the textbox to row B.. Until now I have managed to make a vlookup in vba that finds the corresponding empty cell but i cant figure out how to put the value from the textbox to said cell. Fairly new to vba, so any help will be greatly appreciated

 

[DanteAmor]

User picks from a combobox a value that belongs to row A

How to load the data in the combobox?
The combobox is in a form?
Or is it in the sheet, if it is in the sheet is it an ActiveX control?

 

[olorin_117]

How to load the data in the combobox?
The combobox is in a form?
Or is it in the sheet, if it is in the sheet is it an ActiveX control?

The combobox is in a userform,populated with data from column A of said range.The value he picks is stored in a cell (hidden) for other reasons.The textbox is also in a second userform,loaded at the end of the day

 

[DanteAmor]

The combobox is in a userform,populated with data from column A of said range

What is the instruction you use?

 

[DanteAmor]

You must be specific with the data. Put here the macro or code or instruction that you use to load the combo. what is the name of the sheet, what is the name of the combo, what is the name of the textbox. That way it will be easier to help you.

 

[olorin_117]

The data from the combobox I mentioned is stored in a cell in Sheet1, cell "V7". The Range with the 2 columns that the user doesnt see is at Sheet3. At the end of the day, user loads a userform with a textbox. The data from the textbox belong to Column B. For example at the start of the day user picks a value from column A and at the end of the day he inputs a number in the textbox that belong to said value. The vlookup is working fine, but I cant figure out a way to replace the cell with a new value

Private Sub TextBox1_Change()()
Dim frt As String
Dim kilo As Integer

frt = Worksheets("Sheet1").Range("V7").Value
Set myrange = Worksheets("Sheet3").Range("A15:B32")
kilo = Application.WorksheetFunction.VLookup(cofpack, myrange, 2, False)

End Sub

 

[olorin_117]

After enough digging I made it work by NOT using .vlookup but .find, and using a command button in the userform

Private Sub CommandButton2_Click()

Dim myrange As Range
Dim frt As String

frt = Worksheets("Sheet1").Range("V7").Value

Set myrange = Worksheets("Sheet3").Range("A15:A32").Find(What:=frt, Lookat:=xlWhole, MatchCase:=False)

If Not myrange Is Nothing Then
        
        myrange.offset(, 1).Value = TextBox1.Value
    End If

End Sub

 

[DanteAmor]

You put everything except how you load the data into the combo. The solution is simpler than a vlookup or find method. for example if you load the combobox like this:

Combobox1.list = sheets("sheet3").Range("A15:A32").value

Then:

Private Sub CommandButton2_Click()
sheets("sheet3").Range("B" & combobox1.Listindex + 15).Value = Textbox1.value
End Sub