Range("num1:num2").Select
¿Se puede hacer que algo parecdio a esto fiuncione? Gracias
Sub Macro1()
Dim num1, num2 As String
x = 10
y = 17
num1 = "A" & Int(x)
num2 = "A" & Int(y)
MsgBox num1
MsgBox num2
Range("num1:num2").Select
Selection.Copy
Range("C1").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
End Sub
Sub Macro1()
Dim num1, num2 As String
x = 10
y = 17
num1 = "A" & Int(x)
num2 = "A" & Int(y)
MsgBox num1
MsgBox num2
Range("num1:num2").Select
Selection.Copy
Range("C1").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
End Sub
1 Respuesta
Respuesta de prodillo
1
Para que tu código funcione debes reemplazar la línea :
Range("num1:num2").Select
por las siguientes líneas :
direccion = num1 & ":" & num2
Range(direccion).Select
De esta forma podrás seleccionar el rango que deseas.
Saludos y suerte.
(Si quieres conocer más acerca de las macros para excel visita mi sitio web www.excelworker.virtuabyte.cl)
Range("num1:num2").Select
por las siguientes líneas :
direccion = num1 & ":" & num2
Range(direccion).Select
De esta forma podrás seleccionar el rango que deseas.
Saludos y suerte.
(Si quieres conocer más acerca de las macros para excel visita mi sitio web www.excelworker.virtuabyte.cl)
