Macro para imprimir celdas con solo con datos
Tengo un problema quiero imprimir etiquetas en Excel pero solo las que contengan contenido, he echo esta pero imprime toda la columna no solo las que tienen datos creo que el problema es que las que aparentemente están vacías tienen una fórmula que no puedo quitar porque es necesaria como puedo hacer?
Desde ya muchas gracias.
Sub AreaImpresion()
Dim primera, ultima As Variant
Range("B1").Select
If ActiveCell.Value = "" Then
Selection.End(xlToRight).Select
End If
primera = ActiveCell.Address
ActiveCell.SpecialCells(xlLastCell).Select
ultima = ActiveCell.Address
ActiveSheet.PageSetup.PrintArea = (primera & ":" & ultima)
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
End Sub
1 Respuesta
Respuesta de Dante Amor
2