Carissimi,
ad una macro creata da Anthony tempo fa necessito dialcune moidifiche ,che non riesco a fare
In pratica vorrei cancellare tutte le righe (dalla 2^ in poi) che contengono questi criteri:
1) cancellare la riga Jesima dove alla colonna k (quindi kj ) sia = MAG
2)cancellare la riga Jesima dove alla colonna Lj SIA = 0 E CONTEMPORANEAMENTE Ej diverso da zero.
Una volta cancellate le varie righe, le righe vanno comunque addensate , in modo cioè che
non rimanga una riga vuota tra (quella eliminata) tra righe piene
ALlego il testo della macro
Sub compilaordini2()
'
' compilaordini2 Macro
' Macro registrata il 12/01/2015 da LUCA
'
Dim LastR As Long
'
Sheets("ORDINI").Range("c2").Resize(10000, 11).ClearContents '****
Sheets("INCOLONNA").Select
LastR = Evaluate("=MAX((A1:H10000<>"""")*(ROW(A1:A10000)))")
Range("A2:E2").Resize(LastR, 5).Copy Destination:=Sheets("ORDINI").Range("c2")
Range("F2:H2").Resize(LastR, 3).Copy Destination:=Sheets("ORDINI").Range("j2")
Range("I2").Resize(LastR, 1).Copy Destination:=Sheets("ORDINI").Range("h2")
Range("J2").Resize(LastR, 1).Copy Destination:=Sheets("ORDINI").Range("M2")
Sheets("ORDINI").Range("I2").Resize(LastR - 1, 1).Formula = "=$H2*$G2"
Sheets("ORDINI").Range("b2").Resize(LastR - 2, 1).Formula = "=$b$1"
Sheets("ORDINI").Range("A3").Resize(LastR - 2, 1).Formula = "=$A2+1"
Range("A2").Resize(LastR, 1).Copy
Sheets("ORDINI").Range("G2").Resize(LastR, 1).PasteSpecial _
Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("A2").Resize(LastR, 1).Copy
Sheets("ORDINI").Range("A2").Resize(LastR, 1).PasteSpecial _
Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("A2").Resize(LastR, 1).Copy
Sheets("ORDINI").Range("B2").Resize(LastR, 1).PasteSpecial _
Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("A2").Resize(LastR, 1).Copy
Sheets("ORDINI").Range("I2").Resize(LastR, 1).PasteSpecial _
Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
'
End Sub