End if without Block if followed by Block if without End if !

[nmounir]

Good day,

I am trying to write this code but i keep getting this error all the time.

any idea how to fix this?

Thank you

 

[My Aswer Is This]

It's always best to post all the code here and not a image of the code.

 

[Fluff]

You should only have one End If & it should go after the Next CD line

 

[nmounir]

I put End If after the Next CD line and i am still getting the same error.
I also tried to write code as an array to make the sheet faster since it is already very slow but it is not working.
Basically what i am trying to do is if i choose a certain date in some other cell (say L44), the table would contract (using formula) and i would like to the percentage in the third row (which hard coded) to become zero as per image 2 and 3

 

[Joe4]

ADVERTISEMENT

The "End If" needs to come before the "Next CD".

 

[nmounir]

I apologise i posted a wrong code in my second post. i tried to put the end if before and after and both methods didn't work !!!
as could see the 2% in column 3 in the table didn't change to 0

Private Sub Worksheet_Change(ByVal Target As Range)
Dim MyRenewedCDs As Range
Dim CD As Range
Application.EnableEvents = False

Set MyRenewedCDs = Range("J47:J71")
If Not Intersect(Target, MyRenewedCDs) Is Nothing Then
For Each CD In MyRenewedCDs
If CD.Value = "" Then CD.Offset(0, 2).Value = 0
End If
Next CD

Application.EnableEvents = True

End Sub

 

[Fluff]

ADVERTISEMENT

I put End If after the Next CD line and i am still getting the same error.

That's because that code is totally different from the code you originally posted.

 

[Fluff]

As I said before it must go after the Next Cd line

 

[nmounir]

That's because that code is totally different from the code you originally posted.

Yes i apologise for this mistake i fixed it on my third post.

 

[nmounir]

I apologise i posted a wrong code in my second post. i tried to put the end if before and after and both methods didn't work !!!
as could see the 2% in column 3 in the table didn't change to 0

Private Sub Worksheet_Change(ByVal Target As Range)
Dim MyRenewedCDs As Range
Dim CD As Range
Application.EnableEvents = False

Set MyRenewedCDs = Range("J47:J71")
If Not Intersect(Target, MyRenewedCDs) Is Nothing Then
For Each CD In MyRenewedCDs
If CD.Value = "" Then CD.Offset(0, 2).Value = 0
End If
Next CD

Application.EnableEvents = True

End Sub