Filtro con macros
Hola.
Antes que nada agradezco el tiempo dedicado a este mensaje.
El otro día viendo los respuestas de esta página vi un caso de una macro para filtro. Este fue el caso
hola, agradezco me ayuden ya que tengo en una hoja de excel con la siguiente una base de datos
A9= fecha
B9 = nombre
C9= cedula
D9= of
Y deseo realizar con una macro que al momento de yo ingresar un nombre en la celda D5 coloque un filtro en las celdas A9:D9 y filtre según la columna B9 si es igual al dato ingresado en D5
Y tu respuesta fue la siguiente
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("d2") <> "" And Range("e1") > 0 Then
Range("A1:D1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=4, Criteria1:=Range("d2").Value
Range("e1").ClearContents
End If
End Sub
El favor que te pido es que sio me podrías decir como se hacerle, es que no se nada de macros, o ya pidiendo mucho si me pudieras mandar a mi correo un archivo con este caso. Mi mail es [email protected]
Gracias
Antes que nada agradezco el tiempo dedicado a este mensaje.
El otro día viendo los respuestas de esta página vi un caso de una macro para filtro. Este fue el caso
hola, agradezco me ayuden ya que tengo en una hoja de excel con la siguiente una base de datos
A9= fecha
B9 = nombre
C9= cedula
D9= of
Y deseo realizar con una macro que al momento de yo ingresar un nombre en la celda D5 coloque un filtro en las celdas A9:D9 y filtre según la columna B9 si es igual al dato ingresado en D5
Y tu respuesta fue la siguiente
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("d2") <> "" And Range("e1") > 0 Then
Range("A1:D1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=4, Criteria1:=Range("d2").Value
Range("e1").ClearContents
End If
End Sub
El favor que te pido es que sio me podrías decir como se hacerle, es que no se nada de macros, o ya pidiendo mucho si me pudieras mandar a mi correo un archivo con este caso. Mi mail es [email protected]
Gracias
1 respuesta
Respuesta
1
Explicación:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
1-En esta parte indico que el cambio lo haga en la hoja seleccionada o la hoja activa
If Range("d2") <> "" And Range("e1") > 0 Then
2-Aquí indico que si la celda d2 esta vacía o la celda e1 contiene datos realice elproceso siguiente.
Range("A1:D1").Select
3-Aquí indico que seleccione el rango de la celda a1 a la d1
Selection. AutoFilter
4-Aquí indico que en la seldas que seleccione anteriormente aplique un autofiltro.
Selection.AutoFilter Field:=4, Criteria1:=Range("d2").Value
5-Aquí indico que en la columna numero 4 a partir demi selección es decir a1 a d1 en este caso sera la columna de, seleccione el criterio delautofiltro que contenga la celda d2
Range("e1"). ClearContents
6-Aqui le indico que valla y me borre el dato que hay en la e1 para desactivar el codigo automatico.
End If
7-aqui finalizo la condicion If
End Sub
8-Y por ultimo finalizo la instrucción o macro.
Te recomiendo visitar mi página
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
1-En esta parte indico que el cambio lo haga en la hoja seleccionada o la hoja activa
If Range("d2") <> "" And Range("e1") > 0 Then
2-Aquí indico que si la celda d2 esta vacía o la celda e1 contiene datos realice elproceso siguiente.
Range("A1:D1").Select
3-Aquí indico que seleccione el rango de la celda a1 a la d1
Selection. AutoFilter
4-Aquí indico que en la seldas que seleccione anteriormente aplique un autofiltro.
Selection.AutoFilter Field:=4, Criteria1:=Range("d2").Value
5-Aquí indico que en la columna numero 4 a partir demi selección es decir a1 a d1 en este caso sera la columna de, seleccione el criterio delautofiltro que contenga la celda d2
Range("e1"). ClearContents
6-Aqui le indico que valla y me borre el dato que hay en la e1 para desactivar el codigo automatico.
End If
7-aqui finalizo la condicion If
End Sub
8-Y por ultimo finalizo la instrucción o macro.
Te recomiendo visitar mi página