Macro to look up data

[abberyfarm]

I am hoping somebody here could help me out with a macro to do a task that I have

In sheet 1, I have time values (Col A) and speed values (Col B).

In sheet 2, I have a start time (Col A), an end time (Col B) and in column C either numbers 1 and 2 which indicate a particular type of data.

Here is an example of sheet 1

      Time [sec]	 Speed
14/04/2011 07:40:35	 0
14/04/2011 07:40:36	 1
14/04/2011 07:40:37	 3
14/04/2011 07:40:38	 4
14/04/2011 07:40:39	 5
14/04/2011 07:40:40	 7
14/04/2011 07:40:41	 8
14/04/2011 07:40:42	 9
14/04/2011 07:40:43	 10
14/04/2011 07:40:44	 10
14/04/2011 07:40:45	 11
14/04/2011 07:40:46	 12
14/04/2011 07:40:47	 12
14/04/2011 07:40:48	 13
14/04/2011 07:40:49	 14
14/04/2011 07:40:50	 15
14/04/2011 07:40:51	 3.8
14/04/2011 07:40:52	 7.5

And of sheet 2

Start Time [sec]	   End Time [sec]       Type
14/04/2011 07:40:35	14/04/2011 07:41:05	 1
14/04/2011 07:41:06	14/04/2011 07:41:36	 1
14/04/2011 07:41:37	14/04/2011 07:42:07	 2
14/04/2011 07:42:08	14/04/2011 07:42:38	 1
14/04/2011 07:42:39	14/04/2011 07:43:09	 2
14/04/2011 07:43:10	14/04/2011 07:43:40	 2
14/04/2011 07:43:41	14/04/2011 07:44:11	 2
14/04/2011 07:44:12	14/04/2011 07:44:42	 2
14/04/2011 07:44:43	14/04/2011 07:45:13	 1
14/04/2011 07:45:14	14/04/2011 07:45:44	 1
14/04/2011 07:45:45	14/04/2011 07:46:15	 2
14/04/2011 07:46:16	14/04/2011 07:46:46	 1
14/04/2011 07:46:47	14/04/2011 07:47:17	 2
14/04/2011 07:47:18	14/04/2011 07:47:48	 2
14/04/2011 07:47:49	14/04/2011 07:48:19	 1
14/04/2011 07:48:20	14/04/2011 07:48:50	 1
14/04/2011 07:48:51	14/04/2011 07:49:21	 1

What I would like to do is,

In sheet 2, check the value in each row of column C. If the value equals 1, then go back to sheet 1 and copy all the data in column B to a new sheet between the start and end time.

I've attempted the code, but I am not sure how to take the start and end times in sheet 2 and look up and select the range in sheet 1.

m = 1

Worksheets("sheet2").Range("c2").Select

Do

        If (ActiveCell.Value = 1) Then

        'Take start and end times and look up range of values in sheet 1 
       
        End If

    ActiveCell.Offset(1, 0).Select

    Loop Until IsEmpty(ActiveCell.Offset(0, -1))

 

[venkat1926]

in sheet 2 column B is not shifted to BA but column C is shifted to BA. so the old macro should be ok because col c doe not come into effect . perhaps some information is missing. what happens if you use old macro???

anyhow I shall again look into it.

there were two macros one given on 17 august and another one on 18 aug . which one would you like to use.

 

[venkat1926]

"so the old macro should be ok"

I mean by old macro the macro of 17 august. no need to have any changes