I have this for each loop. I am trying to figure out how perform a function if the function cannot find any values.
This is my Code
For Each c In List
Sheets(Range("MonthCHoice").Value).Select
If c = Range("CourseName1") Then
c.Copy Destination:=Sheets("Lists").Range("Course45")
Sheets(Range("MonthCHoice").Value).Select
c.Offset(0, 2).Copy _
Destination:=Sheets("Lists").Range("Attendees45")
c.Offset(0, -5).Copy _
Destination:=Sheets("Lists").Range("Date45")
Sheets("Lists").Select
Range("Row").Copy _
Destination:=Range("Dummy").End(xlDown).Offset(1, 0)
Sheets(Range("MonthCHoice").Value).Select
Else
Sheets("Lists").Select
Range("Message").Copy _
Destination:=Sheets("Lists").Range("F25")
End If
Next c
I have already tried it with this section/
Else
Sheets("Lists").Select
Range("Message").Copy _
Destination:=Sheets("Lists").Range("F25")
However it inserts the range "message" regardless of whether no values are found.
Does anyone have any ideas?
This is my Code
For Each c In List
Sheets(Range("MonthCHoice").Value).Select
If c = Range("CourseName1") Then
c.Copy Destination:=Sheets("Lists").Range("Course45")
Sheets(Range("MonthCHoice").Value).Select
c.Offset(0, 2).Copy _
Destination:=Sheets("Lists").Range("Attendees45")
c.Offset(0, -5).Copy _
Destination:=Sheets("Lists").Range("Date45")
Sheets("Lists").Select
Range("Row").Copy _
Destination:=Range("Dummy").End(xlDown).Offset(1, 0)
Sheets(Range("MonthCHoice").Value).Select
Else
Sheets("Lists").Select
Range("Message").Copy _
Destination:=Sheets("Lists").Range("F25")
End If
Next c
I have already tried it with this section/
Else
Sheets("Lists").Select
Range("Message").Copy _
Destination:=Sheets("Lists").Range("F25")
However it inserts the range "message" regardless of whether no values are found.
Does anyone have any ideas?