Cerca date

Hai un problema con Excel?

Nuova discussione

Cerca date
di Birba (utente non iscritto) data: 17/08/2010
Buongiorno
nel range (h2:q1000) ho inserito varie date.
in x1 ho la data odierna.
che istruzione macro occorre per colorare le celle del range che sono uguali alla cella x1.
la mia istruzione colora solo la prima data uguale , cosa devo fare perchè colori tutte le altre uguli del range ?
grazie

Sub dat()
Dim CL As Object
Dim X
Application.ScreenUpdating = False
X1 = Date
X = X1
For Each CL In Range("h2:q1000")
If CL = X Then
CL.Offset(0, 0).Select
Selection.Cells.Interior.ColorIndex = 7
CL.Offset(0, 0).Select
End
End If
Next
Application.CutCopyMode = False
End Sub

di Albatros54 (utente non iscritto) data: 17/08/2010
Prova cosi
albatros54
ciao

Sub dat()
Dim CL As Object
Dim X
Application.ScreenUpdating = False
X = Cells(1, 1) 'Date <=======da modificare
Set Rng = Range("b1:e10") '<=======da modificare
For Each CL In Rng 'Range("h2:q1000")
If CL = X Then
CL.Offset(0, 0).Select
Selection.Cells.Interior.ColorIndex = 7
End If
Next
Application.ScreenUpdating = True
End Sub

di Albatros54 (utente non iscritto) data: 17/08/2010
Prova cosi
albatros54
ciao

Sub dat()
Dim CL As Object
Dim X
Application.ScreenUpdating = False
X = Cells(1, 1) 'Date <=======da modificare
Set Rng = Range("b1:e10") '<=======da modificare
For Each CL In Rng 'Range("h2:q1000")
If CL = X Then
CL.Offset(0, 0).Select
Selection.Cells.Interior.ColorIndex = 7
End If
Next
Application.ScreenUpdating = True
End Sub

Cerca date
di Birba (utente non iscritto) data: 17/08/2010

grazie
albatros54
provo
Cerca date
di Birba (utente non iscritto) data: 17/08/2010
Grazie
albatros54
va tutto bene
ciao

Vuoi Approfondire?