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