Check if cells are empty before pasting values

[ipbr21054]

Morning,
Im having an issue with the code below & now confused myself.

Previously i had just copied / pasted the values.
I have now see nothing is in place should i paste over value already in the cells as shown.
I have added the If IsEmpty code to check if cells have values & if Yes then just show msgbox but if empty then allow the paste of values to contine.
This is where ive now confused myself.

Private Sub MayButton_Click()
If IsEmpty(Range"(E4:E13").Value)= True Then
MsgBox "CELLS HAVE VALUES OVERWRITE ?", VbYesNo"
If answer = vbYes Then
  MsgBox "Yes"
Else
  MsgBox "Calls Have Values"
Exit Sub
End If

Range("I9:I18").Copy Destination:=Range("E4:E13")
MsgBox "ALL FIGURES HAVE BEEN TRANSFERED", vbInformation, "MONTHS FIGUES MESSAGE"
Unload SUMMARYSHEETYEAR
Range("I9:I18").ClearContents
Range("I9").Select
End Sub

 

[Joe4]

Move the copy code OUTSIDE of your IF blocks, i.e.

Private Sub MayButton_Click()

If WorksheetFunction.CountA(Range("E4:E13")) > 0 Then
    answer = MsgBox("CELLS CONTAIN VALUES ALREADY, OVERWRITE THEM ?", vbCritical + vbYesNo)
    If answer = vbNo Then
        Exit Sub
    End If
End If
    
Range("I9:I18").Copy Destination:=Range("E4:E13")
MsgBox "ALL FIGURES HAVE BEEN TRANSFERED", vbInformation, "MONTHS FIGUES MESSAGE"
Unload SUMMARYSHEETYEAR
Range("I9:I18").ClearContents
Range("I9").Select

End Sub

 

[ipbr21054]

Thanks,now done.
I was just overthinking it far too much.

Have a nice day

 

[Joe4]

You are welcome.