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

 

[Autore]

Articoli