Code to select drop down entry based on other field selection

[Paul15]

Dear forum,

I have a workbook with a data entry form. I have VBA to place certain text and colours into fields based upon certain selections in other fields. I am looking to expand this as follows:

If in my cboPort field "house" is selected from the drop down then I wish my cboVess to auto populate to "train"

I guess it will be a simple If, Then statement but cant seem to get it

Regards

Paul

 

[Paul15]

Hi, have managed to get things working. thank all

 

[smozgur]

Glad to hear you have managed to get things working.

Do you mind posting about your solution? Then it is perfectly fine to mark your post as the solution to help future readers. Otherwise, please do not mark a post that doesn't contain a solution.

 

[Paul15]

Hi, thanks to smozgur for reminding me to share my fix for my question. I have changed values to protect what I'm doing but the result is the same. I wanted to auto populate certain fiends on my input for based upon other field selection. therefore saving a user from having to do more data input than was necessary. Always out for an easy life. The pribcilpe being, if a person is in a certain type accommodation, then my cbo.Vess will auto populate with the required result, saving this having to be selected.

hope this can be of use and regards

Private Sub Port_Change()

Dim IsLocked           As Boolean
    Dim Destination       As Variant

    Destination = Array("house", "hotel", "b&b")

    IsLocked = Not IsError(Application.Match(Me.Port.Text, Destination, 0))



'automatically selects building

    With Me.cboVess
        .Locked = IsLocked
        .Text = IIf(.Locked, "building", "")
    End With
    
End Sub