Error al pegar fórmulas en VBA

Solo consultas sobre macros y código VBA Excel.
Reglas del Foro
1. Antes de hacer tu pregunta intenta con el buscador de este foro (muchas preguntas ya fueron respondidas antes!)
2. Si haces una nueva pregunta, es muy recomendable que adjuntes el ejemplo Excel para poder comprenderla mejor!
3. Realiza tu pregunta de forma clara, explicando bien cada paso de lo que haces y tendrás más probabilidad de respuesta!
Responder
Hector94
Miembro Nuevo
Miembro Nuevo
Mensajes: 2
Registrado: 25 Sep 2018 10:29

Error al pegar fórmulas en VBA

Mensaje por Hector94 » 07 Oct 2018 07:25

Hola, estoy realizando un Excel que te calcula la ruta que debe seguir una furgoneta para recoger ciertos usuarios dependiendo de las distancias numero de usuarios por ciudad etc,
La cosa es que al final quiero copiar y pegar una fórmula en la última casilla de la lista y no sé porque me da error. éste es el código:

Código: Seleccionar todo

Sub añadirgandia()
numvehículos = Cells(3, "I")
col = 0
For i = 1 To numvehículos
    If Cells(1, 13 + col) <> "" Then
        Cells(2, 13 + col) = "Gandía"
        Cells(2, 14 + col) = 0
        Cells(2, 15 + col) = 0
        Cells(2, 16 + col) = 0
        ultimaciudad = Cells(1, 13 + col).End(xlDown)
        Cells(1, 13 + col).End(xlDown).Offset(1, 0) = "Gandía"
        Range("K2").Copy
        Cells(1, 13 + col).End(xlDown).Offset(0, 1).Select
        [b]Range(Selection).PasteSpecial xlPasteFormulas[/b]
        Cells(3, "K").Copy
        For j = 1 To (Cells(1, 13 + col).End(xlDown).Offset(0, -1) - 1)
            Range(Cells(2 + j, 15 + col)).Paste
        Next j
    End If
col = col + 4
Next i
End Sub
(utilizo el offset(0,1) porque la columna en la que quiero pegar tiene huecos en blanco por arriba)

La fila en negrita es la que me da error: Error en el método 'Range' de objeto '_Global'
Alguien tiene idea de porque?
Manualmente me la copia y funciona bien.

Muchas gracias.



Avatar de Usuario
Antoni
Miembro Frecuente
Miembro Frecuente
Mensajes: 5956
Registrado: 22 Dic 2009 04:58
Ubicación: GALICIA (ESPAÑA)

Re: Error al pegar fórmulas en VBA

Mensaje por Antoni » 07 Oct 2018 12:38

Cambia Range(Selection).PasteSpecial xlPasteFormulas por Selection.PasteSpecial xlPasteFormulas



Avatar de Usuario
Cacho R
Miembro Frecuente
Miembro Frecuente
Mensajes: 10788
Registrado: 23 Jun 2011 17:15
Ubicación: Buenos Aires
Contactar:

Re: Error al pegar fórmulas en VBA

Mensaje por Cacho R » 07 Oct 2018 22:15

.
Sin ver tu archivo, Héctor, va a ser difícil orientarte pues hay que adivinar demasiadas cosas...
.



Responder