Hola, tengo una hoja de excel donde estoy capturando la cantidad de piezas a facturar basado a una remision previa, al momento de imprimir quiero que solo aparezcan las partidas que se cobraran pero no logro hacerlo, adjunto un ejemplo de como lo tengo.

La respuesta seria filtrando pero quisiera fuera automatizado ya que al filtrar se filtran todas las filas a partir de la fila de encabezado y eso estropea el pie del formato.

Esperando contar con su valioso apoyo.

Saludos

IMPRESION.rar

¿A ver si es esto lo que estás buscando?...

Private Sub CommandButton1_Click()
Dim i%, j%, act_Row%
Dim Mat1, Mat2(1 To 30, 1 To 13)

With [a12:m41]: Mat1 = .Value: .ClearContents: End With
For i = 1 To 30
  If Mat1(i, 3) > 0 Then
    act_Row = 1 + act_Row
    For j = 1 To 13
      Mat2(act_Row, j) = Mat1(i, j)
    Next j
  End If
Next i
[a12:m41] = Mat2

   'preparar la hoja para la impresión
With ActiveSheet.PageSetup

(y sigues con lo que ya tenías...)[/PHP]

Si lo anterior fuese lo que estabas buscando, sólo te quedará pendiente -entonces- adecuar las fórmulas de la columna O a la nueva facilidad.

Saludos, Cacho R.