Attivando la macro sparisce la Formattazione Condizionale [Risolto]

[Nando69]

Salve. Mi succede una cosa strana e non capisco il motivo. Nel file allegato è inserita una formattazione condizionale che mi colora di giallo il numero 9 ogni volta che questo valore sortisce dalle varie estrazioni. Bene,adesso prelevo da un altro foglio l'aggiornamento delle suddette estrazioni e faccio un semplice copia manuale. A questo punto torno sul foglio principale (file allegato) e tramite una macro (abilitata come si può notare anche col pulsante
"Incolla"),premo il tasto,incollo le nuove estrazioni ma ecco il fatto : la Formattazione Condizionale misteriosamente sparisce (viene eliminata) per cui al fine di aggiornare correttamente il foglio sono costretto a fare un "Incolla" manuale. Qual'è la ragione e si può risolvere nel caso il problema ? Una buona serata

[Muset]

Ciao, rifai la macro con incolla solo TESTO e NUMERI

[Nando69]

Ciao. Non essendo un creatore di macro (magari) avevo semplicemente cercato una soluzione al mio scopo dopo che qualche utente aveva posto l'opportunitá di avere una rapida scorciatoia sul fattore "Incolla" senza fare questo in maniera manuale. Vorrei gentilmente chiederti perció cosa devo modificare nel testo codice macro del file allegato sul mio precedente paragrafo. Grazie

[lucky63]

.
Nuova macro da registratore.
.

Codice: Seleziona tutto

sub incolla
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "$H$1"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())

rem ----------------------------------------------------------------------
dim args2(5) as new com.sun.star.beans.PropertyValue
args2(0).Name = "Flags"
args2(0).Value = "SV"
args2(1).Name = "FormulaCommand"
args2(1).Value = 0
args2(2).Name = "SkipEmptyCells"
args2(2).Value = false
args2(3).Name = "Transpose"
args2(3).Value = false
args2(4).Name = "AsLink"
args2(4).Value = false
args2(5).Name = "MoveMode"
args2(5).Value = 4

dispatcher.executeDispatch(document, ".uno:InsertContents", "", 0, args2())

rem ----------------------------------------------------------------------
dim args3(0) as new com.sun.star.beans.PropertyValue
args3(0).Name = "ToPoint"
args3(0).Value = "$G$3"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args3())


end sub

Ora rispetta la formattazione condizionale.

Formattazione condizionale rifatta per range I3:I1000.
Riscontro numeri 9 in celle I5, M81, I115 e K138.
.

[Nando69]

Ciao,grazie mille