Selección de un rango de celdas en código VB
Necesito con urgencia saber cómo puedo escribir en código VB la selección de un rango de celdas a partir de una posición "ActiveCell.Offset(1,0).Select" que es el resultado de una fórmula.
1 Respuesta
Respuesta de tavopz
1
Si el siguiente código te sirve para lo que dices, quizás tengas que hacerle cambios, pero creo que la idea es la misma:
========
Sub SelectRangeX()
Dim x As Integer
Dim y As String
x = InputBox("Cuantas celdas?")
For z = 1 To x
If z = 1 Then
y = ActiveCell.Address
ActiveCell.Offset(1, 0).Range("A1").Select
Else
y = y & "," & ActiveCell.Address
ActiveCell.Offset(1, 0).Range("A1").Select
End If
Next z
Range(y).Select
End Sub
==========
Si no te sirve, házmelo saber.
========
Sub SelectRangeX()
Dim x As Integer
Dim y As String
x = InputBox("Cuantas celdas?")
For z = 1 To x
If z = 1 Then
y = ActiveCell.Address
ActiveCell.Offset(1, 0).Range("A1").Select
Else
y = y & "," & ActiveCell.Address
ActiveCell.Offset(1, 0).Range("A1").Select
End If
Next z
Range(y).Select
End Sub
==========
Si no te sirve, házmelo saber.
Tavopz,
El código alcanza el objetivo. Con un par de variaciones me será útil. Gracias por la dedicación.
Atentamente,
Midma
El código alcanza el objetivo. Con un par de variaciones me será útil. Gracias por la dedicación.
Atentamente,
Midma
