The average business loses $13.5M per year to ineffective training (per 1,000 employees). Keep ahead of the competition and combine in-person quality with online cost and flexibility by training with Linux Academy.
Sub VLookUpAutomation() Dim cell As Range Dim rng As Range ' Run with Sheet1 as active sheet ActiveSheet.Columns("B:B").Insert Shift:=xlToRight ActiveSheet.Range("B1").Value = "VL" ActiveSheet.Range("B2").FormulaR1C1 = _ "=vlookup(RC[-1],'Corrected ID-Name'!C1:C2,2,FALSE)" Set rng = [B2] Set rng = Range(rng, Cells(Cells(Rows.Count, 1).End(xlUp).Row, rng.Column)) If rng.Rows.Count = 1 Then rng.Select Else rng.Cells(1, 1).AutoFill Destination:=rng, Type:=xlFillDefault End If For Each cell In rng If cell = "#N/A" Then MsgBox "Found an #N/A" 'copy cell to left and copy cell to right 'paste onto Correct Agent ID-Name 'Using first open row at bottom 'Will vlookup update so that repeated #N/A's are not copyied again? 'If not, do I need to say "recalculate" prior to going on to next cell looking for #N/A Else MsgBox "Not a #N/A" End If Next cell End Sub
|Auto Populate Day Month 2 digit Date||4||19|
|VBA – How to copy a cell from one page and enter it into a new line on another page while selecting where the new line is added?||7||23|