End IF

[tlindeman]

I am not sure how to do this, I need the following VBA code to execute without ending each section. For example, I need it to look at date for 5/30 and then 6/30 and then 7/31. If any of those conditions are not satisfied, then end . Please let me know if that is not clear. Thank YOu Tony

If Date >= CDate("05/30/2011") Then
Sheets("Class III Inputs").Select
Range("H18:J18").Select
Selection.ClearContents
Sheets("INPUTS").Select
If Date >= CDate("06/30/2011") Then
Sheets("Class III Inputs").Select
Range("H19:J19").Select
Selection.ClearContents
Sheets("INPUTS").Select
If Date >= CDate("07/31/2011") Then
Sheets("Class III Inputs").Select
Range("H20:J20").Select
Selection.ClearContents
Sheets("INPUTS").Select
End If
End Sub

 

[VoG]

Possibly

If Date >= CDate("07/31/2011") Then
    Sheets("Class III Inputs").Range("H20:J20").ClearContents
    Sheets("INPUTS").Select
ElseIf Date >= CDate("06/30/2011") Then
    Sheets("Class III Inputs").Range("H19:J19").ClearContents
    Sheets("INPUTS").Select
ElseIf Date >= CDate("05/30/2011") Then
    Sheets("Class III Inputs").Range("H18:J18").ClearContents
    Sheets("INPUTS").Select
End If

 

[Greg Truby]

You requirements are a little muddled, so not sure which of these. But one of these two ought to be what your looking for. Also, please use CODE tags and proper indentation when posting code. With a modest snippet like this it's not a major felony. But if your code had been much longer I would have skipped your post due to lack of code tags and indenting.

    Sheets("INPUTS").Select
    If Date >= CDate("05/30/2011") Then
        Sheets("Class III Inputs").Range("H18:J18").ClearContents
    End If
    If Date >= CDate("06/30/2011") Then
        Sheets("Class III Inputs").Range("H19:J19").ClearContents
    End If
    If Date >= CDate("07/31/2011") Then
        Sheets("Class III Inputs").Range("H20:J20").ClearContents
    End If

    Sheets("INPUTS").Select
    If Date >= CDate("05/30/2011") Then
        Sheets("Class III Inputs").Range("H18:J18").ClearContents
    ElseIf Date >= CDate("06/30/2011") Then
        Sheets("Class III Inputs").Range("H19:J19").ClearContents
    ElseIf Date >= CDate("07/31/2011") Then
        Sheets("Class III Inputs").Range("H20:J20").ClearContents
    End If

 

[tlindeman]

Sorry I will figure out how to use code tags and use in the future. THank you both for your help. Both of these will work.

Tony

 

[VoG]

Just type the code tags:

[code]
your code here
[/code]

 

[Greg Truby]

Peter - how did you disable the tags in order to make your last post? Something obvious that I'm overlooking?

 

[VoG]

Hi Greg

Type

[*noparse]

without the *

then the code tags then

[*/noparse]

without the *

I owe MrKowz for that tip.

 

[Greg Truby]

Thanks, Peter. I didn't even know of the existence of the NOPARSE tag set.