A ty to vieš po sebe prečítať?:eek: Tak sa nediv.:rolleyes::---:D

Jedine co tam ja vidim je ze "mesiac bol zalohovani", a aj to s chybou :)

Dúfam že dnes sa myto podarí poslať zrozumiteľne.
Private Sub CommandButton2_Click()
Dim Zálohuj
Zálohuj = MsgBox("Chcete zálohovať záznamy za mesiac ?", 33, "Zálohovať záznamy ?")
If Zálohuj = vbOK Then
Dim mesiac
mesiac = Range("K3")
If mesiac = "1" Then
Sheets("Prehlad mesiaca").Range("Z5:Z12").Select
Selection.Paste
Sheets("Archív").Range("D6:D13").Paste
Sheets("Prehlad mesiaca").Range("AA5:AA12").Select
Selection.Paste
Sheets("Archív").Range("E6:E13").Paste
Sheets("Prehlad voľno dovolenka atd.").Range("AT3:AT10").Select
Selection.Paste
Sheets("Archív").Range("F6:F13").Paste
ElseIf mesiac = "2" Then
Sheets("Prehlad mesiaca").Range("Z5:Z12,AA5:AA12").Select
Selection.Paste
Sheets("Archív").Range("G6:G13,H6:H13").Paste
Sheets("Prehlad voľno dovolenka atd.").Range("AT3:AT10").Select
Sheets("Archív").Range("I6:I13").Paste
ElseIf mesiac = "3" Then
....
End If


MsgBox "Mesiac bol zálochovaní !!!"

End
Else
MsgBox "Požiadavka bola stornovaná"
End If
End
End Sub


Potreboval by som pomoc na vytvorenie zálohy v excelovkej tabuľke pomocou VBA .Niečo som už napísal ale nechce my to fungovať stále dá hlásenie 1004,som len úplný začiatočník .Ďakujem za pomoc

Zálohy sa zvyknú robiť do iného zošita.

A bolo by dobré aj povedať, čo to má robiť. Lebo z toho kódu to zrejmé nie je.