Looping If Statement Problem - 2

Don

As @Variatus said in his Answer to your previous question, your IF statements need to be constructed with care (and appropriate parentheses/brackets).

Equally your date comparison needs some thought (and just looking at the month part of the date has problems between years).

In the attached file I've mocked up what I think your question relates to. In the sheet Africa, there's some test data (in columns 1,2 9 and 12) and clicking the green shape "Transfer..." will  transfer only some of the rows (using your logic from the question).

Rather than use your variables today1 and today2, it works using the VBA function DateDiff, which (alone) would read:

If DateDiff("m", Date, Cells(k, 2).Value) = -1 Then

where the function DateDiff works out the difference between today and the date in the cell in terms of the interval "m" = months, whole numbers actually). This works over year ends too and can work with different intervals (like days or years)- here's the Microsoft guidance on DateDiff function

My file has the following modified version of your macro in Module 1 (with key changes shown in bold and uncommented If statements removed):

Option Explicit
Sub GetLastMonthAfrica()

Dim wsSource As Worksheet
Dim wsSum As Worksheet
Dim k As Long
Dim sourceRow As Long
Dim summaryRow As Long

Dim MonthsBack As Integer

Application.ScreenUpdating = False
Set wsSource = Sheets("Africa")
Set wsSum = Sheets("Summary")

wsSum.Visible = True

sourceRow = wsSource.Cells(Rows.Count, 1).End(xlUp).Row

With wsSource
    For k = sourceRow To 4 Step -1

        summaryRow = wsSum.Cells(Rows.Count, 1).End(xlUp).Row

        MonthsBack = DateDiff("m", Date, .Cells(k, 2).Value)

        If MonthsBack = -1 And (.Cells(k, 9).Value = "yes" Or _
            .Cells(k, 9).Value = "y" Or .Cells(k, 12).Value = "yes" Or _
            .Cells(k, 12).Value = "y") Then '

            .Cells(k, 1).EntireRow.Copy wsSum.Cells(summaryRow + 1, 1)

            Application.CutCopyMode = False
        End If
    Next k

End With

'Future Call other lands to monthly "Summary" sheet
'Future Print wsSum sheet
'Future ClearContents wsSum sheet

Application.ScreenUpdating = True ' It's good practice to turn it back on after you're done


wsSum.Activate
Range("A3").Select  'eyeball "Summary" sheet if transfer OK

MsgBox "Transfer of Africa entries Completed"

End Sub

Note that between the With... / End With statements, you don't need to write wsSource for items related to wsSource in the With, you just write .Cells(k,2) instead of wsSource.Cells(k,2). The dot (or period) is then very important (since if you miss it, Cells() would refer to the active sheet instead) and you need to add the worksheet for other references (e.g. wsSum.Cells(summaryRow + 1, 1) )

Hope this is what you need/ starts you in the right direction.

Pay attention to this line of your code.

today1 = Month(Cells(k, 2).Value)

The variable k wasn't given a value. Therefore it is 0. Therefore the cell reference evaluates to an error. today1 remains 0.

The mistake is in On Error Resume Next. Remove it and VBA will show you the mistake. Keep it in place and VBA will keep your secret. In other words, use On Error Resume Next only when you know which error to expect and how you intend to deal with it.

One frequent response is this kind of code following the line that might cause the error.

If Err.Number Then
    MsgBox "The current month could not be determined."
End If

You might fling your net further and differently with this code in the same location.

If today1 < 1 Or today1 > 12 Then
    MsgBox "The current month could not be determined."
End If

On Error Resume Next will ensure that this code gets to run and the fact that today1 will remain 0 if an error occurs will ensure that the MsgBox is shown in case of an error (caused by k being not set). So, you might decide to keep the MsgBox even after setting k and removed On Error Resume Next (because there is no sense for the latter if k is assigned a value).

today2=Month(Date) - 1 

If DateDiff("m", Date, Cells(k, 2).Value) = -1 Then