InputBox

[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 .
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]

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