Changing a value using a look-up table
Solved/Closed
froggy6703
Posts
16
Registration date
Tuesday March 23, 2010
Status
Member
Last seen
March 29, 2013
-
Apr 2, 2010 at 06:45 PM
rizvisa1 Posts 4478 Registration date Thursday January 28, 2010 Status Contributor Last seen May 5, 2022 - Apr 6, 2010 at 11:18 AM
rizvisa1 Posts 4478 Registration date Thursday January 28, 2010 Status Contributor Last seen May 5, 2022 - Apr 6, 2010 at 11:18 AM
Related:
- Changing a value using a look-up table
- How to delete a row in a table in word - Guide
- School time table software free download full version - Download - Organisation and teamwork
- Change computer name using cmd - Guide
- Ascii table c++ - Guide
- Html table fit to screen - Guide
1 response
rizvisa1
Posts
4478
Registration date
Thursday January 28, 2010
Status
Contributor
Last seen
May 5, 2022
766
Apr 6, 2010 at 11:18 AM
Apr 6, 2010 at 11:18 AM
Are you sure this is right Range("G2:G" + sPostDelLastRow) . I am not sure about the + sign, I thought it has to be an & to concatenate
Also I see one more possible issue, You are assigning the formula to G2 for lookup, What if lookup does not return any value.
You can try some thing like this
I have not tested it so there might be some errors. But I am sure you get the idea
Also I see one more possible issue, You are assigning the formula to G2 for lookup, What if lookup does not return any value.
You can try some thing like this
Dim temp As Variant temp = "dummy value dude" On Error Resume Next temp = WorksheetFunction.VLookup(Range("G2"), Sheets("Sheet2").Range("A:B"), 2, False) On Error GoTo 0 If temp <> "dummy value dude" Then Range("G2") = temp End If</code Having said that, I think what you need to do is have another column for temp basis. Let say its column H on sheet 1 Do a lookup there as <code> Range("G2").Select 'doing a look up in temp range H With Range("H2:H" & sPostDelLastRow) 'actual look up. If look up fails, then use corresponding value from G column else use the value of vlookup .FormulaR1C1 = "=ISERROR(VLOOKUP(TRIM(RC[-1]),WCSSCustItemNumLookupTable!R1C1:R2000C2,2,0)), RC[-1], VLOOKUP(TRIM(RC[-1]),WCSSCustItemNumLookupTable!R1C1:R2000C2,2,0)" .Copy 'copying .PasteSpecial xlPasteValues 'pasting back as values to eliminate the formula .Copy 'copying again to move to actual G range End With 'copy to G range Range("G2:G" & sPostDelLastRow).PasteSpecial 'clear teamp range Range("H2:H" & sPostDelLastRow).Clear
I have not tested it so there might be some errors. But I am sure you get the idea