how do i add a second IF to end my macro if cell is no empty

[Ratigan1970]

hello everyone in Excel land
im no pro at vba so ive come here to pick your brains
im making a clockin program in excel. it all works but the problem i have is you can clock in again after clocking in
so i thought id put a second IF or something to stop people clocking in again my mistake

If Range("B2:AW32").Find(Range("A5")) Is Nothing Then
    MsgBox "Value not found"
Else
Range("A7").Select
Dim k As Date
k = Now
    ActiveCell.FormulaR1C1 = Format(k, "HH:MM")
    Range("A7").Select
    Selection.Copy
   Range("B2:AW32").Find(Range("A5")).Offset(0, 1).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

 

[Micron]

Not clear to me what part of that applies to your situation. Code comments (notes) are often a good thing for people who can't see the rest of whatever you're posting. It may be as simple as Exit Sub right after you determine that there is already an entry (I assume for a particular date).

 

[Ratigan1970]

hi micro sorry ill try and give more info
i thought a second IF to exit the macro if their was a time in the offset cell
in A7 is the date too lookup
in A5 is the time to copy
from B2 down i have 1-JAN TO 31-JAN then 4 colums over i have 1-Feb too 29-Feb and so on for the year
the macro finds the date and offsets from the date one to the right and pleases the time
i would like the macro to exit the sub if the offset cell has already got a time in it

hope this helps

 

[Micron]

If A5 is where you want to look for a value and proceed only if there is one, maybe

If Range("B2:AW32").Find(Range("A5")).Offset(0, 1)<> "" Then
   Range("B2:AW32").Find(Range("A5")).Offset(0, 1).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    etc. etc.
End if

Not the most efficient approach but simplest for you to work with I think. Things still are not clear to me.

 

[Ratigan1970]

many thanks Micron that hit the spot.
works perfit

 

[Micron]

Glad I could help & thanks for the recognition.