[Risolto] Copia automatica a listato numerico ridotto

[Nando69]

Salve a tutti. Facendo riferimento al file allegato,si nota come in cella A1 sia presente un piccolo listato che comprende i numeri presenti nella colonna B.
A seconda quindi del valore che verrà inserito nella suddetta cella A1,vorrei che si attivasse automaticamente la funzione "Copia",con la riga di riferimento del gruppo B1-D12 che dovrà rendersi operativa. Se ad esempio in A1 selezionerò il numero 45,automaticamente la riga 7 (in cui è presente appunto questo valore) dovrà attivarsi affinché l'intervallo B7-D7 possa essere già pronto per essere incollato da qualche altra parte (sullo stesso foglio o in un file diverso). Spero di aver espresso bene il concetto. Una buona serata

[Muset]

Ciao, hai due strade a disposizione, o codice per ottenere esattamente quello che chiedi oppure usando tre cerca.vert direttamente dove vuoi piazzare i dati dove ti servono, questo però prevede che una volta visualizzati i dati fai un copia - incolla valori per fissarli altrimenti cambiando A1 si aggiorneranno alla nuova ricerca

[Nando69]

Ciao. Riusciresti a crearmi un codice per favore?

[gioh66]

Buondì. Come dice @muset potresti fare con una formula.
Dove ti serve il risultato metti

Codice: Seleziona tutto

=INDICE($B$1:$D$12;CONFRONTA($A$1;$B$1:$B$12;0);RIF.COLONNA(A1))

e tiri a destra di 3.

[Gaetanopr]

Ciao nando hai riproposto lo stesso problema dove avevi già trovato una soluzione
https://ask.libreoffice.org/t/funzione- ... meri/95703

[Nando69]

Ciao Gaetano. Le 2 cose si differenziano e il problema è diverso perchè lì si parlava di 90 numeri mentre qui il listato riguarda solo i numeri presenti in B1-B12. Sul Forum di Ask con la tua macro mettendo ad esempio il numero 45,la funzione "Copia" si attivava esattamente sulla riga 45 mentre quello che adesso mi serviva è che prendendo sempre ad esempio il valore 45,la funzione "Copia" si attivasse in riga 7 dove oltre al 45 dono presenti anche il 90 e il 54. Altro esempio : inserendo in A1 il valore 64 avevo bisogno che la funzione "Copia" si attivasse in riga 9 dove oltre al 64 sono presenti il 38 e l' 83. Se in questo piccolo listato che ho inserito su questo Topic,provo a usare la tua macro (quella in Ask),mettendo in A1 il 90 la funzione "Copia" mi si attiva in riga 90. Quindi presumo a questo punto ci fosse bisogno di una modifica della macro. Ecco perchè ho riproposto questo argomento. Comunque adotterò le soluzioni proposte gentilmente da Muset ed Eugenio. Grazie a voi e buona serata

[Gaetanopr]

Si hai ragione è un pò diverso, ma essendo una variante abbastanza simile potevi linkare la discussione o allegare oltre al file pure la macro.
Infatti sulla base di quella ho apportato qualche modifica.

Codice: Seleziona tutto

Sub Copia(Target)
Sh = Target.getSpreadsheet()
oCell() = Split(Target.AbsoluteName, ".")
oCellTarget = oCell(1)
If oCellTarget = "$A$1" Then                                    ' MODIFICA
   Num= Target.Value
   For i = 0 To 11
     If Sh.GetCellByPosition(1, i).Value = Num Then
        Riga = i + 1
        document   = ThisComponent.CurrentController.Frame
        dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
  		dim args1(0) as new com.sun.star.beans.PropertyValue
    	args1(0).Name = "ToPoint"
        args1(0).Value = "$B$" & Riga & ":$D$" & Riga
        dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
        dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())
        exit sub
      end if  
   Next 
   

End If 

End Sub

[Nando69]

Va bene,grazie mille. Ho aperto un nuovo argomento perchè il consiglio di Charlie è sempre quello di separare i temi non accavallando troppo tematiche simili nello stesso Topic