Diferencia entre revisiones de «Seleccionar o referenciar celdas de Excel mediante VBA»
Contenido eliminado Contenido añadido
Sin resumen de edición |
Sin resumen de edición |
||
Línea 185:
'Hacer referencia a la ultima columna sin datos
'Selecciona la última sin datos independientemente si existen celdas vacias en medio, es decir ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Select Selection.End(xlToLeft).Offset(1, 0).Select
'Hacer referencia a las siguientes filas de un rango con filtros
'Selecciona un columna con datos a partir de los datos, sin cabeceras
Dim Rango as Range, i as Long, cell as Range
With ActiveSheet
Set Rango = .Range("A2", .Range("A2").End(xlDown)).SpecialCells(xlCellTypeVisible)
End With
For Each cell In Rango
i = cell.Row
'Aqui colocar lo necesario
Next
ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Select Selection.End(xlToLeft).Offset(1, 0).Select
--[[Usuario:Marcrodos|Marcrodos]] ([[Usuario discusión:Marcrodos|discusión]]) 04:40 7 nov 2013 (UTC)
| |||