[pmonica]

qual é o erro no código abaixo que me faz desaparecer a inputbox; indica que tenho que indicar um valor (independentemente de o tem colocado na inputbox) e não me regista o valor na célula j1?

cÓdigo:
————————————————-
on error resume next
dim therange as range
dim rng
set therange = application.inputbox(prompt:=”indique o valor da multa”, type:=1)
if therange is nothing then
msgbox “tem que indicar um valor!” _
, vbexclamation, title:=”alerta pm consulting®:”
end if
therange.activate
therange.value = rng
range(“j1″).value = rng
””””””””””””””””””””””””””””””””””””””””

[jorgerod]

experimenta este código e compara:

sub numericdatatype()

dim lnum as single

on error resume next

application.displayalerts = false

lnum = application.inputbox _
(prompt:=”indique o valor da multa”, _
title:=”multa”, type:=1)

on error goto 0

application.displayalerts = true

if lnum = 0 then

msgbox “tem que indicar um valor!” _
, vbexclamation, title:=”alerta pm consulting®:”
exit sub

else

range(“j1”).value = lnum

end if

end sub

[pmonica]

certíssimo jorge,
compreendi a diferença! É que o código que estava a utilizar era a adaptação de um outro tipo de inputbox para se selecionar uma célula (daí o range…). neste caso queremos é registar um valor numérico..

funciona, obviamente.

bfs
p.mónica

[Autor]

Artigos