Macro que copia y pega sin moverse de la celda activa

Necesito una macro que haga lo siguiente: supongamos este ejemplo voy ingresando datos desde la A1 hasta F1 necesito que pegue los valores de B1, D1 y F1 en K pero en forma vertical y quedar posicionado el al ultima entrada que G1 (EL COPIAR Y PEGAR TIENE QUE SER RELATIVO NO ABSOLUTO) MUCHAS GRACIA X LA AYUDA

     A          B         C       D       E       F         G      H     I     J       K

1            400                100             200                                   400 

2                                                                                              100

3                                                                                               200

4

1 respuesta

Respuesta
1

Voy a tomar esta pregunta para enviarte el error que tienes.

El error es en esta macro:

Sub PegaDatosDeBonos()

ActiveSheet.Unprotect

ActiveCell.Offset(0, -3).Range("A1").Select

ActiveCell.Copy Destination:=Range("U8")

ActiveCell.Offset(0, -9).Range("A1").Select

Estás en la columna L, luego te mueves 3 columnas a la izquierda, luego te mueves 9 columnas a la izquierda, si lo haces manualmente estás llegando a la columna anterior a "A", pero como ya no hay columnas te envía el error.

Tendría que saber qué es lo que estás intentando hacer para corregirlo pero no sé que vas a hacer. Solamente veo que después de capturar un dato en la columna "L" quieres seleccionar 3 celdas a la izquierda y 0 filas.

Revisa lo que quieres hacer, ya que cuando presionas enter después de escribir al en la celda por ejemplo L10, la activecell es la L11, entonces lo que hagas con tu macro lo va a hacer sobre la fila 11.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas