Record time

[hsandeep]

Sheet1

	C	D	E	F	G
1	1 or 0	Time T1 when 1 appeared last in C	Time T2 when 1 disappeared last in C	For T1	For T2
2	1	9/21/2014 11:03	9/21/2014 13:47	100	200
3	1
4	0
5	1
6	0

<colgroup><col style="FONT-WEIGHT: bold; WIDTH: 30px"><col style="WIDTH: 64px"><col style="WIDTH: 104px"><col style="WIDTH: 104px"><col style="WIDTH: 64px"><col style="WIDTH: 64px"></colgroup><tbody>
</tbody>

Excel tables to the web >> Excel Jeanie HTML 4

C2:C200 generates either of 1 or 0 using Excel function. C2:C200 gets updated regularly & the value in C2:C200 may change back from 1 to 0 after generating 1.
Say C2=1 when time=9/21/2014 10:44:36 AM. I want to record this time in D2 & a constant numerical value 100 should appear in F2.
After few seconds, C2 may change to 0. Say C2 becomes 0 at time=9/21/2014 11:16:12 AM. I want to record this time in E2 & a constant numerical value 200 should appear in G2.

By default, C2:C200=0.
How to do this in D2:G200 using vba.
Thanks in advance for having helped me.

 

[hsandeep]

In ws tab named Temp, the below code has been pasted in the standard module. This macro is probably copying data from Sheet3, the ws where the table is located.

Sub setup()
  Worksheets("Temp").Range("A2:A200").Value = Worksheets("Sheets").Range("C2:C200").Value
End Sub

you can put the macro elsewhere but some revisions to the macro is needed[/QUOTE]

Kindly re-look at the code: Should the Worksheets("Sheet[B][COLOR=#ff0000]s[/COLOR][/B]") be REPLACED BY Worksheets("Sheet[B][COLOR=#ff0000]3[/COLOR][/B]")?
Please reply back.

 

[ttdk1]

yes