ho cercato di realizzare la seguente macro:
- Codice: Seleziona tutto
Sub Cerca()
Conta = 0
For R = 4 To 23
If Cells(7, R).Value = 0 Then
Conta = Conta + 1
Cells(9, R).Value = Cells(6, R)
Else
If Conta > 10 Then
For I = 1 To Conta
Cells(9, 3 + I).Value = 0
Next
Conta = 0
End If
End If
Next
End Sub
ma non funziona a dovere.
Allego figura per vedere il foglio di ricerca dove, si evidenziano con un 1 i numeri ricercati del range G3:I3.
La macro dovrebbe contare gli zeri della riga 7, iniziando dalla colonna D, è evidenziare nella riga 9 tutti quei
numeri che anno nella cella superiore in riga 7 uno 0.
Deve scrivere le seguenze di numeri consecutivi come posizione, solo se la progressione non supera 10.
Spero nei due esempi postati di rendere chiaro il tutto.
Grazie a chi può aiutarmi.
Francesco