Hi,
PFA my macro files.
I am getting an error on line
.AutoFill .Resize(LastRow2 - 4, 1), xlFillSeries
can any one help me?
Hi,
PFA my macro files.
I am getting an error on line
.AutoFill .Resize(LastRow2 - 4, 1), xlFillSeries
can any one help me?
You Have
LastRow2=4Please Login or Register to view this content.
so 4-4=0
I didnt get u
how can you autofill 0 rows?
can you please give me modified code?
Can u give me the code to move next line if rows are zero
Can u give me the code to move next line if rows are zero.
Means to reach line MsgBox "Aditya_Birla GMC/GPA- The selection is not a range or the sheet is protected
I don't know what you are doing.
You are creating a sheet, then placing text in row 4, then you are trying to find the last row in the sheet, and it will always be the fourth row so the last row-4 will always be zero.
Dear Dave,
My code does below task.
in sheet Data, code extracts date from J to F. It creates sheet Results.
Then in sheet Data, in J, below Code filters records begin with Resolved and Sent
If WorksheetFunction.CountIfs(Sheets("Data").Range("J1:J" & LastRow1), "=Resolved*") > 0 Or WorksheetFunction.CountIfs(Sheets("Data").Range("J1:J" & LastRow1), "=Sent*") > 0 Then
also has other filter criteria.
if records found then it goes to next line. If no record found then below msg to be displayed.
MsgBox "Aditya_Birla GMC/GPA- The selection is not a range or the sheet is protected.
Means if there is no records found in filter criteria then move to
If rng Is Nothing Then
If rng Is Nothing Then
'''''''''''''''' Change name of the entity
MsgBox "Aditya_Birla GMC/GPA- The selection is not a range or the sheet is protected. " & _
vbNewLine & "Please correct and try again.", vbOKOnly
Okay, I see what ids going on,. You need a little error trap in case there is nothing to copy.
Please Login or Register to view this content.
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks