Macro cancella celle

[Mistupisci]

Ciao a tutti,
sono di nuovo qua a chiedere consulenza:

avrei bisogno di creare una macro di Calc che dato il valore di una cella, vada ad eliminare una cella in un'altra riga.

Ad esempio:

se la cella A1=0 allora elimina il contenuto della cella b2

Grazie.

[Gaetanopr]

Prova a rileggerti, secondo te sei stato chiaro?
A parte il fatto che A7 si trova sulla riga 7 e non 1.
Qual'è il criterio di riferimento per cancellare la cella A2?

[Mistupisci]

Opss...non pensavo di aver pubblicato...scusate, comunque ho modificato e spero sia più chiaro.
La cella B2 dovrebbe essere svuotata se A1=0

[patel]

vale la pena fare una macro per una cosa del genere ? è un esercizio ? altrimenti spiega meglio a cosa ti serve.

[Mistupisci]

Ho due file di calc di inventario, chiamiamoli IERI e OGGI
Il file IERI è l'inventario di ieri, con descrizione, foto, quantità, prezzo.....(ognuna per una colonna)
Il file OGGI è l'inventario di oggi ovviamente con quantità di verse, prodotti nuovi (righe nuove) e prodotti che non ci sono più (righe mancanti)
Per avere una situazione dettagliata, oltre che aggiornata, pongo le quantità di IERI = 0, metto insieme i 2 file e li ordino per prodotto e quantità, in tal modo avrò modo di vedere se il prodotto è ancora a listino ma con quantità diverse, o se è stato tolto (cioè se nel file OGGI non c'è più), e se ci sono prodotti nuovi.
A questo punto se il prodotto in listino OGGI era già presente IERI, avrei bisogno di togliere solo alcune informazioni che ho già, come descrizione, foto....
E' una cosa un po' ingarbugliata....

partendo da qui:

NOME PRODOTTO |FOTO|DESCRIZIONE|QUANTITà|PREZZO
prodotto A______|foto__|descrizione_|___0_____|100
prodotto A______|foto__|descrizione_|___9_____|100

vorrei ottenere:

NOME PRODOTTO |FOTO|DESCRIZIONE|QUANTITà|PREZZO
prodotto A______|foto__|descrizione_|___0_____|100
prodotto A______|_____ |descrizione_|___9_____|100

[patel]

la macro che chiedi è:

Codice: Seleziona tutto

Sub cancella                                                 
  Doc = ThisComponent
  Sheet=Doc.Sheets(0)
  if  Sheet.getCellRangeByName("A1").value = 0 then  Sheet.getCellRangeByName("B2").string = ""
end sub

ma non credo che risolva il tuo problema. allega un piccolo file ods di esempio con i dati ed il risultato desiderato