Macro Excel - Rellenar celdas en blanco.

[dewol]

Buenas tardes. No encontre un subforo de presentaciones y bienvenidas asi que me vine derechito a escribir... Bueno, a preguntar, en realidad.

Antes que nada, si esta pregunta ya fue hecha, les pido disculpas... Aunduq la busque no la encontre.

Mi pregunta es la siguiente:
Tengo un listado donde la columna A es Apellido y la columna B es nombre. En mi listado el Apellido solo aparece una vez por grupo familiar.. entonces "Perez" aparece en A3 con el nombre "Juan" En B3.. A4 esta vacia y en B4 aparece "Florencia"... por ejemplo.

Para el trabajo que tengo que hacer deberia poder ordenarlos por nombre. Pero si hago eso muchisimos nombres me van a quedar sin apellido (No se si ya arme un laberinto mas que una explicacion).

Resumiendo:

¿Como podria ser una macro que vaya buscando celdas en blanco en una columna y cuando encuentre una copie el valor inmediato anterior?

Muchisimas Gracias.

[cuexco]

hola:

¿Algo como esto te serviría?

Sheets(1).Select ' seleccionas la hoja en la que vas a trabajar
Range("A1").Select 'te sitùas en la última celda que esté llena

Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.FormulaR1C1 = ActiveCell.Offset(-1, 0).Value 'extrae el valor de la ùltima celda de la columna "A".

espero te sirva.

saludos.

[mrocf]

Hola! dewol. Con la siguiente variante no requieres estar recorriendo la hoja para obtener el resultado solicitado:

Código vb:

Sub 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.