Comments on: Two new range functions: Union and Subtract

By: Rich Sulin

Rich Sulin — Sat, 03 Sep 2011 21:51:00 +0000

(Webmaster, please delete my previous post)
Thanks Tushar, Rick and Dick, I will try these other ideas when I get a chance. For the sake of others who might be reading this thread, here is what I originally did:

Calling program:

Public Sub vCopyAndPasteWithExceptions_Go()
Load CopyAndPasteWithExceptions
CopyAndPasteWithExceptions.Show
End Sub

User form code:

Private Sub Execute_Click()
'User form: CopyAndPasteWithExceptions
'Form has range-entry controls that provide SourceRange, TargetRange, SkipList, and
'a checkbox for CheckBox1 (Include formatting?)
'
'User clicked on "Execute" button....
vCopyPasteWithExceptions Me.SourceRange, Me.TargetRange, Me.SkipList, Me.CheckBox1
Unload Me
End Sub

Main program, called by user form:

Public Sub vCopyPasteWithExceptions(SourceRange As String, TargetRange As String, _
SkipList As String, IncludeFormating As Boolean)
' Called by User form: CopyAndPasteWithExceptions
' v1 Rich Sulin 08-15-2011

Dim i As Long, n As Long
Dim oSource As Object
Dim oTarget As Object
Dim oExcept As Object
Dim oTemp As Object

Set oSource = Range(SourceRange)
Set oTarget = Range(TargetRange)
If SkipList "" Then Set oExcept = Range(SkipList)

n = oSource.Cells.Count
Application.ScreenUpdating = False 'speed up process, turn off screen updates

'Copy the formulas
For i = 1 To n
If SkipList "" Then Set oTemp = Application.Intersect(oTarget(i), oExcept)
If oTemp Is Nothing Then
If IncludeFormating Then
oSource(i).Copy oTarget(i)
Else
oSource(i).Copy
oTarget(i).PasteSpecial xlPasteFormulas
End If
End If

Application.StatusBar = "Done: " & Format(i / n, "##0%") 'progress, visual feedback

Next i

Application.ScreenUpdating = True
Application.StatusBar = False
End Sub

By: Rick Rothstein (MVP - Excel)

Rick Rothstein (MVP - Excel) — Sat, 03 Sep 2011 01:16:00 +0000

Well duh! Of course, using the tags in my last reply created the code box rather than display the code tag’s text. So much for my demo

By: Rick Rothstein (MVP - Excel)

Rick Rothstein (MVP - Excel) — Sat, 03 Sep 2011 01:13:00 +0000

@Rich Sulin,

You need to use one of the set of code tags listed above the "Leave a Reply" (in blue letters) located above where your name goes when posting a reply. Namely, for your VB code...

Your code goes here

By: Rich Sulin

Rich Sulin — Tue, 30 Aug 2011 19:26:00 +0000

Strange, the less-than and greater-than characters didnt appear above. In two places it should be:
If SkipList LT GT "" Then...

(I had to type as letters here to get it to appear)

By: Rick Rothstein (MVP - Excel)

Rick Rothstein (MVP - Excel) — Sun, 21 Aug 2011 04:49:00 +0000

@Tushar – Whoops! It looks like I went and reinvented the wheel. (°o°)

By: Tushar Mehta

Tushar Mehta — Sun, 21 Aug 2011 01:13:00 +0000

Rick: The worksheet technique you use is the one illustrated in the SubtractUsingWS function in the original post.

By: Rick Rothstein (MVP - Excel)

Rick Rothstein (MVP - Excel) — Sat, 20 Aug 2011 19:22:00 +0000

@Rich Sulin,

If the workbook is not protected, then you can use the subroutine below to do what you asked without visiting each cell individually. If the workbook is protected, and if you have the password, then you can add the appropriate code to the subroutine below in order to remove it, execute the code, then reestablish it. Note that this subroutine, as written, expects the source worksheet to be the active sheet when it is executed.

Sub CopyWithExclusions(DestinationSheetName As String, LargeRangeCellAddress As String, _
ParamArray ExclusionCellAddresses() As Variant)
Dim Addr As Variant, CopyRangeAddresses As String, Ar As Range, WS As Worksheet
Set WS = ActiveSheet
Application.ScreenUpdating = False
With Sheets.Add
.Range(LargeRangeCellAddress).Value = "X"
For Each Addr In ExclusionCellAddresses
.Range(Addr).Clear
Next
CopyRangeAddresses = .Cells.SpecialCells(xlCellTypeConstants).Address
Application.DisplayAlerts = False
.Delete
Application.DisplayAlerts = True
End With
For Each Ar In WS.Range(CopyRangeAddresses)
Worksheets(DestinationSheet).Range(Ar.Address).Value = Ar.Value
Next
Application.ScreenUpdating = True
End Sub

A sample call to this subroutine might look like this (assumed to be run from any sheet other than Sheet2)...

Sub Test()
CopyWithExclusions "Sheet2", "B3:M28", "D4:F6", "F17:F22", "I8:K8", "L21:M25"
End Sub

Note that this same concept (insert a sheet, fill/clear ranges as required) can be used to create (non-UDF) functions to return "pure" unions and "pure" non-interesected ranges. Doing it this way would overcome the slowness of performing multiple unions and also eliminate the double counting of cells the result from "unioning" ranges that overlap. Anyway, it's just an idea.

By: Ease of reuse of modular code « TM Consulting Blog

Ease of reuse of modular code « TM Consulting Blog — Fri, 19 Aug 2011 17:28:00 +0000

[...] of the comments to my post Two new range functions: Union and Subtract (www.dailydoseofexcel.com/archives/2007/08/17/two-new-range-functions-union-and-subtract/) was a request for code to copy a range from one worksheet to another with certain ranges excluded. [...]

By: Tushar Mehta

Tushar Mehta — Fri, 19 Aug 2011 17:21:00 +0000

Rich: My first instinct was the same as DK's but I couldn't pass up the opportunity to illustrate the benefit of modular code. See http://www.dailydoseofexcel.com/archives/2011/08/19/ease-of-reuse-of-modular-code/

By: Dick Kusleika

Dick Kusleika — Thu, 18 Aug 2011 17:59:00 +0000

Rich: I can’t think of a better way than cell-by-cell. You could try to identify larger chunks, but for twice a month it’s probably not worth it.