Scuola forum (scuo.la) - Forum di discussione per le scuole - Far selezionare ad Excel una cella vuota e senza colore

- Informatica (https://www.scuolaforum.org/informatica/)

- - Far selezionare ad Excel una cella vuota e senza colore (https://www.scuolaforum.org/informatica/1765-far-selezionare-ad-excel-una-cella-vuota-e-senza-colore.html)

Far selezionare ad Excel una cella vuota e senza colore

Ciao ragazzi,
ho un problema con il mio Excel 2007 di cui non trovo soluzione apparente: forse è un bug?
Passo all'esempio.
Creo un nuovo foglio di lavoro, nella cella A1 inserisco una parola a caso e nelle celle A1:A2 vi aggiungo anche un colore di riempimento come sfondo.
Poi prendo queste 2 celle e le copio in A4:A5.
Ora, se io seleziono la colonna, clicco su trova e lascio la casella di ricerca vuota, lui mi trova la casella A2, poi se clicco ancora la A3, la A5 ecc.
Io però devo fare in modo che mi selezioni direttamente la cella A3, quindi quando vado in trova, clicco su formato, riempimento e metto nessun colore.
Poi ri-seleziono la colonna, clicco su trova e magicamente mi compare un messaggio che mi dice che è impossibile trovare i dati cercati.
Perché? E come fargli individuare questa cella allora?
Grazie

Un grazie a Mauro e Eliano di microsoft.public.it.office.excel che mi hanno aiutato a trovare la soluzione, che per completezza riporto qui sotto:

codice:

Public Sub m()

On Error GoTo RigaErrore

    Dim sh As Worksheet

    Dim lRiga As Long

    Set sh = Worksheets("Foglio1")

    With sh

      For lRiga = 1 To .Rows.Count



  If .Cells(lRiga, 1).Interior.ColorIndex = _

  xlNone And .Cells(lRiga, 1).Value = "" Then



 Cells(lRiga, 1).Select



 Exit Sub

 End If

   Next

 End With

RigaChiusura:

    Set sh = Nothing

    Exit Sub

RigaErrore:

    MsgBox Err.Number & vbNewLine & Err.Description

    Resume RigaChiusura

End Sub