If Not Intersect….

[mandozPartecipante mandoz]

Ciao a tutti,

in allegato file esempio di problema che ho in piu fogli.

ho modificato un codice di   @Scossa    If Not Intersect(Target, Range("D4:AH15")) Is Nothing Then

con    If Not Intersect(Target, Range("D4:AH15", "AI16:AI18"), Y20) Is Nothing Then.

ho avuto necessità di ampliare in range - cosa che funziona. mi sono accorto che in realtà il codice lavora su tutto il foglio, non solo sul range specificato. questo causa tempi di calcolo enormi. è possibile fare in modo che il codice lavori solo nel range in esame.

per spiegarmi meglio.... aprite il file, senza abilitare il codice, in una cella fuori dal range, scrivete 5 enter e poi 3 enter, noterete un comportamento normale. abilitando in codice il risulatto della cella sarà 8 - corretto - è il lavoro che si chiede al codice

uso 365

grazie

Allegati:

You must be logged in to view attached files.

[Marius44Moderatore Marius44 Karma: 58 pts]

Ciao

Se ho capito cosa vuoi fare prova così

If Not Intersect(Target, Range("D4:AH15,AI16:AI18, Y20") Is Nothing Then

Ciao,

Mario

[alexps81Moderatore alexps81 Karma: 58 pts]

Ciao, ho spostato la discussione nella sezione corretta. Aggiungo inoltre che mancherebbe una parentesi tonda finale:

If Not Intersect(Target, Range("D4:AH15, AI16:AI18, Y20")) Is Nothing Then

[mandozPartecipante mandoz]

grande Marius, hai risolto - grazie

grazie alexps81, me ne sono accorto

[Marius44Moderatore Marius44 Karma: 58 pts]

Ciao

Mi scuso per la svista. Son contento che tu abbia risolto.

Ciao,

Mario

[mandozPartecipante mandoz]

Non scherzare Marius, di cosa dovresti scusarti?

Sei tu che hai risolto - io, come sempre, chiedo aiuto.

E' bellissimo sapere che c'è sempre qualcuno in ascolto. Complimenti a tutti  

[Autore]

Articoli