Hola me podrian ayudar a corregir esta macro, ya que que he puesto la condicion que no se ejecute por si hay valores vacios en 6 celdas y siempre se ejecuta, comparto codigo:
Selection.ClearContents
Range("C5").Select
Selection.ClearContents
Selection.ClearContents
Range("C7").Select
Selection.ClearContents
Selection.ClearContents
Range("C8").Select
Selection.ClearContents
Range("C23").Select
Selection.ClearContents
Range("C24").Select
Selection.ClearContents
Range("C39").Select
Selection.ClearContents
Selection.ClearContents
Selection.ClearContents
Range("C40").Select
Selection.ClearContents
Range("C55").Select
Selection.ClearContents
Range("C56").Select
Selection.ClearContents
Range("C71").Select
Selection.ClearContents
Selection.ClearContents
Range("C72").Select
Selection.ClearContents
Range("C87").Select
Selection.ClearContents
Range("C88").Select
Selection.ClearContents
Range("C103").Select
Selection.ClearContents
Range("C104").Select
Selection.ClearContents
Range("C119").Select
Selection.ClearContents
Range("C120").Select
Selection.ClearContents
Range("C135").Select
Selection.ClearContents
Range("C136").Select
Selection.ClearContents
Range("C151").Select
Selection.ClearContents
Range("C152").Select
Selection.ClearContents
Range("A1").Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Selection.End(xlToLeft).Select
Selection.End(xlToLeft).Select
Selection.End(xlToLeft).Select
Selection.End(xlToLeft).Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Selection.End(xlToLeft).Select
Range("C4").Select
End Sub
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Hola me podrian ayudar a corregir esta macro, ya que que he puesto la condicion que no se ejecute por si hay valores vacios en 6 celdas y siempre se ejecuta, comparto codigo:
Selection.ClearContents
Range("C5").Select
Selection.ClearContents
Selection.ClearContents
Range("C7").Select
Selection.ClearContents
Selection.ClearContents
Range("C8").Select
Selection.ClearContents
Range("C23").Select
Selection.ClearContents
Range("C24").Select
Selection.ClearContents
Range("C39").Select
Selection.ClearContents
Selection.ClearContents
Selection.ClearContents
Range("C40").Select
Selection.ClearContents
Range("C55").Select
Selection.ClearContents
Range("C56").Select
Selection.ClearContents
Range("C71").Select
Selection.ClearContents
Selection.ClearContents
Range("C72").Select
Selection.ClearContents
Range("C87").Select
Selection.ClearContents
Range("C88").Select
Selection.ClearContents
Range("C103").Select
Selection.ClearContents
Range("C104").Select
Selection.ClearContents
Range("C119").Select
Selection.ClearContents
Range("C120").Select
Selection.ClearContents
Range("C135").Select
Selection.ClearContents
Range("C136").Select
Selection.ClearContents
Range("C151").Select
Selection.ClearContents
Range("C152").Select
Selection.ClearContents
Range("A1").Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Selection.End(xlToLeft).Select
Selection.End(xlToLeft).Select
Selection.End(xlToLeft).Select
Selection.End(xlToLeft).Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Selection.End(xlToLeft).Select
Range("C4").Select
End Sub