Before the commands below pull the matched data, I am trying to call another sub command that will check if Cell A10 (all sheets) all the way down is less than Column DA10 (all sheets) all the way down; if it less in value, then provide a message with the specific Cell
If all clear then start the command below
For Each ws In Sheets(Array("P_ROLL", "TRAVEL", "PROF_SERV", "CON_EXP", "COMP_EQUIP", "IC", "CapEX"))
With ws
Select Case .Name
Case "CapEX": j = 100
Case Else: j = 10
End Select
LR = .Range("A" & Rows.Count).End(xlUp).Row
For i = j To LR
With .Range("A" & i)
If IsNumeric(Application.Match(.Value, Sheets("DataByCC").Columns("A"), 0)) Then
On Error Resume Next
.EntireRow.SpecialCells(12).Copy
Sheets("DataByCC").Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
On Error GoTo 0
End If
End With
Next i
End With
Next ws
If all clear then start the command below
For Each ws In Sheets(Array("P_ROLL", "TRAVEL", "PROF_SERV", "CON_EXP", "COMP_EQUIP", "IC", "CapEX"))
With ws
Select Case .Name
Case "CapEX": j = 100
Case Else: j = 10
End Select
LR = .Range("A" & Rows.Count).End(xlUp).Row
For i = j To LR
With .Range("A" & i)
If IsNumeric(Application.Match(.Value, Sheets("DataByCC").Columns("A"), 0)) Then
On Error Resume Next
.EntireRow.SpecialCells(12).Copy
Sheets("DataByCC").Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
On Error GoTo 0
End If
End With
Next i
End With
Next ws