Ciao Lucky,grazie mille. Una buona serata

Buongiorno. Ho notato che il tema "Lotto" ogni tanto torna a comparire sui vari temi del Forum. A questo riguardo circa 1 anno e mezzo fa,esattamente in data 3 aprile 2023 avevo postato un Topic : https://forum.openoffice.org/it/forum/viewtopic.php?t=12087 che aveva a che fare con le diver...

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

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 m...

Ciao. Riusciresti a crearmi un codice per favore?

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",c...

Grazie,buona giornata. Metto [Risolto]

La questione non era quella di colorare con un altra...tinta le celle che non voglio eliminare al fine di ottenere il risultato voluto. Mi serviva una variante in cui non vi fosse PROPRIO ALCUN COLORE DI NESSUN TIPO anche per quel che riguarda le celle che non voglio cancellare. Comunque grazie mill...

Ciao Luigi,funziona perfettamente,grazie. Mi potresti gentilmente modificare il codice senza che nel foglio sia presente il colore per le celle da mantenere ? Eliminare cioè sempre il range A94-F223 e lasciando operative gli stessi intervalli di prima : da A110 ad A114,da A139 ad A143,da A168 ad A17...

Salve a tutti. Devo riprendere un tema postato il 30 luglio scorso perchè mi servirebbe una piccola variante al riguardo. Con riferimento al file allegato,dal tabulato presente nel foglio e semplificato per l'occasione,vorrei eliminare tramite una macro il range A94-F223 ma lasciando operative (quin...

Va bene,grazie mille Giò,funziona. Ci fossero altre tematiche legate a questo argomento aprirò eventualmente un nuovo topic

Grazie,ora provo il tutto

Ciao. In colonna L dove rimarrebbero le celle vuote,al posto di #NUM! sarebbe possibile lasciarle senza alcuna scritta ?

Salve a tutti. Dovrei riprendere per certi versi un tema postato molto tempo fa perchè mi occorrerebbe una variante alla formula che il bravissimo Giò aveva risolto in maniera eccellente. Come da file 1 si trattava in pratica di aggregare in maniera compatta i valori che andavano dalla riga 3 alla r...

Perfetto,grazie mille

Ciao di nuovo Patel (e ovviamente a tutti gli altri utenti). Scusa,ho cancellato l'ultimo messaggio di ringraziamento e contestualmente non ho ancora messo "Risolto" perchè volevo chiederti ancora un piccolo favore se possibile. Vale a dire quale modifica occorre apportare se dovesse capit...

Ok,provo

Voglio solo cancellare i valori numerici. Il salto delle righe può variare. In quest'occasione l'ho fatto in modo lineare. Quella con i numeri potrebbe anche essere ogni 6 o 7 righe

Salve. Mi riferivo all'intervallo di celle dentro al foglio da A1 fino ad H25. Mi sembrava abbastanza scontato del resto

Salve a tutti. Il tema può apparire forse insolito ma al tempo stesso interessante. Prendendo spunto dal file allegato vorrei giusto capire se all'interno della griglia (semplificata nell'occasione per rendere più chiaro l'argomento),esiste un modo per eliminare i valori numerici in UN COLPO SOLO (l...

2 fogli e la macro funziona sul 1°

Ok,adesso funziona. Ho 2 fogli. Ho riprovato con la tua precedente (penultima) macro e adesso funziona tutto. Grazie mille e scusami ancora per tutto il fastidio che ti ho dato....

Questa è la 1a macro di questo topic che mi hai mandato,solo range A10-S13 e funziona perfettamente Sub Main Dim Sh As Object Dim LastRow As Long Doc = ThisComponent Sh = Doc.Sheets.GetByName("Foglio1") c = Sh.createCursor c.gotoEndOfUsedArea(false) LastRow = c.RangeAddress.EndRow Dim Dic ...

Ok,ho fatto come hai detto,mi dà questo errore. Chiudo il topic perchè sono una testa di c...o,in quanto non riesco a capire bene le cose. Scusami tantissimo,non volevo recarti tuto questo distrubo,credimi. Buona serata

Ho seguito scrupolosamente tutte le tue istruzioni aggiungendo la parte dove c'è quicksort2. Ecco la macro integrale qui sotto. Ho salvato,attivato la macro e mi dà questo errore. Probabilmente sono io che oggi sono fulminato,scusami davvero.... Sub Search_Number() Dim mySearch As Object, myResult A...

Ciao. Ho fatto il copia e incolla integrale della tua ultima macro. Mi dà questo errore

Ma con una macro non si può ovviare al problema ?

Ho sostituito : For i=0 To 18 Step 3 thisComponent.sheets(0).Getcellrangebyposition(i,16,i+1,19).ClearContents(1) oRange= thisComponent.sheets(0).Getcellrangebyposition(i,0,i,12) con : For i=0 To 12 Step 3 thisComponent.sheets(0).Getcellrangebyposition(i,16,i+1,19).ClearContents(1) oRange= thisCompo...

Ciao Andrea. Grazie. Se volessi includere nel calcolo anche il range A1:S6,cosa occorre fare per favore ?

Salve a tutti. Devo ancora una volta rispolverare un problema che qualche tempo fa il gentilissimo Gaetanopr risolse tramite un apposita macro. In questo caso occorrerebbe modificare qualcosa all'interno del codice perchè il quesito si discosta leggermente dal tema precedente. Come da file allegato ...