23/10/2009, 04:48
|
 | | | Fecha de Ingreso: marzo-2007 Ubicación: Bs.As.
Mensajes: 1.103
Antigüedad: 17 años, 1 mes Puntos: 88 | |
| Macro Excel - Rellenar celdas en blanco.
Hola! dewol. Con la siguiente variante no requieres estar recorriendo la hoja para obtener el resultado solicitado:
Código vb:
Ver originalSub Completar() [m1] = [a1] Range("m2:m" & [b65536].End(xlUp).Row).FormulaR1C1 = "=IF(RC1 = """", R[-1]C, RC1)" With Range("m1", [m65536].End(xlUp)) [a1].Resize(.Rows.Count) = .Value .Delete End With End Sub
Comenta -por favor- si te ha servido, ¿si?
Saludos, Cacho.  |