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:
Les agradezco la ayuda de antemano.
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
0