e se vai in debug, quale e' la riga evidenziata?
Ciao
Moderatori: Anthony47, Flash30005
Sub UniRec()
'Columns("B:K").Select
Selection.Insert Shift:=xlToRight
Columns("M:V").Select
Range("M:V").AdvancedFilter Action:=xlFilterInPlace, Unique:=True
Range("M:V").SpecialCells(xlCellTypeVisible).Copy
ActiveSheet.Paste Destination:=ActiveSheet.Range("B1")
On Error Resume Next
ActiveSheet.ShowAllData
On Error GoTo 0
Columns("M:V").Select
Selection.Delete Shift:=xlToLeft
End Sub
Sub UniRec()
Columns("B:K").Select
Selection.Copy
Columns("M:V").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
'Columns("M:V").Select
Range("M:V").AdvancedFilter Action:=xlFilterInPlace, Unique:=True
Range("M:V").SpecialCells(xlCellTypeVisible).Copy
ActiveSheet.Paste Destination:=ActiveSheet.Range("B1")
On Error Resume Next
ActiveSheet.ShowAllData
On Error GoTo 0
Columns("M:V").Select
Selection.Delete Shift:=xlToLeft
End Sub
Selection.Insert Shift:=xlToRight
Columns("B:K").Clear '<<< AGGIUNTA
Columns("L:U").Select
' etc etc
Torna a Applicazioni Office Windows
Chrome: due profili uguali aperti contemporaneamente Autore: franco11 |
Forum: Software Windows Risposte: 1 |
[EXCEL] Inserire righe in base ad una scelta Autore: robist84@gmail.com |
Forum: Applicazioni Office Windows Risposte: 1 |
Formula Excel copia righe e colonne Autore: Francesco6918 |
Forum: Applicazioni Office Windows Risposte: 2 |
Visitano il forum: Nessuno e 82 ospiti