plasteredric
06-11-2018, 01:59 PM
I have the following code as part of a larger process. I'm trying to specify the cell where a range of data is to be pasted (CompleteSheetDestRange) and also check/confirm that the rest of the row is blank, however it doesn't seem to work.
Any help appreciated
Dim CompleteSheetLastCellOfFirstColumn As Range
Dim CompleteSheetDestRange As Range
'FIND LAST CELL WITHIN FIRST COLUMN OF COMPLETE SHEET
Set CompleteSheetLastCellOfFirstColumn = Sheets("Complete").Range("B" & Rows.Count).End(xlUp)
'SET COMPLETE SHEET DESTINATION POINT
Set CompleteSheetDestRange = CompleteSheetLastCellOfFirstColumn.Offset(1, 0)
'VALIDITY CHECK - CHECK DESTINATION RANGE START ROW IS BLANK
If Not CompleteSheetDestRange.row Is Nothing Then
MsgBox "Complete Sheet Destination Row is not blank, Unable to Transfer Data", 0, "Validity Check Error"
Application.Calculation = xlCalculationAutomatic
Exit Sub
End If
Any help appreciated
Dim CompleteSheetLastCellOfFirstColumn As Range
Dim CompleteSheetDestRange As Range
'FIND LAST CELL WITHIN FIRST COLUMN OF COMPLETE SHEET
Set CompleteSheetLastCellOfFirstColumn = Sheets("Complete").Range("B" & Rows.Count).End(xlUp)
'SET COMPLETE SHEET DESTINATION POINT
Set CompleteSheetDestRange = CompleteSheetLastCellOfFirstColumn.Offset(1, 0)
'VALIDITY CHECK - CHECK DESTINATION RANGE START ROW IS BLANK
If Not CompleteSheetDestRange.row Is Nothing Then
MsgBox "Complete Sheet Destination Row is not blank, Unable to Transfer Data", 0, "Validity Check Error"
Application.Calculation = xlCalculationAutomatic
Exit Sub
End If