Module Counter

[vmjan02]

I have module and sub name as Sub MonthlyOldDataRemove this is all perfect.
I have another module and sub name as sub sundaycall


sunday script goes as, it will only run it the syst,e day is sunday.

Sub sundaycall()
If Sheets("Weekly YoDate-RawData").Range("B1").Value <> "Sunday" Then
    Exit Sub
End If

rest of the code is all pefect. only on sunday the Sub MonthlyOldDataRemove is run 3 times, but is ther a way when on sunday this Sub MonthlyOldDataRemove runs on the 3 time it will executive sub sundaycall first 2 times it will not run sub sundaycall only 3time it will run sub sundaycall.
I did tried to put a counter as if the Sub MonthlyOldDataRemove is more than 2 only on sunday then it should run the sub sundaycall, but its failing.

any suggestions.

 

[StephenCrump]

You could store the count in a cell somewhere in your workbook called SundayCount, starting with the value 0.

Then ...

Sub MonthlyOldDataRemove()

    'Remove data
            
    If Sheets("Weekly YoDate-RawData").Range("B1").Value = "Sunday" Then
        With Range("SundayCount")
            .Value = .Value + 1
            If .Value = 3 Then
                .Value = 0
                Call sundaycall
            End If
        End With
    End If

End Sub

 

[vmjan02]

You could store the count in a cell somewhere in your workbook called SundayCount, starting with the value 0.

Then ...

Sub MonthlyOldDataRemove()

    'Remove data
           
    If Sheets("Weekly YoDate-RawData").Range("B1").Value = "Sunday" Then
        With Range("SundayCount")
            .Value = .Value + 1
            If .Value = 3 Then
                .Value = 0
                Call sundaycall
            End If
        End With
    End If

End Sub

ok sure will give it a try on this sunday

i have give c3 cell name as "SundayCount" in same sheet "Weekly YoDate-RawData"
Thank you for your support and help

the modifited code looks like, in case i have to do any changes please let me know.

Sub sundaycall()
If Sheets("Weekly YoDate-RawData").Range("B1").Value <> "Sunday" Then
    Exit Sub
End If

'Modifited Code
If Sheets("Weekly YoDate-RawData").Range("B1").Value = "Sunday" Then
        With Range("SundayCount") 'cell c3
            .Value = .Value + 1
            If .Value = 3 Then
                .Value = 0
                Call sundaycall
            End If
        End With
    
'End If

'If Sheets("Weekly YoDate-RawData").Range("B1").Value = "Sunday" Then

''''''''''''
'To check system day is Sunday
'and remove old monthly data
''''''''''''
Call QtyOldDataRemoveQandY
Call MonthlyOldDataRemoveQandY

End if
End Sub

 

[vmjan02]

Hi

StephenCrump​

I tried this today been Sunday, but script is not working as disered,
it just check sunday and not the counter and execute the call sunday.

Sub sundaycall()

If Sheets("Weekly YoDate-RawData").Range("B1").Value <> "Sunday" Then

    Exit Sub
  
End If



If Sheets("Weekly YoDate-RawData").Range("B1").Value = "Sunday" Then
        With Range("C3")
            .Value = .Value + 1
            If .Value = 3 Then
                .Value = 0
                Call sundaycall
            End If
       End With
    
'End If

'If Sheets("Weekly YoDate-RawData").Range("B1").Value = "Sunday" Then

''''''''''''
'To check system day is Sunday
'and remove old monthly data
''''''''''''
Call QtyOldDataRemoveQandY
Call MonthlyOldDataRemoveQandY
End If
End sub

 

[Skyybot]

Sub sundaycall()


If Not Sheets("Weekly YoDate-RawData").Range("B1").Value = "Sunday" Then

    Exit Sub
  
End If



If Sheets("Weekly YoDate-RawData").Range("B1").Value = "Sunday" Then
    Select Case Range("C3").Value
        Case Is < 3
            Range("C3").Value = Range("C3").Value + 1
        Case Is = 3
            Range("C3").Value = 0
            Call QtyOldDataRemoveQandY
            Call MonthlyOldDataRemoveQandY
    End Select
End If
    
'End If

'If Sheets("Weekly YoDate-RawData").Range("B1").Value = "Sunday" Then

''''''''''''
'To check system day is Sunday
'and remove old monthly data
''''''''''''


End Sub