macro con celle unite

[frank_ciccioPartecipante frank_ciccio Karma: 3 pts]

Ciao a tutti,

sto cercado di modificare un workbook ereditato in ufficio.

Nel workbook allegato prova_A se scrive nella colonna F in ultima o punultima riga

aggiorn. PENSIONE/POSTEPAY

automaticamente le macro in modulo1/2 eliminano questo testo/riga.

Per provare questo testo deve essere inserito manualmente, nel workbook originale questo testo

viene inserito da altri fogli quando vengono aggiornati.

Ora ho aggiunto 2 colonne I/J e le colonne F/G/H sono unite vedi workbook prova_2

Purtroppo questo workbook prova_2 non funziona e dà errore qui

Intersect(Rows(R1), Range("E:F,J:J")).ClearContents

in modulo1/2  penso per problemi di celle unite

Spero di essermi spiegato.

Grazie

Allegati:

You must be logged in to view attached files.

[Raffaele53Partecipante Raffaele53 Karma: 24 pts]

Non ho capito se devi cancellare la colonna I, comunque una riga
Intersect(Rows(R2), Range("E:J")) = ""
Oppure due righe
Intersect(Rows(R2), Range("E:H")) = ""
Intersect(Rows(R2), Range("J")) = ""

[frank_ciccioPartecipante frank_ciccio Karma: 3 pts]

Grazie Raffaele, ora vedo di adattare alle mie macro.

[frank_ciccioPartecipante frank_ciccio Karma: 3 pts]

Ciao,

ho provato le modifiche di raffaele

Intersect(Rows(R1), Range("E:H")) = ""
Intersect(Rows(R1), Range("J")) = ""

ma danno errore:

errore 1004
motodo range dell'oggetto global non riuscito

qui:

Intersect(Rows(R1), Range("E:H")) = ""
Intersect(Rows(R1), Range("J")) = "" '<<<<<<<<<<<<<<<

Ho risolto così:

Intersect(Rows(R1), Range("E:E,F:H,J:J")).ClearContents

non so se è corretto, ma vedo che funziona.

Grazie comunque

 

[alexps81Moderatore alexps81 Karma: 58 pts]

Ciò che stai cercando di ottenere mi lascia un po' perplesso. L'evento che stai utilizzando (SelectionChange) si scatena ogni volta che ti sposti da una cella all'altra. Sei sicuro che sia la scelta corretta???

Per ciò che hai fatto finora...ogni volta che ti sposti e all'ultima riga in "F" è presente la scritta: "aggiorn. PENSIONE/POSTEPAY",  l'evento si scatena 3 volte.

All'inizio del post hai scritto:

frank_ciccio ha scritto:

nel workbook originale questo testo

viene inserito da altri fogli quando vengono aggiornati.

Già mi immagino quante volte verrà invocata la macro.

Sarebbe interessante capire come funziona il tuo progetto, in modo da studiare una strategia migliore ma ho paura che ci infiliamo in un ginepraio.

[Raffaele53Partecipante Raffaele53 Karma: 24 pts]

@alexps81
Invece d' eliminare i post, devi bannare gli utenti (almeno gli crei fastidio, @julius è già il terzo post del genere che apre)

@frank_ciccio
Oltre a quanto detto da @alexps81, calcoli l'ultima riga e dopo avvii la macro che ricalcola l'ultima riga? Esistono le variabili Public
Mà il vero problema che cancellando la riga (oltre alle 1500 da scrivere) richiami nuovamente il SelectionChange.
In SelectionChange devi usare il Application.EnableEvents = False ed Application.EnableEvents = True

 

[alexps81Moderatore alexps81 Karma: 58 pts]

Raffaele53 ha scritto:

Invece d' eliminare i post

Ciao @raffaele53

non so di cosa parli. Forse intendi "modificare" i miei post. 

Raffaele53 ha scritto:

devi bannare gli utenti

Io so che solo admin può farlo. Almeno così mi dissero quando chiesi lumi ad altri moderatori.  

[Raffaele53Partecipante Raffaele53 Karma: 24 pts]

Stavo parlando degli autori di post simili

'https://www.excelvba.it/forumexcel/forums/discussione/girls-from-your-town-no-selfie-anonymous-casual-dating-2/

[Autore]

Articoli