melvinzepeda

Hola, Tengo este codigo y me da error 1004 en tiempor de ejecucion Private Sub CommandButton1_Click() Application.ScreenUpdating = False Sheets("Ordenar").Select Range("A1:AT305").Select Selection.ClearContents Sheets("Detalle").Activate...

Hola ayúdenme a modificar esta macro, para que solo borre el contenido de las celda y que no elimine toda la fila,,, Sub BORRAR() x = ActiveCell.Row z = ActiveCell.Column y = x + 1 Do While Range(x, z).Value <> "" Do While Cells(y, z) <> "" If...