Please help a beginner....

[Lindsey]

Now, I'm very new too all of this so please be gentle with me!

I am trying to create a User Form for people to book equipment throug
and I'm getting there but I'm finding a couple of things problematic:

The information my colleagues fill out on the User Form load into
spreadsheet when the order is submitted. This spreadsheet has separat
columns for Equipment, Location, Shipping Date and Return Date.

I have the following code:

If chkItemX.Value = True And Range("D10").Value = "Company Name" Then
Range("F10").Value = txtEvent.Text
Range("G10").Value = txtShipping.Text
Range("H10").Value = txtReturn.Text
ElseIf chkItemX.Value = True And Range("D10").Value = "USA" Then
MsgBox "Item X Is Unavailable"
ElseIf chkItemX.Value = False Then
End If

Which is all very well and good if the equipment is either with us o
in the USA however, what I really want to be able to say somethin
like:

If chkItemX.Value = True And Range("D10").Value = "Company Name" Then
Range("F10").Value = txtEvent.Text
Range("G10").Value = txtShipping.Text
Range("H10").Value = txtReturn.Text
ElseIf chkItemX.Value = True And Range("D10").Value = "Anything Othe
Than Company Name" Then
MsgBox "Item X Is Unavailable"
ElseIf chkItemX.Value = False Then
End If

But I have no idea how to write the code for the bit 'Range("D10).Valu
= "Anything Other Than Company Name".....any ideas.....am I making an
sense....?

Thank you for bearing with me,

L

 

[Bob Phillips]

If chkItemX.Value = True And Range("D10").Value = "Company Name" Then
Range("F10").Value = txtEvent.Text
Range("G10").Value = txtShipping.Text
Range("H10").Value = txtReturn.Text
ElseIf chkItemX.Value = True And Range("D10").Value <> "Company Name" Then
MsgBox "Item X Is Unavailable"
ElseIf chkItemX.Value = False Then
End If


--

HTH

RP
(remove nothere from the email address if mailing direct)

 

[Lindsey]

Thank you, that works perfectly.

L