trebam pomoć znanaca u VBA imam cod koji radi ali trebam male izmjene.
VBA radi kad stisnem gumb arhiviraj i on stavi taj dokument u sheet arhiviraj.
obzirmo da planiram raditi i račune i ponude onda sam si zamislio zašto nebi mogao spremati odvojeno ponude na arhiva ponude, račune na arhiva računi.
stavio sam VBA code ali i privitak.
Private Sub arhiviraj()
'
' Makronaredba1 Makronaredba
'
YesNo = MsgBox("Spremno za arhivu?", vbYesNo + vbCritical, "Pazi")
Select Case YesNo
Case vbYes
Application.ScreenUpdating = False
'your code
Sheet2.Unprotect Password:="EG"
Sheets("Racun-Ponuda").Select
Range("A1:G55").Select
'Selection.Copy
Sheets("Arhiva").Select
Range("A1").Select
ActiveWorkbook.Worksheets("arhiva").Rows("1:55").Insert Shift:=xlDown
ActiveWorkbook.Worksheets("arhiva").Activate
Sheets("Racun-Ponuda").Select
Range("A1:G55").Select
Selection.Copy
With Worksheets("arhiva")
.Range("A1:G55").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'Range("A1").Select
.Range("A1:G55").PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End With
Sheets("Racun-Ponuda").Select
Range("A1").Select
Range("f12").Value = Range("f12") + 1
Sheet2.Protect Password:="EG"
Application.ScreenUpdating = True
Case vbNo
'Insert your code here if No is clicked
MsgBox ("Uh, zamalo si zeznuo stvar!! Pazi sto radis!")
End Select
End Sub