[Risolto] Foglio diverso da quello corrente

[Matti111]

Ciao a tutti,
sono nuovo del forum e vorrei chiedere il vostro aiuto.

Ho creato una serie di macro con excel e volevo trasferirle in Open office ma riscontro qualche problema.

Codice: Seleziona tutto

Private Sub ComboBox2_Click()
Var = 2

Foglio3.ComboBox1.Clear
Do Until Foglio1.Cells(Var, 2).Value = ""
    If Foglio1.Cells(Var, 3) = Foglio3.ComboBox2.Object Then
        Foglio3.ComboBox1.AddItem Foglio1.Cells(Var, 2).Value
    End If
    Var = Var + 1
Loop
End Sub

mi da errore sulle righe che utilizzano la combobox.

Sapete aiutarmi?

Grazie
Mattia

PS

all'inizio della macro ho inserito:

Codice: Seleziona tutto

Option VBASupport 1

ho fatto bene? Serve?

[Matti111]

Sono riuscito a risolvere parzialmente la cosa.


Se al posto di

Codice: Seleziona tutto

Foglio1.Cells(Var, 2).Value

scrivo

Codice: Seleziona tutto

Cells(Var, 2).Value

la macro funziona.

Solo che in questo modo non so come "selezionare" o far leggere un valore che è in una pagina diversa da quella corrente.

HELP PLEASE

[xergio]

Ti posso dire la corrispondente funzione in OOoBasic:

Codice: Seleziona tutto

ThisComponent.Sheets(0).getCellByPosition(Var,2).getValue()

in cui il primo 0 indica il numero di foglio (0,1,2, ecc.).

[Matti111]

è bastato mettere:

Codice: Seleziona tutto

Worksheets("Foglio1").Cells(Var, 2).Value

al posto di:

Codice: Seleziona tutto

Foglio1.Cells(Var, 2)

inserendo all'inizio della macro

Codice: Seleziona tutto

Option VBASupport 1

Ringrazio cmq xergio per la risposta!