Visual Basic.NET - Ingresar letra de la columna para usar como rango.

 
Vista:
Imágen de perfil de Rogelio Bandez

Ingresar letra de la columna para usar como rango.

Publicado por Rogelio Bandez (1 intervención) el 13/04/2018 17:27:09
Necesito usar: Range("H65000").End(xlUp).Offset(1, 0).Value = "end"

Pero necesito preguntar al usuario cual columna va a usar, guardarlo en una variable y usar esa variable para sustituir ("H65000). Aquí el código con el error:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub Dividir()
'Declaración de variables
'
Dim CeldaActiva As String
Dim Columna As String
'
'Elegir Columna a Dividir
Columna = InputBox("Cual columna va a dividir entre 1.000?", "ESCOJA COLUMNA.", " ")
'
Range (Columna:65000").End(xlUp).Offset(1, 0).Value = "end"         (AQUI ME MUESTRA EL ERROR).
Range("Columna2").Select
Do While ActiveCell.Value <> "end"
ActiveCell.Value = Round(ActiveCell.Value / 1000, 0)
ActiveCell.NumberFormat = "#.##00"
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.ClearContents
'
Application.ScreenUpdating = True
Application.StatusBar = "Ejecución terminada."
'
End Sub


Les agradezco la ayuda de antemano.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder