Want Macro to continue after a first action

[SanjayGMusafir]

Hi Experts
Need some urgent help

I'm working on a macro where I want macro to go to a particular date and then perform another function. So I picked coding from my previous macros and compiling a new one...

But the problem is - My earlier Macro Says "EXIT SUB" after it finds a particular date, while I want it to continue working for the next action I want it to take. If I remove command "Exit Sub" then it keeps from from one cell to another that fulfil the condition(s).

So how to modify this macro so that it continues working after selecting a desired cell.

The part of code is as below -

For Each cell In ActiveSheet.Range("SBISGM[Date]")
If cell.Value >= [Today()] And cell.Value < [Today()+15] Then
cell.Select
ActiveWorkbook.Save
Exit Sub
End If
Next

 

[KKaren]

You can achieve this in different ways.
One option is to create a new macro with the actions that you want to take further and to replace the line Exit Sub with calling your new macro.
And in the new macro you can add the command End before Exit sub in order to complete it (If that's the last operation you would like to perform).

 

[Fluff]

How about

For Each Cell In ActiveSheet.Range("SBISGM[Date]")
   If Cell.Value >= Date And Cell.Value < Date + 15 Then
      Cell.Select
      ActiveWorkbook.Save
      Exit For
   End If
Next
' now do something else
End Sub

 

[SanjayGMusafir]

Thanks @Fluff for quick response.

It did the Magic...

Thanks again.

How about

For Each Cell In ActiveSheet.Range("SBISGM[Date]")
   If Cell.Value >= Date And Cell.Value < Date + 15 Then
      Cell.Select
      ActiveWorkbook.Save
      Exit For
   End If
Next
' now do something else
End Sub

 

[Fluff]

You're welcome & thanks for the feedback