Seamus2626
asked on
Adding to code
Hi,
I have the below piece of code and i want to start adding more named ranges like "Today" and "Yesterday"
How can i add on to that code
e.g. my next named ranges would be "MeritToday" & "Merit Yesterday"
Thanks
Seamus
I have the below piece of code and i want to start adding more named ranges like "Today" and "Yesterday"
How can i add on to that code
e.g. my next named ranges would be "MeritToday" & "Merit Yesterday"
Thanks
Seamus
Option Explicit
Public Sub CompareData()
'compares Today and Yesterday named ranges
Dim rngToday As Range
Dim rngYesterday As Range
Dim rngTcell As Range
Dim boolFirstTime As Boolean
Set rngToday = ActiveSheet.Range("Today")
Set rngYesterday = ActiveSheet.Range("Yesterday")
If (rngToday.Columns.Count = rngYesterday.Columns.Count) _
And (rngToday.Rows.Count = rngYesterday.Rows.Count) Then
Else
MsgBox "Sophis Fiscal are Identical!", vbCritical, "Range size difference"
Exit Sub
End If
boolFirstTime = True
For Each rngTcell In rngToday
If rngTcell.Value <> rngYesterday.Cells(rngTcell.Row - rngToday.Row + 1, rngTcell.Column - rngToday.Column + 1).Value Then
Else
If boolFirstTime Then
boolFirstTime = False 'skip header cell
Else
Exit Sub
End If
End If
Next
MsgBox "Data Identical", vbCritical, "Range Data Identical"
End Sub
ASKER
Hi Patrick, is not possible for me to simply name a range like the above code as opposed to having to reference each area?
Thanks
Seamus
Thanks
Seamus
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
Thanks Patrick
Seamus
Seamus
Seamus - Thanks for the grade - Patrick
Try the code below to add the range names. Change the ranges to which each of them refer to suit your requirements.
Patrick
Open in new window