di SebNan » 11/12/12 13:02
Ciao,
ha creato un nuovo file reinserendo le stesse macro ed ora funziona. Vorrei inoltre sapere se c'è una macro che memorizza solo le righe occupate in modo da inserire i totali in fondo a tutto, senza che stabilisca io un range di lavoro (es. A3:M50). Nella macro sotto riportata,invece, dopo aver ordinato in ordine crescente, riesco ad evidenziarmi i doppioni, solo che se nel file è presente una sola riga mi incolla la formula fino all'ultima riga del foglio excel. Vorrei fare in modo che se è presente una sola riga si fermi in modo da non riportarmi la formula su tutto il foglio.
Grazie ancora
Ciao
Application.Goto Reference:="R50C16"
ActiveCell.FormulaR1C1 = "x"
Range("P50").Select
Selection.Copy
Range(Selection, Selection.End(xlUp)).Select
Range("P4:P50").Select
Range("P50").Activate
ActiveSheet.Paste
Application.CutCopyMode = False
Range("P49").Select
Selection.End(xlUp).Select
Selection.End(xlToLeft).Select
Selection.Sort Key1:=Range("B4"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Columns("C:C").Select
Selection.Insert Shift:=xlToRight
Range("C3").Select
ActiveCell.FormulaR1C1 = "Doppi"
Range("B3").Select
Selection.End(xlDown).Select
ActiveCell.Offset(0, 1) = "x"
Range("C4").Select
ActiveCell.FormulaR1C1 = "=+IF(RC[-1]=R[1]C[-1],""SI"",""no"")"
Range("C4").Select
Selection.Copy
Range("C5").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("C4").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False