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
H o l a:
Si quieres rellenar hasta la columna L:
Sub CopiarDatos()
'Copiado de datos en las celdas basandose en su celda anterior.
'
Application.ScreenUpdating = False
Cells.UnMerge
u = Range("A" & Rows.Count).End(xlUp).Row
Range("A3:L" & u).SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
Range("A3:L" & u).Copy
Range("A3").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Range("A3").Select
End SubLa macro ya incluye esta línea, para separar las celdas combinadas.
Cells. UnMerge
