Ayuudddaaaa
Tengo una macro que realice con la grabadora de macros:
Sub Macro1()
'
' Macro1 Macro
'
'
Sheets("ALEATORIOS").Select
Range("B4:V43").Select
Selection.Copy
Sheets("POB INI").Select
Range("B3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Pero siempre me ha gustado trabajar con botones Actiex...
Cree el boton y le pegue el codigo:
Private Sub CommandButton1_Click()
'
' Macro1 Macro
'
'
Sheets("ALEATORIOS").Select
Range("B4:V43").Select
Selection.Copy
Sheets("POB INI").Select
Range("B3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Cuando corro la macro1 no hay problema, pero cuando ejecuto el botón, me genera error en Range("B4:V43"). Select
¿Por qué sucede esto?
Sub Macro1()
'
' Macro1 Macro
'
'
Sheets("ALEATORIOS").Select
Range("B4:V43").Select
Selection.Copy
Sheets("POB INI").Select
Range("B3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Pero siempre me ha gustado trabajar con botones Actiex...
Cree el boton y le pegue el codigo:
Private Sub CommandButton1_Click()
'
' Macro1 Macro
'
'
Sheets("ALEATORIOS").Select
Range("B4:V43").Select
Selection.Copy
Sheets("POB INI").Select
Range("B3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Cuando corro la macro1 no hay problema, pero cuando ejecuto el botón, me genera error en Range("B4:V43"). Select
¿Por qué sucede esto?
1 Respuesta
Respuesta de caranbis
1
Deja el código dentro de la Macro1, y en el código del botón colocas:
Private Sub CommandButton1_Click()
Application.Run "Macro1"
End Sub
Private Sub CommandButton1_Click()
Application.Run "Macro1"
End Sub
Gracias... funciona bien... aunque me queda la duda del porque no funciono al escribirle el código dentro del botón
Creo que hasta office 2003, ocurre ese error, desde los formularios o desbe controles activex de formularios, los comando que hacen referencia a rangos en las hojas, no funcionan.
