I want insert VLOOKUP in place of the values 1,2,3,4,0 but am getting a cell reference error. Any ideas?
If HR430Flag = True Then ActiveCell.Offset(0, 1).Value = 1 ElseIf HR431Flag = True Then ActiveCell.Offset(0, 1).Value = 2 ElseIf HD430Flag = True Then ActiveCell.Offset(0, 1).Value = 3 ElseIf HD431Flag = True Then ActiveCell.Offset(0, 1).Value = 4 Else ActiveCell.Offset(0, 1).Value = 0 End If
Last edited by mantis1117; 07-05-2014 at 10:04 AM.
The sheet that I am referencing the cell in is active and the cell is named InputValue
Sheets("Input").Activate Range("A2").Select Application.EnableEvents = False If HR430Flag = True Then ActiveCell.Offset(0, 1).Value = VLookup(InputValue, Table4, 4, False) ElseIf HR431Flag = True Then ActiveCell.Offset(0, 1).Value = 2 ElseIf HD430Flag = True Then ActiveCell.Offset(0, 1).Value = 3 ElseIf HD431Flag = True Then ActiveCell.Offset(0, 1).Value = 4 Else ActiveCell.Offset(0, 1).Value = 0 End If Application.EnableEvents = True Application.ScreenUpdating = True
Last edited by mantis1117; 07-05-2014 at 10:04 AM.
Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.
Posting code between [CODE] [/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.
Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here
(This thread should receive no further responses until this moderation request is fulfilled, as per Forum Rule 7)
Regards
Fotis.
-This is my Greek whisper to Europe.
--Remember, saying thanks only takes a second or two. Click the little star * below, to give some Rep if you think an answer deserves it.
Advanced Excel Techniques: http://excelxor.com/
--KISS(Keep it simple Stupid)
--Bring them back.
---See about Acropolis of Athens.
--Visit Greece.
This one has been solved, Thanks.
Got it, sorry for the oversight.
This works:
Dim VlookupResult As String Dim sheet As Worksheet Set sheet = ActiveWorkbook.Sheets("Input") VlookupResult = [VLOOKUP(InputValue, Table1, 4, FALSE)] ActiveCell.Offset(0, 1).Value = VlookupResult
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks