Text in VBA

[Guest]

Hello,

I'd like, if possible, in VBA to have an inputbox that will allow me to
write a text in J1 if B1 has value but J1 is empty.
Is that possible?

 

[Frank Kabel]

Hi
how should this inputbox be invoked?

 

[Guest]

This inputbox should be invoked if J1 is empty and B1 has a value.
Thanks,

 

[Frank Kabel]

Hi
but THEN should this happen:
- do you want to click a button
- should it appear after entering something in B1

 

[Guest]

Hi,

Yes. I want to click on button and it should appear after entering something
in B1
Regards,

 

[Frank Kabel]

Hi
try the following macro (assign it to a button):
sub foo()
dim res
with activesheet
if .range("B1").value<>"" and .range("J1").value = "" then
res = inputbox("Enter data for J1")
.range("J1").value=res
end with
end sub

 

[Guest]

Hi,
Thank you.
Jeff