Na vymazanie obsahu buniek som používal makro ale so zvýšením počtu listov v zošite to trvá už strašne dlho ,teraz tabuľka už má 30 listov.Makro na mazanie obsahu neuzamknutých buniek:


Private Sub CommandButton1_Click()
Dim Vymaz
Vymaž = MsgBox("Naozaj vymazať záznamy v mesiaci ?", 289, "Vymazať záznamy ?")
If Vymaz = vbOK Then
Dim ws As Worksheet, WorkRange As Range, FoundCells As Range, Cell As Range
For Each ws In ActiveWorkbook.Worksheets
If ws.Name <> ActiveSheet.Name Then
Set WorkRange = ws.UsedRange
For Each Cell In WorkRange
If Cell.Locked = False Then
If FoundCells Is Nothing Then
Set FoundCells = Cell
Else
Set FoundCells = Union(FoundCells, Cell)
End If
End If
Next Cell
On Error Resume Next
If Not FoundCells Is Nothing Then
FoundCells.ClearContents
Set FoundCells = Nothing
End If
Set WorkRange = Nothing
End If
Next ws
MsgBox "Mesiac bol vymazaný !!!"
Else
MsgBox "Požiadavka bola stornovaná"
End
End If
End Sub

Potreboval by som pomoc aby som mazal údaje v nasledujícich listoch a v buňkách:


Sheets("Plán 1.týždeň").Select
Range("A1:AL41").Select
Sheets("Plán 2.týždeň").Select
Range("A1:AL41").Select
Sheets("Plán 3.týždeň").Select
Range("A1:AL41").Select
Sheets("Plán 4.týždeň").Select
Range("A1:AL41").Select
Sheets("Plán 5.týždeň").Select
Range("A1:AL41").Select
Sheets("Plán 6.týždeň").Select
Range("A1:AL41").Select

​