Ayuda

[estebanpole]

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 *******!

[estebanpole]

Re: Macro guarda filas sin articulos ingresados

Alguien que me pueda ayudar ....