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:

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

Discussioni simili
Discussione	Ha iniziato questa discussione	Forum	Risposte	Ultimo messaggio
Macro Excel che esegua una somma numeri nella stessa cella	PIPPO1	Informatica	3	07-26-2008 08:12 PM
Valutare una cella Excel se contiene caratteri consecutivi	Raffaello	Informatica	1	07-25-2008 01:33 AM
Riempendo con i colori le celle Excel, non compare il colore	djfulmine	Informatica	4	01-11-2008 09:44 PM
E possibile cambiare il colore o la cornice della cella attiva Excel?	ilaria	Informatica	6	10-19-2007 04:58 PM
Eliminare in una cella di Excel l'ultimo carattere se questo è una virgola	Battista	Informatica	2	10-17-2007 09:57 PM

Menu

Far selezionare ad Excel una cella vuota e senza colore