Drastically shorten your training time with WalkMe's advanced online training solution that Guides your trainees to action. Forget about retraining and skyrocket knowledge retention rates.
Dim shPrint As Worksheet Dim shConf As Worksheet Dim MyRange As Range Dim FindMyRange As Range Set shPrint = Worksheets("Print") Set shConf = Worksheets("Confirmation") Set MyRange = Intersect(Columns("V"), shPrint.UsedRange) Set FindMyRange = MyRange.Find(What:=Shipped, LookIn:=xlValues) If Not FindMyRange Is Nothing Then Do Application.CutCopyMode = False shPrint.Range(Range("A" & IdxRow), Range("W" & IdxRow)).Cut _ Destination:=shConf.Cells(Rows.Count, "A").End(xlUp).Offset(1, 0) shPrint.Cells(IdxRow, 1).EntireRow.Delete Shift:=xlUp Set FindMyRange = MyRange.FindNext Loop While Not FindMyRange Is Nothing End If
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|VBA routine modification/tweak needed||10||54|
|Shading Cells between cells that are populated||4||29|
|Excel Macro: Correct Macro that creates tabs for each "AccountSku"||4||51|
|Chart to show data in four quadrants||6||21|
Join the community of 500,000 technology professionals and ask your questions.