Macro Eliminar celdas en blanco (

[hnandrade]

Hola, quiero crear una macro que haga lo siguiente: Tengo un rango de celdas (A1 - C34) en la hoja1 con una formula de condición en la cual, si es mayor que 0 me pone el numero (del 1 al 9) en función del rango A1 - c34 de la hoja2, si el numero es cero entonces no me pone nada (""). La macro que quiero crear es que me convierta a valores el rango (A1 - C34) en la hoja1 y despues elimine las celdas dentro del rango (A1 - C34) en la hoja1 las cuales no contengan informacion (""). Me puedes ayudar por favor?

[obed_cruz]

Hola hnandrade

prueba con este còdigo.

Saludos

Sub EliminaVacios()

 With Worksheets("Hoja1").Range("A1:C34")
  .Copy: .PasteSpecial Paste:=xlValues
   Application.CutCopyMode = False
  .SpecialCells(xlCellTypeBlanks).Delete xlUp
 End With

End Sub[/PHP]