Ricerca con macro in Calc

[bzzcc]

Ciao,

avrei bisogno di aiuto per impostare una macro che mi permetta di cercare un valore (testo/numero) di una cella in una differente colonna nello stesso foglio.

Per esempio, guardando l'allegato, il mio obiettivo è quello di cliccare sul rettangolo blu, far partire la macro, cercare test(nella cella O2; questo dato cambia per ogni ricerca) nella colonna G, selezionare la cella G3.

La ricerca non sarà mai fatta per termini uguali, ma solo per una parte di essi ("contiene" non "uguale")

grazie!

[charlie]

Ciao, non c'è già la comoda funzione da menù?

[bzzcc]

Utilizzandola da tablet è macchinosa, soprattutto se devo aprire/cercare/chiudere il menu diverse volte in un breve lasso di tempo.

In effetti una spiegazione del perchè vorrei ricorrere a questo forse era neccesaria.

Alla fine, si, vorrei replicare il cerca/sostituisci da menu (senza sostituisci) su una macro da attivare al "tocco" del rettangolo

[Gaetanopr]

Ciao,
avrei bisogno di aiuto per impostare una macro

Scaricando il file credevo di trovare un accenno di macro, dovevi dire avrei bisogno di una macro!!!!!

Codice: Seleziona tutto

Sub Cerca()
Dim Sh As Object
Dim CampoRicerca As Object
Dim Risc As Object
Dim oSD As Object
Dim Ricerca As String, Uriga As Long

   Sh = ThisComponent.Sheets.getByIndex(0)
   Ricerca = Sh.GetCellRangeByName("O2").String
   If Ricerca = "" Then Exit Sub
   Uriga = LastRowInColonna(Sh, 6)
   CampoRicerca = Sh.getCellRangeByName( "G2:G" & Uriga +1)
   oSD = Sh.createSearchDescriptor
   oSD.searchType = 1
   oSD.setSearchString( Ricerca )
   Risc = CampoRicerca.findAll( oSD )
  
   If Not IsNull( Risc ) Then
        ThisComponent.getCurrentController.select( Risc )
   Else
        Msgbox ("Nessun Riscontro", 33, "Ricerca") 
   End If
        
End Sub


Function LastRowInColonna(oSheet As Object, Col As Long) As Long
  Dim c As Object, oRangePiena As Object, LastRow As Long
  c = oSheet.createCursor
  c.gotoEndOfUsedArea(false)
  LastRow = c.RangeAddress.EndRow
  oRangePiena = oSheet.getCellRangeByPosition(Col, 0, Col, LastRow).queryContentCells(1+2+4).RangeAddresses
    If Ubound(oRangePiena) < 0 Then 
       LastRowInColonna = - 1
    Else    
       LastRowInColonna = oRangePiena(Ubound(oRangePiena)).EndRow 
    End if  
End Function

Vengono selezionate tutte le occorrenze, se invece vuoi fermarti alla prima cambia findAll con findFirst

[bzzcc]

grazie mille

[Maios]

Salve, grazie in anticipo per chi mi aiuterà. Volevo fare più o meno la stessa cosa ma attraverso una finestra di dialogo in cui ho una textbox e un command button. Potete aiutarmi?

[charlie]

Ciao @Maios e benvenuto/a sul forum.
Se intanto ti vuoi presentare puoi farlo in questa sezione -> viewforum.php?f=16
Per una panoramica delle regole del forum puoi consultare il Manuale di sopravvivenza -> http://forum.openoffice.org/it/forum/vi ... hp?f=1&t=2

Buon proseguimento.

[Maios]

Ciao @Maios e benvenuto/a sul forum.
Se intanto ti vuoi presentare puoi farlo in questa sezione -> viewforum.php?f=16
Per una panoramica delle regole del forum puoi consultare il Manuale di sopravvivenza -> http://forum.openoffice.org/it/forum/vi ... hp?f=1&t=2

Buon proseguimento.

Grazie @charlie, fatto.

[Maios]

Salve, grazie in anticipo per chi mi aiuterà. Volevo fare più o meno la stessa cosa ma attraverso una finestra di dialogo in cui ho una textbox e un command button. Potete aiutarmi?

Aggiungo altri dettagli: facciamo caso che il testo cercare sia nella riga 2 della colonna B, mi dovrà restituire come risultato il testo della riga 2 della colonna A, B e C in tre textbox presenti anch'esse nella finestra di dialogo.

[patel]

Apri una discussione tua, magari facendo riferimento a questa, allega un file di esempio con dati e risultato desiderato

[Maios]

Apri una discussione tua, magari facendo riferimento a questa, allega un file di esempio con dati e risultato desiderato

Grazie del suggerimento @patel, fatto! potete seguirla a questo link: viewtopic.php?f=26&t=9695