boton guardar

2 envíos / 0 nuevos
Último envío
rberland
Imagen de rberland
Offline
última acción: Hace 5 años 6 meses
alta: 05/05/2014 - 14:34
Puntos: 152
boton guardar

Hola,

 

  Necesito ayuda, estpy un poco oxidado pero necesito una macro simple para poder copiar datos que estan en forma vertical en forma horizontal y en forma correlativa.

 

adjunto archivo, desde ya muchas gracias.

AdjuntoTamaño
File libro3.xlsx10.76 KB

Etiquetas: 

Cron
Imagen de Cron
Offline
última acción: Hace 2 días 10 horas
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntos
alta: 23/06/2010 - 12:30
Puntos: 12715
Re: boton guardar

No es difícil...

 

Lo primero sería localizar la fila en la que tienes que copiar los datos. Se puede hacer algo así como:

 

    Worksheets("REGISTROS").Activate

    Cells(1, 1).Select

    Selection.End(xlDown).Select

 

Localizamos la fila donde estamos

 

   fila = activecell.row

 

Y realizamos la copia

 

     For a = 1 To 8

      Worksheets("FORMATO").Activate

      valor = Cells(a + 4, 4)

      Worksheets("REGISTROS").Activate

      Cells(fila + 1, a) = valor

    Next

 

Un saludo