PDA

Visualizza la versione completa : Far selezionare ad Excel una cella vuota e senza colore


marco
08-01-2009, 01:55 PM
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

marco
08-18-2009, 11:53 PM
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:

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