lookup value and insert said value into textbox

[aheverett1]

Hello all,

I'm sure this is an extremely easy fix for a seasoned excel pro but i just can't find the answer. Here is the code i have in another function and it works just fine for copying data into cells.

'copy Fixture Locations, Quantity, and Ceiling Height
Worksheets(Worksheets("Electrical Options").Range("B9").Value).Range("A6:C46").Copy
Worksheets("Fixture Selections").Range("A10").PasteSpecial _
Paste:=xlPasteValues, _
Operation:=xlPasteSpecialOperationNone, _
SkipBlanks:=False, _
Transpose:=False

Now i want to pretty much use the same code but put the value into a activex textbox using a command button. I would be removing the range "A6:C46" and just making it one cell range, say "A8".

Thank you for the help!

 

[Leith Ross]

Hello aheverett1,

Here is an example of copying the value from "Sheet2 A8" to the AcctiveX TextBox on "Sheet1". You may need to change the worksheet names and the TextBox name to match your workbook names.

        With Worksheets("Sheet1").OLEObjects("TextBox1").Object
            .Value = Worksheets("Sheet2").Range("A8").Value
        End With

 

[aheverett1]

Thank you!I The final code ended up like this but worked out perfectly.

With Worksheets("Fixture Selections").OLEObjects("TextBox2").Object
.Value = Worksheets(Worksheets("Electrical Options").Range("B9").Value).Range("O1").Value
End With

 

[Leith Ross]

Hello aheverett1,

It is nice to see you were able to adapt my example so easily. Glad I could help.