Phelony
06-19-2009, 01:42 AM
Any help with this would be greatly apprecaited as it's now driving me nuts. :banghead:
What I've got is a spreadsheet based database (don't ask, they wouldn't let me use something sensible for it) that has a user interface to access the data.
I've got the data being put into the DB, I've got it getting lifted out again for editing, where I'm stuck is putting it back in again.
Each record has a unique reference, so what I'm doing is filtering the appropriate DB page and then looking for the first available unhidden line, which will contain the result.
The new information into each sheet is inserted via a new line at the top of the page so the most recent records show first, which means that the location of the data is constantly changing.
Where I'm stuck :help is, getting the simple code to start at the top of the filtered column and find the first unfiltered cell:
Sub hiddenrowignore()
Range("E1").Select 'starting cell
Do
While ActiveCell > 0
If ActiveCell.Hidden = True Then
ActiveCell.Offset(1, 0).Select
Loop
End If
I keep getting "Loop without Do" and I have a loop and I have a do, what I don't have is a clue what I've done wrong. :bug: The reference that is being filtered against is unique and only one row will come up as a result, they are automatically generated from a master sheet so that no human error can intervene (easily).
Can anyone explain what I've screwed up on in this, or if there is a simpler way of making the selection criteria an active cell to initiate the offset sequence? : pray2:
Thanks
Phel x
PS - I know there are better and easier ways of building a database :mkay
What I've got is a spreadsheet based database (don't ask, they wouldn't let me use something sensible for it) that has a user interface to access the data.
I've got the data being put into the DB, I've got it getting lifted out again for editing, where I'm stuck is putting it back in again.
Each record has a unique reference, so what I'm doing is filtering the appropriate DB page and then looking for the first available unhidden line, which will contain the result.
The new information into each sheet is inserted via a new line at the top of the page so the most recent records show first, which means that the location of the data is constantly changing.
Where I'm stuck :help is, getting the simple code to start at the top of the filtered column and find the first unfiltered cell:
Sub hiddenrowignore()
Range("E1").Select 'starting cell
Do
While ActiveCell > 0
If ActiveCell.Hidden = True Then
ActiveCell.Offset(1, 0).Select
Loop
End If
I keep getting "Loop without Do" and I have a loop and I have a do, what I don't have is a clue what I've done wrong. :bug: The reference that is being filtered against is unique and only one row will come up as a result, they are automatically generated from a master sheet so that no human error can intervene (easily).
Can anyone explain what I've screwed up on in this, or if there is a simpler way of making the selection criteria an active cell to initiate the offset sequence? : pray2:
Thanks
Phel x
PS - I know there are better and easier ways of building a database :mkay