InputBox

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

InputBox

Odgovor Napisal/-a jumanjy »

Pozdravljeni,
S pomočjo InputBox-a si urejam neko tabelo to mi sicer lepo deluje, se pa zakomplicira, če namesto OK pritisnem Cancel. Takrat mi vnese neveljavne znake :cry: .
Vprašal bi vas, če se da kodo dopolniti, da ob pritisku na cancel ne naredi ničesar.

Koda: Izberi vse

Dim myValue As Variant
myValue = InputBox("VNESI ŠTEVILO")
Range("B2").Value = myValue
    Range("B5:K5").Value = Range("B9:K9").Value
Hvala za pomoč!
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Re: InputBox

Odgovor Napisal/-a admin »

Pozdravljeni,

Sem spregledal vprašanje. Odgovor pa je dokaj preprost:

Koda: Izberi vse

Dim myValue As Variant
myValue = InputBox("VNESI ŠTEVILO")

If myValue = vbNullString Then exit sub

Range("B2").Value = myValue
Range("B5:K5").Value = Range("B9:K9").Value
lp,
Matjaž Prtenjak
Administrator
Odgovori