Subtract Ranges

[Ornithopter]

Is there a quick way to subtract ranges?

Example:
RangeA = A1:A20
RangeB = A1:A10

RangeC = subtract(RangeA, RangeB)

Now RangeC = A10:A20

Is there something like that?

 

[Ornithopter]

Hmmm.... saving didn't work.
Ahhh the joy of excel and MS!

 

[Ornithopter]

This is what I am trying... doesn't work.
The UsedRange is still larger than the PrintArea:

    'Remove anything that is not in the PrintArea
    Dim garbage As Range
    Set garbage = SubtractRanges.subractRanges(ActiveSheet.UsedRange, Range(ActiveSheet.PageSetup.PrintArea))
    garbage.Clear
    garbage.Delete
    
    ActiveWorkbook.Save
    ActiveSheet.UsedRange.Select
    Exit Sub

Thoughts?

 

[martinee]

Maybe try this:

'Remove anything that is not in the PrintArea
Dim garbage As Range
Set garbage = SubtractRanges.subractRanges(ActiveSheet.UsedRange, Range(ActiveSheet.PageSetup.PrintArea))
garbage.Clear
garbage.Delete
Set garbage = Nothing

ActiveWorkbook.Save
ActiveSheet.UsedRange.Select
Exit Sub

HTH

 

[Ornithopter]

I have chosen to use the following instead of
the Flawed Used Range approach:

Function lastColumn(ws As Worksheet) As Long
      Dim findRange As Range

    Set findRange = ws.Cells.Find(what:="*", _
      SearchDirection:=xlPrevious, _
      SearchOrder:=xlByColumns)
   
    If findRange Is Nothing Then
        lastColumn = 0
    Else
        lastColumn = findRange.column
    End If
End Function

Function lastRow(ws As Worksheet) As Long
    Dim findRange As Range
   
    Set findRange = ws.Cells.Find(what:="*", _
      after:=ws.Range("A1"), _
      SearchDirection:=xlPrevious, _
      SearchOrder:=xlByRows)
    If findRange Is Nothing Then
        lastRow = 0
    Else
        lastRow = findRange.Row
    End If
End Function

Using the above 2 functions, which actually work,
I create the correct Range that I need.

Cheers!