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.