A veces podría ser útil hallar el rango de celdas usadas en una columna (Formulas y constantes).
-Celdas con formulas
-Celdas con valores constantes
-Celdas con valores constantes
-Celdas con fórmulas -> Rango (Celdas). SpecialCells(xlCellTypeFormulas)
-Celdas con valores constantes-> Rango (Celdas). SpecialCells(xlCellTypeConstants)
-Celdas con valores constantes-> Rango (Celdas). SpecialCells(xlCellTypeConstants)
Sub RangoTest
Dim rng as range,rng1 as range
Set rng = Columns(5)
Dim rng as range,rng1 as range
Set rng = Columns(5)
'Selecting data and formulas…
‘identificamos el rango de constants y lo unimos con el rango de fórmulas x)
Set rng1 = Union(rng.SpecialCells(xlCellTypeConstants), _
rng.SpecialCells(xlCellTypeFormulas))
‘Mostramos el mensaje con las celdas que buscábamos
Msgbox rng1.address
‘identificamos el rango de constants y lo unimos con el rango de fórmulas x)
Set rng1 = Union(rng.SpecialCells(xlCellTypeConstants), _
rng.SpecialCells(xlCellTypeFormulas))
‘Mostramos el mensaje con las celdas que buscábamos
Msgbox rng1.address
End Sub
