time interval

[earp_]

Hi I have this problem,
in cell A2 of sheet1 there is a timestamp in this format
12:00:00 PM
When cell A2 of sheet1 is between 12:00:00 and 12:59:59 I want to write 'hello' into another cell: A4 of sheet2

How does it work?

Thanks in advance

 

[Richard Schollar]

Hi

Perhaps:

=IF(HOUR(Sheet1!A2)=12,"Hello","")

in A4 of Sheet2

 

[Jonmo1]

Perhaps..

=IF(HOUR(Sheet1!A2)=12,"hello","")

HTH

 

[earp_]

the last question...what if I need also an interval from 12.20 to 12.30 ?

 

[Jonmo1]

=IF(AND(Sheet1!A2>="12:20:00"*1,Sheet1!A2<="12:30:00"*1),"Hello","")

 

[earp_]

Sorry guys but i wrote 'hello' because I though would be easier...but it starts to complicate my point of view.
that work perfect:

=IF(AND(Sheet1!A2>="12:20:00"*1,Sheet1!A2<="12:30:00"*1),"Hello","")

but instead writing hello and I want to copy a value of cell A1 of sheet1 into Cell A3 of sheet2 in that interval, can you tell me how using that way?

 

[Jonmo1]

Replace "Hello" with Sheet1!A1

 

[earp_]

great thanks

 

[earp_]

There is something wrong.
Can you tell me what?

Dim LastR As Range
With ThisWorkbook
Set LastR = .Sheets("sheet2").Range("A1")
If Not IsEmpty(LastR) Then _
Set LastR = .Sheets("sheet2").Range("A" & Rows.Count).End(xlUp)(2)
LastR = IF(AND(Sheet1!A2>="15:37:00"*1,Sheet1!A2<="15:38:00"*1),"Hello","")
End With

I did that so it will start to fill my values from A1 otherwise it started from A2
but the error is

LastR = IF(AND(Sheet1!A2>="15:37:00"*1,Sheet1!A2<="15:38:00"*1),"Hello","")

 

[Jonmo1]

Are you trying to put that formula in the cell with VBA Code?

LastR.Formula = "=IF(AND(Sheet1!A2>=""15:37:00""*1,Sheet1!A2<=""15:38:00""*1),""Hello"","""")"