preskočiti del kode

Pomoč pri izdelavi makrov
Odgovori
jumanjy
Prispevkov: 133
Pridružen: To Jan 12, 2010 1:00 pm

preskočiti del kode

Odgovor Napisal/-a jumanjy »

Pozdravljeni!

V gumb sem si posnel makro ki mi ponastavi nek števec, ker pa se dogaja, da ga kdo pomotoma ponastavi bi dodal še MsgBox za potrditev. Del kode sem našel v nasvetih vendar ne znam vključiti, da bi mi mi preskoči ponastavljanje ob negativnem odgovoru.

Koda: Izberi vse

 Dim odgovor As Integer
  odgovor = MsgBox("POZOR  PONASTAVLJATE ŠTEVEC", vbYesNo + vbCritical)
  If odgovor = vbNo Then Cancel = True
  Range("L1").Value = 1
  Range("K21").Value = Date
Pa še eno željo imam,če nisem prezahteven, kako bi v zadnji vrstici poleg datuma vklučil še uro ponastavljanja?
Prosil bi vas če mi lahko kdo pomaga .

Lep pozdrav.
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Re: preskočiti del kode

Odgovor Napisal/-a admin »

V kolikor se uporabnik ne strinja, s pogojnim stavkom preskočite del kode:

Koda: Izberi vse

  Dim odgovor As Integer
  odgovor = MsgBox("POZOR  PONASTAVLJATE ŠTEVEC", vbYesNo + vbCritical)
  If odgovor <> vbNo Then
     Range("L1").Value = 1
     Range("K21").Value = Now
  End If
lp,
Matjaž Prtenjak
Administrator
jumanjy
Prispevkov: 133
Pridružen: To Jan 12, 2010 1:00 pm

Re: preskočiti del kode

Odgovor Napisal/-a jumanjy »

Hvala za pomoč deluje tako kot sem želel. :D
Pa lep preostanek nedelje vam želim!
Odgovori