Tengo una columna donde hay valores numericos y ceros (de o3 a o100). Necesito que empezando de la celda o3, se copie ese valor a la celda A1, despues la o4 se copie a la A1 de nuevo,asi sucesivamente hasta la o100.Lo unico que debe saltarse los ceros. He intentado con la grabadora de macros, pero se hace muy largo.Supongo que sera con un bucle, pero no se hacerlo.
Buenas tardes, necesito vuestra ayuda.
Tengo una columna donde hay valores numericos y ceros (de o3 a o100). Necesito que empezando de la celda o3, se copie ese valor a la celda A1, despues la o4 se copie a la A1 de nuevo,asi sucesivamente hasta la o100.Lo unico que debe saltarse los ceros. He intentado con la grabadora de macros, pero se hace muy largo.Supongo que sera con un bucle, pero no se hacerlo.
Adjunto el codigo de ejemplo.
Gracias
Range("A1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=R[2]C[14]" 'copio valor o3
Range("A1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=R[3]C[14]" 'copio valor o4
Range("A1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=R[4]C[14]" 'copio valor 05
Range("A2").Select