Moderatori: Anthony47, Flash30005
Sub CancTab()
Sheets("Foglio8").Select
UR = Range("A" & Rows.Count).End(xlUp).Row
ActiveSheet.Unprotect
Rows("1:" & UR).Delete Shift:=xlUp
Range("B17").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Rows("2:" & UR).Delete Shift:=xlUp
Sheets("Foglio8").Select
' UR = Range("A" & Rows.Count).End(xlUp).Row
ActiveSheet.Unprotect
' Rows("1:" & UR).Delete Shift:=xlUp
Range("B19:F" & Rows.count).Clearcontents
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sub CancTab()
Sheets("Foglio8").Select
UR = Range("B" & Rows.Count).End(xlUp).Row
IF UR < 19 then UR = 19
ActiveSheet.Unprotect
Rows("19:" & UR).Delete Shift:=xlUp
Range("B17").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
UR = Range("B" & Rows.Count).End(xlUp).Row - 1
Sub CancTab()
Sheets("Foglio8").Select
UR = Range("B" & Rows.Count).End(xlUp).Row
IF UR < 19 then UR = 19
ActiveSheet.Unprotect
Rows("19:" & UR).Delete Shift:=xlUp
Range("B17").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Application.ScreenUpdating = False
ActiveSheet.Unprotect
Range("Tabella1[#Headers]").Select
Selection.Copy
Range("Tabella1").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("A8:D8").Select
Selection.ListObject.ListRows(1).Delete
Range("A5:D5").Select
Selection.Locked = False
Selection.FormulaHidden = False
Range("Tabella1").SpecialCells(xlCellTypeBlanks).EntireRow.Delete '>>>AGGIUNTA DA ME<<<
Range("Tabella1").Select
Selection.Locked = True
Range("A5").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Application.ScreenUpdating = True
End Sub
On Error resume next
On Error goto 0
Range("A9:B30").SpecialCells(xlCellTypeBlanks).EntireRow.Delete '>>>AGGIUNTA DA ME<<<
Application.ScreenUpdating = False
ActiveSheet.Unprotect
Range("Tabella1[#Headers]").Select
Selection.Copy
Range("Tabella1").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("A8:D8").Select
Selection.ListObject.ListRows(1).Delete
Range("A5:D5").Select
Selection.Locked = False
Selection.FormulaHidden = False
On Error Resume Next
Sheets("Foglio4").Select
UR = Range("D" & Rows.Count).End(xlUp).Row - 1
If UR < 7 Then UR = 7
Rows("7:" & UR).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Range("A5").Select
On Error GoTo 0
Range("Tabella1").Select
Selection.Locked = True
Range("A5").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
'On Error Resume Next '<<<<<<<<< commentare
Sheets("Foglio4").Select
UR = Range("D" & Rows.Count).End(xlUp).Row - 1
If UR < 7 Then UR = 7
Rows("7:" & UR).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Range("A5").Select
' On Error GoTo 0 '<<<<<< commentare
Range("A7:B" & UR).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Torna a Applicazioni Office Windows
Stabilire righe e colonne da mostrare a schermo Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 10 |
Eliminare righe diverse dalla prima data del mese Autore: dipdip |
Forum: Applicazioni Office Windows Risposte: 4 |
Aggiungere e eliminare righe senza alterare i riferimenti de Autore: trittico69 |
Forum: Applicazioni Office Windows Risposte: 4 |
cancella righe completamente vuote Autore: trittico69 |
Forum: Applicazioni Office Windows Risposte: 3 |
Velocizzare ordinamento di tante righe con valori e formule Autore: ricky53 |
Forum: Applicazioni Office Windows Risposte: 2 |
Visitano il forum: Nessuno e 6 ospiti