Anónimo
Filtrar y resaltar fechas en excel
La cuestión es que me ayudaste a filtrar fechas en 4 columnas, ahora la idea seria, el la hoja dos donde quedan guardadas que se resalte la fecha que ha encontrado. Con un ejemplo es mas fácil, tenemos 4 proyectos, ponemos fecha de abril en la hoja 1,
Entonces en la hoja 2 se pegan las filas donde aparecen las fechas de abril, me gustaría que la primera fecha que se encuentra, cuando se busca por columnas, quedara resaltada como sale en la imagen que adjunto
Feliz año nuevo.
1 Respuesta
Respuesta de Dante Amor
2
H o l a:
Te anexo la macro actualizada
Sub FiltrarFecha()
'Por.Dante Amor
Set h1 = Sheets("Hoja1")
Set h2 = Sheets("Hoja2")
h2.Cells.Clear
u = h1.Range("B" & Rows.Count).End(xlUp).Row
j = 2
fecini = DateSerial(Year([A1]), Month([A1]), 1)
udia = Day(DateSerial(Year([A1]), Month([A1]) + 1, 1) - 1)
fecfin = DateSerial(Year([A1]), Month([A1]), udia)
For i = 2 To u
If h1.Cells(i, "B") >= fecini And h1.Cells(i, "B") <= fecfin Or _
h1.Cells(i, "C") >= fecini And h1.Cells(i, "C") <= fecfin Or _
h1.Cells(i, "D") >= fecini And h1.Cells(i, "D") <= fecfin Or _
h1.Cells(i, "E") >= fecini And h1.Cells(i, "E") <= fecfin Then
h1.Rows(i).Copy h2.Rows(j)
If h1.Cells(i, "B") >= fecini And h1.Cells(i, "B") <= fecfin Then
h2.Cells(j, "B").Interior.ColorIndex = 6
End If
If h1.Cells(i, "C") >= fecini And h1.Cells(i, "C") <= fecfin Then
h2.Cells(j, "C").Interior.ColorIndex = 6
End If
If h1.Cells(i, "D") >= fecini And h1.Cells(i, "D") <= fecfin Then
h2.Cells(j, "D").Interior.ColorIndex = 6
End If
If h1.Cells(i, "E") >= fecini And h1.Cells(i, "E") <= fecfin Then
h2.Cells(j, "E").Interior.ColorIndex = 6
End If
j = j + 1
End If
Next
MsgBox "Filtro terminado"
End Sub