Tengo este código que me graba datos de un formulario. El problema que tengo es que me graba los campos vacios de la columna articulos.
Ej: Pongo el numero de presupuesto , le cargo 2 o 3 articulos y cuando lo grabo. Me guarda esos 3 articulos mas las 17 filas mas vacias sin articulos. Me explico?
Y en la hoja de reportes me quedan muchas filas vacias y se hace muy extenso.
Hay alguna forma de no guardar filas que no carguen articulos?
Abrazoss
pd_ Adjunto captura para ver como guarda la informacion.
Macro guarda filas sin articulos ingresados
Tengo este código que me graba datos de un formulario. El problema que tengo es que me graba los campos vacios de la columna articulos.
Ej: Pongo el numero de presupuesto , le cargo 2 o 3 articulos y cuando lo grabo. Me guarda esos 3 articulos mas las 17 filas mas vacias sin articulos. Me explico?
Y en la hoja de reportes me quedan muchas filas vacias y se hace muy extenso.
Hay alguna forma de no guardar filas que no carguen articulos?
Abrazoss
pd_ Adjunto captura para ver como guarda la informacion.
Sub CONFIRMARIMPRIMIRGRABAR()
'
' CONFIRMARIMPRIMIRGRABAR Macro
'
'
ActiveWindow.SmallScroll Down:=-9
Sheets("pasar").Select
Rows("3:20").Select
Selection.Copy
Sheets("VENTAS").Select
ActiveWindow.SmallScroll Down:=-12
Application.CutCopyMode = False
Selection.Copy
Sheets("pasar").Select
Rows("3:20").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("VENTAS").Select
Rows("3:3").Select
Selection.Insert Shift:=xlDown
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=-6
Sheets("PRINCIPAL").Select
Range("C4").Select
Application.CutCopyMode = False
Selection.Copy
Range("D4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("E4").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=RC[-1]+1"
Range("E4").Select
Selection.Copy
Range("C4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("D4:E4").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("C13:E30,H13:H30").Select
Range("H30").Activate
Selection.ClearContents
Range("D31").Select
Selection.Copy
Range("D13:D30").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("C8").Select
Selection.ClearContents
Range("C9").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-6
Range("C13").Select
End Sub
- - - - - Mensaje combinado - - - - -
Ahi cargue los adjuntos y lei el reglamento. Perdon pero soy nuevo
A ver quien me puede ayudar con esto.
Saludos!
- - - - - Mensaje combinado - - - - -
ALGUN CRANEO QUE ME PUEDA AYUDAR CON ESTO. POR FAVOR ES *******!