Cercare celle

Hai un problema con Excel?

Nuova discussione

Cercare celle
di Gugluca (utente non iscritto) data: 30/10/2009
Ciao a tutti..
ho un ciclo do..loop, col quale voglio cercare una ad una le celle nella colonna a, con uno specifico formato ("0.00;[red]0.00") e selezionarne una ad una col ciclo (c'è poi un altro loop che fa alcune operazioni..)
come posso cercare e selezionare le celle con quel formato?
grazie a tutti!
ciau!!

di Gugluca (utente non iscritto) data: 02/11/2009
Ho scritto un pò di codice (ma sono un principiante) e sicuramente c'è qualcosa che non torna..
con questa macro ho tentato di cercare il primo valore col primo find in colonna a..
poi con il loop e il nextfind ho provato a cercare il secondo, il terzo, ... valori in colonna a..
il problema è che non funziona..
secondo voi cosa sto sbagliando?
grazie ancora!!
ciau!

Public Sub cercasuccessivo()

Application.FindFormat.NumberFormat = "#,##0.00"

With Worksheets(1).Range("a1:a5000")

    Set c = .Find(what:="", after:=Cells(1, 1), LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , searchformat:=True)
        
    If Not c Is Nothing Then

        firstAddress = c.Address
        
        Do
           f = c.Address
           
           Call compilazionedelfoglioutenti

           Set c = .FindNext(c)
           
        Loop
  
     End If

End With

End Sub

di Gugluca (utente non iscritto) data: 02/11/2009
Ho risolto..
ora però non capisco come fare a collegare due macro, ovvero a far riferimento ad un'incognita contenuta in un'altra macro.. che istruzione devo utilizzare?

Public Sub cercasuccessivo()

Application.FindFormat.NumberFormat = "0.00"

With Worksheets(1).Range("a1:a500")
    Set c = Cells.Find(what:="", after:=Cells(1, 1), LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , searchformat:=True)


If Not c Is Nothing Then

        firstAddress = c.Address
        
        Do
        
           Set c = Cells.Find(what:="", after:=c, LookIn:=xlFormulas, LookAt:= _
                           xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
                           MatchCase:=False, searchformat:=True)
                
        Loop While c.Address <> firstAddress
        
    End If

End With

End Sub

Vuoi Approfondire?