May’s Course of the Month is now available! Experts Exchange’s Premium Members and Team Accounts have access to a complimentary course each month as part of their membership—an extra way to increase training and boost professional development.
Sub Macro1() Dim SheetName As String Dim lRow As Long lRow = Cells(Rows.Count, "I").End(xlDown).Row Set sh1 = ActiveSheet.Previous SheetName = sh1.Name Range("H3").Select ActiveCell.FormulaR1C1 = _ "=IF(IFERROR(VLOOKUP(RC,SheetName!R3C:R801C,1,0),""Done"")<>""Done"","""",IFERROR(VLOOKUP(RC,SheetName!R3C:R801C,1,0),""Done""))" Range("H3").Select Selection.AutoFill Destination:=Range("H3:H" & lRow) Range("H3:H" & lRow).Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("H3").Select Application.CutCopyMode = False End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|Systems Integration Testing - recording the scenarios and results||1||10|
|Resolving #VALUE error in spreadsheet||2||23|
|rename csv files in a folder||3||23|
|Dividing dollars by a decimal in Excel||12||30|
Join the community of 500,000 technology professionals and ask your questions.