Savagefool
New Member
- Joined
- Aug 20, 2015
- Messages
- 7
SO I have a table like this:
Assume Tidal Time is column A, Tidal height column B
[TABLE="width: 145"]
<tbody>[TR]
[TD]Tidal Time
[/TD]
[TD]Tidal Height
[/TD]
[/TR]
[TR]
[TD="align: right"]00:00:00
[/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]01:00:00
[/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]02:00:00
[/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]03:00:00
[/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]04:00:00
[/TD]
[TD="align: right"]4.5
[/TD]
[/TR]
[TR]
[TD="align: right"]05:00:00
[/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]06:00:00
[/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]07:00:00
[/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]08:00:00
[/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]09:00:00
[/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]10:00:00
[/TD]
[TD="align: right"]2.1
[/TD]
[/TR]
[TR]
[TD="align: right"]11:00:00
[/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]12:00:00
[/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]13:00:00
[/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]14:00:00
[/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]15:00:00
[/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]16:00:00
[/TD]
[TD="align: right"]4.5
[/TD]
[/TR]
[TR]
[TD="align: right"]17:00:00
[/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]18:00:00
[/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]19:00:00
[/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]20:00:00
[/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]21:00:00
[/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]22:00:00
[/TD]
[TD="align: right"]1.9
[/TD]
[/TR]
[TR]
[TD="align: right"]23:00:00
[/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]
What I need is a selection routine in excel-VBA like this:
Find the last non empty value (In this case 1.9)
Select last empty Value.
Select each cell up till the next non empty value. (In this case 4.5)
Use the following code to trend:
Select that cell again (4.5)
Select each cell up till the next non empty value (In this case 2.1)
Trend.
Select that cell it finished on (2.1)
Select each cell up till the next non empty value(In this case 4.5 at the top of the table)
Trend.
That's pretty much all that needs to happen.
Can any shed some light on the process for this? I keep getting confused. It doesn't help that there are many different ways to do it either. Thanks in advance!
Assume Tidal Time is column A, Tidal height column B
[TABLE="width: 145"]
<tbody>[TR]
[TD]Tidal Time
[/TD]
[TD]Tidal Height
[/TD]
[/TR]
[TR]
[TD="align: right"]00:00:00
[/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]01:00:00
[/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]02:00:00
[/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]03:00:00
[/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]04:00:00
[/TD]
[TD="align: right"]4.5
[/TD]
[/TR]
[TR]
[TD="align: right"]05:00:00
[/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]06:00:00
[/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]07:00:00
[/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]08:00:00
[/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]09:00:00
[/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]10:00:00
[/TD]
[TD="align: right"]2.1
[/TD]
[/TR]
[TR]
[TD="align: right"]11:00:00
[/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]12:00:00
[/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]13:00:00
[/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]14:00:00
[/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]15:00:00
[/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]16:00:00
[/TD]
[TD="align: right"]4.5
[/TD]
[/TR]
[TR]
[TD="align: right"]17:00:00
[/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]18:00:00
[/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]19:00:00
[/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]20:00:00
[/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]21:00:00
[/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]22:00:00
[/TD]
[TD="align: right"]1.9
[/TD]
[/TR]
[TR]
[TD="align: right"]23:00:00
[/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]
What I need is a selection routine in excel-VBA like this:
Find the last non empty value (In this case 1.9)
Select last empty Value.
Select each cell up till the next non empty value. (In this case 4.5)
Use the following code to trend:
Code:
Selection.DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, _
Trend:=True
Select each cell up till the next non empty value (In this case 2.1)
Trend.
Select that cell it finished on (2.1)
Select each cell up till the next non empty value(In this case 4.5 at the top of the table)
Trend.
That's pretty much all that needs to happen.
Can any shed some light on the process for this? I keep getting confused. It doesn't help that there are many different ways to do it either. Thanks in advance!
Last edited: