Pagina precedente | 1 | Pagina successiva
Vota | Stampa | Notifica email    
Autore

macro cancella contenuto, al change di valore in cella

Ultimo Aggiornamento: 05/07/2018 18:47
Post: 89
Registrato il: 06/07/2016
Città: BOLZANO
Età: 31
Utente Junior
2010
OFFLINE
04/07/2018 14:58

ciao. a tutti


se qualcuno può aiutarmi mi servirebbe volentieri una macro che se dovessi modificare un valore in qualsiasi cella contenuta nello sfondo arancio cancelli il contenuto di quella precedente
esempio :
se cambio il valore della cella f38 la macro cancella il valore contenuto nella f37 e faccia la stessa cosa cancellando il valore contenuto nella cella f36 se dovessi modificare il valore contenuto
nella cella f37 ...e così via per tutte le altre celle col sfondo ( range ) arancio


grazie :-))))

Saluti Marilena
[Modificato da Mary-92 04/07/2018 15:57]
Post: 3.586
Registrato il: 28/06/2011
Città: AGORDO
Età: 70
Utente Master
2013
OFFLINE
04/07/2018 15:47

Ciao, sai che scrivere in maiuscolo (significa urlare)
Poi rivedi le domande del Tuo post?
Excel 2013
Post: 89
Registrato il: 06/07/2016
Città: BOLZANO
Età: 31
Utente Junior
2010
OFFLINE
04/07/2018 15:58

scusate [SM=x423063]
Post: 3.818
Registrato il: 21/06/2013
Città: NAPOLI
Età: 70
Utente Master
Excel 365
OFFLINE
04/07/2018 16:12

Io la butto lì

Prova con questa macro da inserire nel modulo del foglio1

vb
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Interior.ColorIndex = 45 Then
Application.EnableEvents = False
Target.Offset(-1, 0).ClearContents
Application.EnableEvents = True
End If
End Sub


Però non posso assicurarti che non si verifichino comportamenti indesiderati/non previsti.
[Modificato da alfrimpa 04/07/2018 16:13]

Alfredo
Post: 90
Registrato il: 06/07/2016
Città: BOLZANO
Età: 31
Utente Junior
2010
OFFLINE
04/07/2018 20:37

Grazie Alfredo di averci provato ......ma non funziona :-(

Saluti Marilena
Post: 3.819
Registrato il: 21/06/2013
Città: NAPOLI
Età: 70
Utente Master
Excel 365
OFFLINE
04/07/2018 20:55

Per funzionare funziona.

Forse non funziona come vuoi tu e in questo caso devi spiegare meglio.

La macro non fa altro che, se la cella è arancione, cancella il contenuto di quella immediatamente sovrastante.

Dire "non funziona" non serve a nulla; bisogna dire perché non funziona.

Alfredo
Post: 1.640
Registrato il: 10/10/2013
Città: VICENZA
Età: 69
Utente Veteran
365
OFFLINE
05/07/2018 08:29

Ciao

immagino sia


Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("F16:F45,I16:I45,L16:L45")) Is Nothing Then
Application.EnableEvents = False
Target.Offset(-1, 0).ClearContents
Application.EnableEvents = True
End If
End Sub



ho l'impressione che il colore non centri
Post: 3.820
Registrato il: 21/06/2013
Città: NAPOLI
Età: 70
Utente Master
Excel 365
OFFLINE
05/07/2018 08:37

Gianfranco io ero partito dalla richiesta iniziale in cui si parlava di celle arancioni.

In ogni caso correggere il codice era molto semplice.

Alfredo
Post: 1.641
Registrato il: 10/10/2013
Città: VICENZA
Età: 69
Utente Veteran
365
OFFLINE
05/07/2018 08:44

ciao Al

quando ho visto scritto non funziona
e letto

sfondo ( range ) arancio
ho subito pensato che nell'originale non fossero
colorate di arancio.
nel file inviato deve funzionare per forza
visto che non è frutto
di una formattazione condizionale.

boh!

la tua macro comunque è perfetta
Post: 3.073
Registrato il: 03/04/2013
Utente Master
Excel 2000 - 2013
OFFLINE
05/07/2018 09:41

Buona giornata a Tutti.

Ovviamente il Codice VBA funziona; mi sorge il sospetto che @Mary-92, che saluto, abbia inserito il Codice in un Modulo mentre andava inserito in:
-    Microsoft Excel Oggetti

Con l'auspicio di fare cosa gradita, allego l'immagine eslicativa di quanto sopra esposto.



A disposizione.

Giuseppe

Windows XP - Excel 2000
Windows 10 - Excel 2013
Post: 91
Registrato il: 06/07/2016
Città: BOLZANO
Età: 31
Utente Junior
2010
OFFLINE
05/07/2018 18:47

Ciao,grazie a tutti per l'aiuto e le soluzioni

non so cosa dirvi , penso che il colore arancio del file non veniva riconosciuto dal vba e così ho provato a sotituirlo col nero e messo il N° 1 in vba, e in effetti..... funziona !, perciò mi scuso con Alfredo . Comunque come dal pensiero di Federico il colore di sfondo l`avevo messo solo come esempio per evidenziare il range

grazie di nuovo a tutti per il prezioso aiuto

saluti
Marilena

[SM=x423063]
Vota:
Amministra Discussione: | Chiudi | Sposta | Cancella | Modifica | Notifica email Pagina precedente | 1 | Pagina successiva
Nuova Discussione
 | 
Rispondi
Cerca nel forum
Tag discussione
Discussioni Simili   [vedi tutte]
Feed | Forum | Bacheca | Album | Utenti | Cerca | Login | Registrati | Amministra
Tutti gli orari sono GMT+01:00. Adesso sono le 14:11. Versione: Stampabile | Mobile | Regolamento | Privacy
FreeForumZone [v.6.1] - Copyright © 2000-2024 FFZ srl - www.freeforumzone.com