Anónimo
Macro para copiar con valores
Hola. Tengo un archivo en excel, en donde hoy tres columnas y treinta filas, las columnas "A" y"B" siempre tienen el mismo valor, pero la columna"C" algunas veces no tiene valor en todas las filas.hay alguna macro para que imprima las filas que solo tienen valor. De antemano muchas gracias.
1 respuesta
Respuesta de santiagomf
1
Se me ocurre que podrías ocultar las filas antes de imprimir con un código de este estilo:
Option Explicit
Sub imprimirFilasCompletas()
Const maxFilas = 30
Const maxCols = 3
Dim i As Long
Dim j As Integer
Dim snCompleta As Boolean
' Primero ponemos visibles todas las filas
Me.Rows.Hidden = False
' Repetimos para cada fila
For i = 1 To maxFilas
snCompleta = True
For j = 1 To maxCols
snCompleta = snCompleta And (Cells(i, j) <> "")
Next j
' Si falta algún valor ocultamos la fila
If Not snCompleta Then Me.Rows(Format$(i) & ":" & Format$(i)).Hidden = True
Next i
Me.PrintOut ' Imprimimos la página
' Volvemos a poner todas las filas visibles
Me.Rows.Hidden = False
MsgBox "Proceso terminado"
End Sub
Option Explicit
Sub imprimirFilasCompletas()
Const maxFilas = 30
Const maxCols = 3
Dim i As Long
Dim j As Integer
Dim snCompleta As Boolean
' Primero ponemos visibles todas las filas
Me.Rows.Hidden = False
' Repetimos para cada fila
For i = 1 To maxFilas
snCompleta = True
For j = 1 To maxCols
snCompleta = snCompleta And (Cells(i, j) <> "")
Next j
' Si falta algún valor ocultamos la fila
If Not snCompleta Then Me.Rows(Format$(i) & ":" & Format$(i)).Hidden = True
Next i
Me.PrintOut ' Imprimimos la página
' Volvemos a poner todas las filas visibles
Me.Rows.Hidden = False
MsgBox "Proceso terminado"
End Sub