Run Time error 13

[Darren Smith]

This code below says Run-time error 13 on this row

Set Tb = Body_And_Vehicle_Type_Form.TextBox6.

Can some somebody say why?

Sub Wing_Stay_Length()

Dim Tb As TextBox
Dim ws As Worksheet

Set ws = ThisWorkbook.Worksheets("Job Card Master")
Set Tb = Body_And_Vehicle_Type_Form.TextBox6

Select Case Tb.Value

Case ("Transit")
ws.Range("G24").Value = "550mm"

Case ("Sprinter")
ws.Range("G24").Value = "550mm"

Case ("Master")
ws.Range("G24").Value = "465mm"

Case ("Movano")
ws.Range("G24").Value = "465mm"

Case ("NV400")
ws.Range("G24").Value = "465mm"

Case ("Boxer")
ws.Range("G24").Value = "465mm"

Case ("Ducato")
ws.Range("G24").Value = "465mm"

Case ("Relay")
ws.Range("G24").Value = "465mm"

End Select

End Sub

 

[mohadin]

I would recomend

Private Sub TextBox6_Change()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("Job Card Master")
    Select Case Me.Value
    Case ("Transit")
        ws.Range("G24").Value = "550mm"
.
.
.

 

[Darren Smith]

Thank You work`s fine

 

[mohadin]

You are welcome
And thank you for the feedback
Be happy & safe

 

[Darren Smith]

Other thing is i need the code to find the word "Wings" in column C then go over 3 columns then down 1 row then fill in the cell.
Rather than a hard Range cell of "G24".
Could you help Please?

 

[MARK858]

Other thing is i need the code to find the word "Wings" in column C then go over 3 columns then down 1 row then fill in the cell.

Maybe (not sure exactly what you mean by fill in the cell so the below just puts xxx in the cell)...

Sub FindWings()
    Dim MyCell As Range

    Set MyCell = Columns("C").Find("Wings", , xlValues, xlWhole, xlByRows, xlNext, False)
    If Not MyCell Is Nothing Then MyCell.Offset(1, 3).Value = "xxx"

End Sub

 

[Darren Smith]

See the values I am trying to put into the cell below.
How can I join the cell range to these values?

Select Case Me.Value

Case ("Transit")
ws.Range.Value = "550mm"

Case ("Sprinter")
ws.Range.Value = "550mm"

Case ("Master")
ws.Range.Value = "465mm"

Case ("Movano")
ws.Range.Value = "465mm"

Case ("NV400")
ws.Range.Value = "465mm"

Case ("Boxer")
ws.Range.Value = "465mm"

Case ("Ducato")
ws.Range.Value = "465mm"

Case ("Relay")
ws.Range.Value = "465mm"

End Select

End Sub

 

[MARK858]

Dim MyCell As Range

    Set MyCell = ws.Columns("C").Find("Wings", , xlValues, xlWhole, xlByRows, xlNext, False).Offset(1, 3)
    If Not MyCell Is Nothing Then
    
        Select Case Me.Value

        Case ("Transit")
            MyCell.Value = "550mm"

        Case ("Sprinter")
            MyCell.Value = "550mm"

        Case ("Master")
            MyCell.Value = "465mm"

        Case ("Movano")
            MyCell.Value = "465mm"

        Case ("NV400")
            MyCell.Value = "465mm"

        Case ("Boxer")
            MyCell.Value = "465mm"

        Case ("Ducato")
            MyCell.Value = "465mm"

        Case ("Relay")
            MyCell.Value = "465mm"

        End Select

    End If

 

[Darren Smith]

Sorry does not work.
Would it be possible to send my workbook to you?

 

[MARK858]

No, you can upload it to a free file hosting site like www.box.com or www.dropbox.com, mark it for sharing then post the link it provides in the thread and someone will have a look at it.

Make sure that you have altered any sensitive data before uploading