Still be able to send blank email with no data

[hsolanki]

Hello I have an workbook whereby it has all the expiry dates and you can filter the each department which is on sheet2 filtered from sheet1 and show you any due dates for the selected department if there are any due dates and can send email based on filtered dates however problem is that although there are no expiry dates for selected filtered department you can still be able to send an email if there are no expiry dates.

i was wondering if there is any way we could avoid this e.g. if any of the department filtered and has got NO any due date then comes up with msgbox saying no new expiry date found for and the department name it was filtered for.

Thanks

 

[MrTomasz]

what about checking the last row in sheet2 after filtering?
if lastrow =1 (means no data below header) then msgbox and end

 

[hsolanki]

Hi Tomasz thank you for promote respond would you help me with the code please as i would not know what to write

 

[hsolanki]

Hi Tomasz i have tried below code but what it is doing when i filter the each department it is hiding the columns which has data. so when i select the department which has got data msgbox still comes up or when i tried with 1 then it will still sends out the blank email which has got no data.

If lastrow = 0 Then
MsgBox "NO new Due dates"
Exit Sub
End If