Copiado de Celdas a partir de una.

Copiar datos, aun cuando existan celdas vacías

Hace un tiempo, me enviaste una macro para copiar información en las celdas, a partir de una celda en especifico. En las celda 392 - 294 se copia la información del 291... Etc. Ejemp.

Pero se esta generando un error cuando se encuentran con este detalle... 

La fila 395 y 396 están unidas, y ya tengo la macro para separarlas, pero no copia el texto en las celdas de abajo, sino que coloca puros ceros. No entiendo si sea por la celda con el guion ( - ) coloreado de rojo, o cual pueda ser la razón.

Espero me puedas ayudar y de antemano, muchas gracias.

PD. Te envío adjunto al correo de yahoo, el documento, para trabajar con el.

1 respuesta

Respuesta
1

H o l a:

Si quieres rellenar hasta la columna AG, en estas líneas de la macro tienes que indicar hasta cuál columna quieres rellenar:

Range("A3:AG" & u).SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
Range("A3:AG" & u).Copy

La macro completa, ya incluye la instrucción unmerge para separar las celdas combinadas:

Sub CopiarDatos()
'Copiado de datos en las celdas basandose en su celda anterior.
'Por.Dante Amor
    Application.ScreenUpdating = False
    Cells.UnMerge
    u = Range("A" & Rows.Count).End(xlUp).Row
    Range("A3:AG" & u).SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
    Range("A3:AG" & u).Copy
    Range("A3").PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
    Range("A3").Select
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas