Using userform textbox value in code result

Attach a sample workbook. Make sure there is just enough data to make it clear what is needed. Include a BEFORE sheet and an AFTER sheet in the workbook if needed to show the process you're trying to complete or automate. Make sure your desired results are demonstrated, mock them up manually if needed. Remember to desensitize the data.

Click on GO ADVANCED and use the paperclip icon to open the upload window.

View Pic

Not sure what UoWD is? You need to refer to the textbox value like so:

UserForm1.TextBox1.Value

Maybe attach your workbook with the form in it, if you're still struggling.

It might also be a nice idea to add a calendar control to select a date, rather than a text box

I can't the file is too large

' Sophisticated Letter & UoW Closure

   ElseIf MTT_Script.UoW = "Sophistication: Awaiting Uow Closure" And MTT_Script.Letter = "Sophisticated" Then
        Sheets("Sheet2").Select
        Range("D2:S32").Select
        Selection.ClearContents
        Selection.Font.Underline = xlUnderlineStyleNone
        Selection.Font.ColorIndex = 0
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .MergeCells = True
        .WrapText = True
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
    With Sheets("Sheet2").Range("D2:S32")
    End With
        .Value = "“Your case has been deemed Sophisticated which means you are not in scope of the review.“" & vbNewLine & _
        vbNewLine & _
        "“We wrote to you on " & Sheets("Sheet1").Range("P20") & " to advise you of this and to ask whether you wanted to provide further information“" & vbNewLine & _
        vbNewLine & _
        "“Have you received this letter?“" & vbNewLine & _
        "If No - Select the Unreceived Letters Button."
        .Font.Name = "Arial"
        .Font.Size = 22
        Range("A1").Select
    End With

Should clarify, Userform is called "MTT_Script" combobox is "called UoW" and texbox is called (UoWD).

I'd like to replace the below in the end script

" & Sheets("Sheet1").Range("P20") & "

with OllyXLS suggestion of

UserForm1.TextBox1.Value

Sorry, what has that code got to do with referencing the value of a userform textbox?

Originally Posted by OllyXLS

Sorry, what has that code got to do with referencing the value of a userform textbox?

I love it when people edit posts AFTER I've questioned them... Makes my posts look real smart!

Originally Posted by Izandol

Change Sheets("Sheet1").Range("P20") to MTT_Script.UoWD.Text

Yes, that should do it.