Tema: Duda con MAcro...

[dic]

hola a qué puede deberse que en un libro de Excel donde tengo una macro que copia un rango y luego lo pega con pegado especial:valores, ahora de pronto no haga el pegado sino que enla barra de estado me aparezca el mensaje: "Seleccione el destino y presione entrar"?

Gracias

[Mr_X]

Se te olvidó poner el código de la macro...

[MClaud]

Ese es un mensaje tipico cuando llevas un archivo con macros a otra maquina en la que el mapeo de discos es diferente
Copia la macro para poder analizarlo

[dic]

Aquí está:
Sub COPIARVALORPRECIO()
' COPIARVALORPRECIO Macro
' Macro grabada el 02-08-2008 para Cambio de Precios
Sheets("DBase").Select
    'Application.Goto Reference:="Sheets("DBase").R3C86"
    Range("CR3:CR2000").Select
    Selection.Copy
    'Application.Goto Reference:="R3C18"
    'ActiveWindow.SmallScroll Down:=-6
    Range("O3:O2000").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
'Sheets("Formulario PRECIO").Select
End Sub

[MClaud]

Segun las formulas editadas por ti haces referencia a una hoja Formulario Precio que no esta activa y estas trabajando en una hoja DBase
No necesitas seleccionar el rango de destino solo la primera celda
Te sugiero trabajar con nombres de rango y no con definición de rangos


Sub COPIARVALORPRECIO()
' COPIARVALORPRECIO Macro
    Range("C3:C2000").Select
    ActiveWorkbook.Names.Add Name:="precio", RefersToR1C1:= _
        "=Sheet1!R3C3:R2000C3"
    Selection.Copy
    Range("O3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A1").Select
    Application.CutCopyMode = False
End Sub

Un saludo