Hi there
I insert data into Excel and create subtotals without a problem
I now want to search for the word 'Total' which I do successfully and it goes to that line item.
Now I need to insert a blank row.
How do you reference the activecell from Access and insert a blank row below the entry it found?
Help will be much appreciated!!
I have searched high and low on the internet to find a solution.
here is my bit of coding that I struggle with:
flag = False
While flag = False
On Error GoTo stoploop
objWkb.Sheets(1).Cells.Find(What:="Total", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
'coding works perfectly to here - now I need to insert a blank row!!
flag = False
Wend
stoploop:
objWkb.Sheets(1).Range("A6").Select
I insert data into Excel and create subtotals without a problem
I now want to search for the word 'Total' which I do successfully and it goes to that line item.
Now I need to insert a blank row.
How do you reference the activecell from Access and insert a blank row below the entry it found?
Help will be much appreciated!!
I have searched high and low on the internet to find a solution.
here is my bit of coding that I struggle with:
flag = False
While flag = False
On Error GoTo stoploop
objWkb.Sheets(1).Cells.Find(What:="Total", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
'coding works perfectly to here - now I need to insert a blank row!!
flag = False
Wend
stoploop:
objWkb.Sheets(1).Range("A6").Select