[Solved] Basic Macro Calc Return Row of a Found Cell

[Tom Sequitur]

This works, needed declarations elsewhere.

Code: Select all

REM  *****  BASIC  *****

Sub URLchanged

Dim lOK as Boolean

lOk = True

otxtCitationURL = oDlg.getControl("txtCitationURL")  

oSearchCitation.SearchString = otxtCitationURL.Text
oFoundCitation = oCitationSheet.findFirst(oSearchCitation)

If IsNull(oFoundCitation) Then

 MsgBox("No URL found, so you will have to copy and past in the article's information!"
 lOK = False

End If

If lOK Then

  print oFoundCitation.AbsoluteName

End If


End Sub

What I want to do is basically:

Instead of:

print oFoundCitation.AbsoluteName

down in my code, I would like to just get print (actually grab) the sheet, row, and column separately i.e.:

print oFoundCitation.SheetName
print oFoundCitation.RowName (and-or numeric x coordinate)
print oFoundCitation.ColumnName (and-or numeric y coordinate)

I am just not finding this stuff in the Basic Guide or Pitonyak's book.

[FJCC]

You need to get an object inspector like MRI so you can see the properties and methods of you objects.
To see the Sheet, Row and Column of the found cell you can use

Code: Select all

oSheets = ThisComponent.Sheets
oHoja = oSheets.getByName("Hoja1")
Desc = oHoja.createSearchDescriptor()
Desc.SearchString = "This"
oFound = oHoja.findFirst(Desc)
CellAddress = oFound.CellAddress
SpreadSheet = oFound.SpreadSheet
print "Row = " & CellAddress.Row
print "Column = " & CellAddress.Column
print "Sheet Name = " & SpreadSheet.Name

[Tom Sequitur]

You need to get an object inspector like MRI so you can see the properties and methods of you objects.

Agreed, as to the object inspector, will try to make MRI work for me.

Your code worked like a champ. Thanks again for the help. I just wish this stuff had better docs. It's pretty hard for a novice to work through.

[Tom Sequitur]

Looking at MRI, it's not very novice friendly either. Not sure how to install and use it but will see if I can get it going.

[FJCC]

Introduction to MRI