Errore Array

[BOLDOS75Partecipante BOLDOS75]

Buonasera, avrei questo problema che non riesco ha risolvere mi spiego:

nel file che allego, nella colonna B nella cella B4 quando ho (FALSA), in B7(BASSA), in B9(SINISTRA) inserisco esempio in D4 un valore o una lettera ecc. dopo invio la B4 e B9 lampeggiano e la B7 no.

Ma se io ho in B4 (VERA), B7(BASSA), B10(DESTRA)  oppure anche solo B7(BASSA) mi va in errore non capisco dov'è l'eerore.

Grazie per eventuale aiuto.

S.Op. MSOPP2021

Allegati:

You must be logged in to view attached files.

[BOLDOS75Partecipante BOLDOS75]

l'errore 

[Raffaele53Partecipante Raffaele53 Karma: 21 pts]

Da provare, se funziona mi devi spiegare queste luminarie
In alto sotto Option Explicit metti
Public w As Integer

Modifica la riga Set g(j) = Union(g(j), cell) aggiungendo >>> : w = j
Nell'altra modifica >>>For Each c In r(w) .... e piu sotto>>> With r(w)

[BOLDOS75Partecipante BOLDOS75]

Ho provato la soluzione proposta ma va  errore a questo passo ( For Each c In r(w): w = j)

Allegati:

You must be logged in to view attached files.

[Raffaele53Partecipante Raffaele53 Karma: 21 pts]

Hai sbagliato a scrivere>>> For Each c In r(w): w = j senza il >>> : w = j finale
Funziona, comunque cambia anche Set r = Range("B4:B10") in Set r = Range("B4,B7,B10")

Spiegando bene il problema, una persona cerca di risolverlo con i propri metodi.
Allegare un codice "tosto", ci sono poche possibilita di migliorarlo.
Ex: Nonostante ci sia >>> If cell.Text <> "" Then anche se trova una cella vuota lui prosegue senza segnalarlo.

[BOLDOS75Partecipante BOLDOS75]

Trovato la soluzione allego file corretto mi sembra tutto Ok e chiudo la discussione.

Grazie per la collaborazione

Allegati:

You must be logged in to view attached files.

[Autore]

Articoli