Aumentar rango de filtro en hoja excel
Como puedo aumentar el rango de un filtro en una hoja excel dependiendo de valores de una columna
2 respuestas
Respuesta de Elsa Matilde
1
Ya tenés el libro con las macros. Solo te dejo este código, que fue el que te mostré en la 2da imagen, por si algún día quieras realizar el proceso por título de filas.
Private Sub Worksheet_Change(ByVal Target As Range)
'x Elsamatilde
'solo se controla el rango F2, H2, J2
If Intersect(Target, Range("F2, H2, J2")) Is Nothing Then Exit Sub
'si se borra(n) la(s) celda(s) no se ejecuta
If Target.Count > 1 Or Target.Value = "" Then Exit Sub
ini = 17 'col Q
fini = Range("IV1").End(xlToLeft).Column 'col final
nroFila = Target.Offset(-1, 0) 'guarda el título para buscar ese mismo texto en la tabla
x = ini
While x <= fini
'como las col no están a la misma distancia entre ellas, se evalúa el texto
If InStr(1, Cells(1, x), nroFila) > 0 Then
dato = Target.Value: Call marcandoCol(x, dato)
End If
x = x + 1
Wend
End SubLa subrutina que se encuentra en la misma hoja no cambia, será la misma para los 2 casos.
Sdos.
Elsa
http://aplicaexcel.com
