Macro especifica que copia las celdas que tienen valores,y pega celdas vacias tambien
publicado
hola tengo un macro y el problema que encuentro es que agregue una condicion a las celdas de la "fila A" "hoja2"
CÓDIGO: SELECCIONAR TODO
=SI(B8="";"";SUMA(B8*D8))[/CODE]
que se repite en todas las filas ahora lo que pasa que el ejecutar el macro copia las celdas vacias,aunque en el macro especifica que copia las celdas que tienen valores
si pongo
[CODE]CÓDIGO: SELECCIONAR TODO
=SI(B8="";"";SUMA(B8*D8))[/CODE]
si lo saco me lo hace bien me pega las celdas que tiene datos nada mas
hola tengo un macro y el problema que encuentro es que agregue una condicion a las celdas de la "fila A" "hoja2"
que se repite en todas las filas ahora lo que pasa que el ejecutar el macro copia las celdas vacias,aunque en el macro especifica que copia las celdas que tienen valores
si pongo
=SI(B8="";"";SUMA(B8*D8))[/CODE]
si lo saco me lo hace bien me pega las celdas que tiene datos nada mas
Macro
UltFila = Hoja1.Range("A" & Rows.Count).End(xlUp).Row + 1
Cant = Hoja2.Range("A" & Rows.Count).End(xlUp).Row
Hoja2.Range("A8:E" & Cant).Copy
Cant = Hoja2.Range("A8:E" & Cant).Rows.Count
Hoja1.Select
Range("D" & UltFila).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("A" & UltFila & ":A" & UltFila + Cant - 1).Value = Range("Fecha")
Range("B" & UltFila & ":B" & UltFila + Cant - 1).Value = Range("Remito")
Range("C" & UltFila & ":C" & UltFila + Cant - 1).Value = Range("Nombre")[/CODE]
libro2.zip