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!

Error al pegar fórmulas en VBA

Notapor 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.
Hector94
Miembro Nuevo
Miembro Nuevo
 
Mensajes: 1
Registrado: 25 Sep 2018 10:29

Re: Error al pegar fórmulas en VBA

Notapor Antoni » 07 Oct 2018 12:38

Cambia Range(Selection).PasteSpecial xlPasteFormulas por Selection.PasteSpecial xlPasteFormulas
Avatar de Usuario
Antoni
Miembro Frecuente
Miembro Frecuente
 
Mensajes: 5710
Registrado: 22 Dic 2009 04:58
Ubicación: GALICIA (ESPAÑA)

Re: Error al pegar fórmulas en VBA

Notapor 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...
.
Avatar de Usuario
Cacho R
Miembro Frecuente
Miembro Frecuente
 
Mensajes: 10481
Registrado: 23 Jun 2011 17:15
Ubicación: Buenos Aires


Volver a Macros

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 6 invitados