Vnos podatkov

[aparadp]

Zdravo,

POskušam napisati / posneti makro, a sem že na začetku naletel na težavo. Moj makro namreč rabi vnos integer spremenljivke uporabnika. Torej bi moral v pogovorno okno uporabnik vnesti najprej poljubno številko, zadevo zapisati v celico A2, ostale izračune naprej pa spet izvede Excel... Kako to storim?

Hvala in lp,

Peter

[admin]

Spodnji makro bo naredil natanko tisto, kar želite. V funkciji InputBox popravite opombo za uporabnika (pač nekaj namesto treh pikic) in to je to

Koda: Izberi vse

Sub vpisi()
  Dim vnos As String
  
  vnos = InputBox("Vpišite ...")
  If (vnos = "") Or (Not IsNumeric(vnos)) Then
    MsgBox "[" & vnos & "] ni numeričen podatek!"
    Exit Sub
  End If
  
  Range("A2") = vnos
  
  ' ... in potem vaš makro dalje
End Sub

[aparadp]

Matjaž,


Hvala