message box to apply to range

[Rogerisit]

Hi all,

VBA question. I need to use more than one exchange rate, so I have a message box as I want manual input of rates for Euros, however at the moment the box comes up for every line of euros. Can you please help so I only have to input rate once.

'tax rate
For I = 2 To lastrow1
If SOP.Range("a" & I).Value <> "" Then
If SOP.Range("E" & I) Like "*GBP*" Then
xrate = "'1."
SOP.Range("E" & I).Offset(0, 6) = xrate
Else
myInputBoxVariable = Application.InputBox("Current EUR Exchange Rate?", "Please Enter Rate", , , , , , "2")
SOP.Range("E" & I).Offset(0, 6) = myInputBoxVariable
End If
End If
Next I

 

[dmt32]

Hi
try changing this line

myInputBoxVariable = Application.InputBox("Current EUR Exchange Rate?", "Please Enter Rate", , , , , , "2")

to this

If Len(myInputBoxVariable) = 0 Then myInputBoxVariable = Application.InputBox("Current EUR Exchange Rate?", "Please Enter Rate", , , , , , "2")

and see if does what you want

Dave

 

[Peter_SSs]

Edit: I got interrupted while composing my post so missed Dave's post which is basically the same as my proposal.
Anyway, I'll leave my post for the other two points I made as well.

I suggest that you update your Account details (or click your user name at the top right of the forum) so helpers always know what Excel version(s) & platform(s) you are using as the best solution often varies by version. (Don’t forget to scroll down & ‘Save’)

When posting vba code in the forum, please use the available code tags. It makes your code much easier to read/debug & copy. My signature block below has more details. I have added the tags for you this time.

Try making this change in your code.

myInputBoxVariable = Application.InputBox("Current EUR Exchange Rate?", "Please Enter Rate", , , , , , "2")
If IsEmpty(myInputBoxVariable) Then myInputBoxVariable = Application.InputBox("Current EUR Exchange Rate?", "Please Enter Rate", , , , , , 2)