1. R

    For Each Visible cell in range, get me the left 6 characters

    Hi all, venturing into the wild world of For Each instead of Do Until loops, have the following: Dim LastrowAD As LongDim cl As Range Dim visrng As Range LastrowAD = Cells(Rows.Count, "A").End(xlUp).Row Set visrng = Range("A2:A" & LastrowAD) For Each cl In...
  2. R

    Replacing an On Error with an If, regarding copying cells that may not exist after a filter

    Hi everyone. I'm using VBA Autofilter to cut down a large database of products and copying whats left over to a temp sheet, it's defined like this: LastrowAD = Cells(Rows.Count, "A").End(xlUp).Row Dim TourCopyRng As Range Dim DateCopyRng As Range Dim NameCopyRng As Range Dim CostCopyRng As...

Some videos you may like

This Week's Hot Topics