Seleccionar celdas de abajo hacia arriba con macro
tengo esta tabla que es el resultado de un filtro hecho por el siguiente código
Sub Filtro()
For Each sh In Sheets
sh.Select
ActiveSheet.Range("j:j").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="Cuenta *"
Next sh
MsgBox "fin del proceso."
End Sub
J K L
1 FAMILIA PNETO
2 Cuenta ANR 0
3 Cuenta CLT 0
4 Cuenta ABR 0
5 Cuenta general 0
lo que necesito es buscar en la columna j el campo de cuenta general y seleccionar todas las casillas hasta antes de familia, junto con las columnas K y L
nota* los resultados del filtro son variables pueden ser 2 o 100 depende
1 Respuesta
Te mando mi solución, Después del filtrado ejecuta este código:
Sub selecciona()
dato = "cuenta general"
Set busca = ActiveSheet.Columns("j:j").Find(dato, LookIn:=xlValues, lookat:=xlWhole)
If Not busca Is Nothing Then
busca.Select
Range(ActiveCell, ActiveCell.End(xlUp).Offset(1, 2)).Select
End If
End Subno olvides finalizar la consulta
