We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Set rng = wsEWork.Range("E7:E" & lrow) For Each item In rng 'was it selected with an X in column E? If UCase(item.Value) = "R" Then 'row was selected Range("E" & item.row & ":J" & item.row).Copy 'transfer to Install Checklist wsInstall.Range("E" & nextECopy).PasteSpecial Paste:=xlPasteValues, _ Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False nextECopy = nextECopy + 1 End If wsEWork.Activate Next item
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|Calculating hours worked based on dates and times from Event logs||2||25|
|how to extract unique list from two columns||9||31|
|copy a docm-file from a fixed folder location into the folder of the currently active workbook using VBA||4||24|
|add a column label to a list object using VBA||2||21|