[ Taft @ 18.10.2021. 15:50 ] @
Pozdrav, 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. Code: 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 |