Cómo Filtrar meses desde datos tipo fechas en vb excel?
Tengo en la columna "G" un listado de fechas con este formato "10/03/1999" necesito crear un código que me pregunte que mes deseo extraer, y me coloque todos los registros que cumplen con ese criterio en otra hoja de calculo. No se cómo ascender dentro de este formato para sacar los meses.
1 Respuesta
Respuesta de Elsa Matilde
1
En respuesta anterior te ofrecí como alternativa el uso de filtros. El proceso es más ágil si la tabla es extensa pero requiere de una col auxiliar.
Aquí te adjunto una macro que recorrerá la tabla y a igual mes pasará a otra hoja el registro completo.
Sub paseSegunMes()
'x Elsamatilde
mesi = Val(InputBox("Ingrese mes a capturar"))
If mesi < 1 Or mesi > 12 Then MsgBox "No ha ingresado un mes válido.": Exit Sub
x = 2 '1er fila destino en hoja 2
Set desti = Sheets("Hoja2")
'se recorre la col G de hoja1 hasta encontrar celda vacía, fin de la tabla
[G2].Select
While ActiveCell <> ""
If Month(ActiveCell) = mesi Then
ActiveCell.EntireRow.Copy Destination:=desti.Range("A" & x)
x = x + 1
End If
'paso a fila siguiente para repetir el bucle
ActiveCell.Offset(1, 0).Select
Wend
'opcional
MsgBox "Fin del proceso de captura."
End Sub
