VIP
Trusted Members
June 25, 2016
Hi melissa
I assume you wanted a text box that can display more than one line. From the text box property, set Multiline to True
To close the Userform, you can add a command button and attach this code to it.
Private Sub CommandButton1_Click()
Unload Me
End Sub
Refer attachment for examples.
Hope this helps.
Sunny
April 3, 2017
Sorry Phil- I'm new to all these forums.
Why wont the text highlighted in bold work?
Private Sub Clear_Click()
ReportedBy = ""
IPAddress = ""
PatientUR = ""
Priority = ""
Classification = ""
Description = ""
ReportedTo = ""
End Sub
Private Sub CloseLog_Click()
Unload Me
End Sub
Private Sub EnterIssue_Click()
Dim LastRow As Range
Dim MosaiqManagementLog As ListObject
'Add row to bottom of MosaiqManagementLog
With Sheets("Mosaiq Management Log")
.ListObjects("MosaiqManager").ListRows.Add
'Enter data from form into our new row
Set MosaiqManagementLog = .ListObjects("MosaiqManager")
Set LastRow = MosaiqManagementLog.ListRows(MosaiqManagementLog.ListRows.Count).Range
With LastRow
.Cells(1, 1) = ReportedBy.Value
.Cells(1, 2) = IPAddress.Value
.Cells(1, 3) = PatientUR.Value
.Cells(1, 4) = Priority.Value
.Cells(1, 5) = Classification.Value
.Cells(1, 6) = Description.Value
.Cells(1, 7) = Date
.Cells(1, 8) = ReportedTo.Value
End With
End With
Unload Me
End Sub
1 Guest(s)