Excel Problema con macro

[Statix]

Ciao Anthony
ho un problema con la macro,
se il primo numero di una ruota,cioè il primo estratto è uguale al numero che cerco me lo salta.
mentre se stà al secondo me lo evidenzia con il colore.

Codice: Seleziona tutto

Sub Bari()
I = 4
On Error Resume Next
For Each Ambo In Range("S2:AA2")
Ambo.Offset(1, 0).Interior.ColorIndex = 4
Ambo.Interior.ColorIndex = 3
Range("D9:H250").Select
Selection.Find(What:=Ambo, After:=ActiveCell, LookIn:=xlValues, LookAt:=xlWhole, _
   SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate
AAA = ActiveCell.Address
If ActiveCell.Address <> "$D$9" Then
ActiveCell.Interior.ColorIndex = I
Ambo.Interior.ColorIndex = 2
End If
I = I + 1
Next Ambo


End Sub

[Statix]

Codice: Seleziona tutto

Sub Milano()


I = 4
On Error Resume Next
For Each Ambo In Range("S2:AA2")
Ambo.Offset(1, 0).Interior.ColorIndex = 4
Ambo.Interior.ColorIndex = 3
Range("X9:AB250").Select
Selection.Find(What:=Ambo, After:=ActiveCell, LookIn:=xlValues, LookAt:=xlWhole, _
   SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate
AAA = ActiveCell.Address
If ActiveCell.Address <> "$X$9" Then
ActiveCell.Interior.ColorIndex = I
Ambo.Interior.ColorIndex = 2
End If
I = I + 1
Next Ambo


End Sub

[Statix]

La ruota a Milano non intercetta il 21 che stà al primo estratto

[Statix]

Anthony se vedi la foto anche il 21 di Cagliari non viene intercettato,conclusione tutti i primi estratti uguali al numero Range S2 vengono saltati,la ricerca viene effettuatta dalla seconda riga in poi

[Anthony47]

Mi sembrava che il problema fosse gia' stato affrontato in un altro tuo thread; comunque:
-invece di selezionare D9:H250 devi selezionare D8:H250
-invece di If ActiveCell.Address <> "$D$9" Then userai If ActiveCell.Address <> "$D$8" Then

Ciao.

[Statix]

Ciao Anthony
anche cambiando i riferimenti ,il problema rimane.non cambia niente.
la prima riga D8:B8 deve essere esclusa dalla ricerca, per questi avevo messo D9:H150,e così per le altre ruote.
le macro delle ruote devono incominciare la ricerca dalla riga D9:H150
il problema è che se il numero da cercare esempio numero 23, e nelle estrazioni il 23 è come primo estratto delle ruote lo salta,
se invece è o in 2,3,4,5, va bene,per tutto il resto Ok.
.

[Anthony47]

anche cambiando i riferimenti ,il problema rimane.non cambia niente.

Ricorda che non basta cambiare i riferimenti (es D8:H250) ma devi anche cambiare l' istruzione If ActiveCell.Address <> etc etc.

la prima riga D8:B8 deve essere esclusa dalla ricerca, per questi avevo messo D9:H150,e così per le altre ruote.

Ma le celle su riga 8 sono occupate da qualcosa?

Ciao.

[Statix]

la modifica ai riferimenti a cui ti riferisci If ActiveCell.Address <> lo avevo già fatto.
la riga 8 contiene gli estratti delle 10 ruote,da cui prendo uno o piu estratti di una ruota associandoli al range S2:AA2
la ricerca di questo range S2:AA2 viene effettuata all'estrazione successiva cioe Riga 9 ,dove mi evidenzia in colore i numeri trovati,la cosa strana è che alcuni numeri li salta,specialmente quelli che sono i primi estratti della ruota,
come vedi dalla foto quelli in rosso li ha saltati,

[Anthony47]

Se la riga 8 e' occupata, cosa che non sembrava dalle immagini pubblicate, allora bisogna realizzare un trucco, perche' per definizione la prima cella sara' l' ultima a essere sondata.
Ho modificato la macro come segue:

Codice: Seleziona tutto

Sub Bari()
I = 4
On Error GoTo Skip
For Each Ambo In Range("S2:AA2")
Ambo.Offset(1, 0).Interior.ColorIndex = 4
Ambo.Interior.ColorIndex = 3
Range("D9:H250").Select
Selection.Find(What:=Ambo, After:=ActiveCell, LookIn:=xlValues, LookAt:=xlWhole, _
   SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False, SearchFormat:=False).Activate
Selection.Find(What:=Ambo, After:=ActiveCell, LookIn:=xlValues, LookAt:=xlWhole, _
   SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Interior.ColorIndex = I
Ambo.Interior.ColorIndex = 2
Skip:
I = I + 1
Next Ambo
End Sub

Fai sapere, ciao.

[Statix]

Ciao Anthony
ho provato la macro ,non va,trovata la prima occorrenza si blocca e mi da errore di runtime 91variabile oggetto o
variabile del blocco Whit non impostata.

[Statix]

Ciao Anthony
credo di aver risolto il tutto,utilizzando la vecchia macro senza modificarla,
inserendo una riga cuscinetto tutta a 0 e nascosta: Riga 8 e spostando la prima estrazione nella riga 7
vedi foto allegata

[Statix]

dimenticavo la cella in rosso ruota di bari lo evidenziata in quanto viene esclusa dalla ricerca

[Anthony47]

Sono contento che hai trovato un modo per aggirare l' errore, dovuto a una gestione molto elementare ("troppo" elementare, ovviamente) dei casi di errore, cioe' quando Find non trova il valore cercato.

Ciao.