Input the word FOLDER in column (D) automatically

[kalua1231]

Userform is working, when i click enter the word written in the userform will be display in Column (C).

What i would like is to have it automatically input the word FOLDER in column (D) with it.Thank you

Please if you need more information please ask.

 

[kalua1231]

FYI the Userform button is the Green square name (ADD FOLDER), remember the actual userform is working i just want it to also input automatically the word FOLDER in COLUMN (D), so that it can show beside the information that will be displayed in Column (C).

 

[kalua1231]

This is the actual Code on the userform
-----------------------------------------------------------------------------------

Private Sub Cmdbuttom_add_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("GENERAL")

'find first empty row in database
iRow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row

'check for a Name number
If Trim(Me.textbox_name.Value) = "" Then
Me.textbox_name.SetFocus
MsgBox "Please complete the form"
Exit Sub
End If

'copy the data to the database
ws.Cells(iRow, 3).Value = Me.textbox_name.Value

MsgBox "Data added", vbOKOnly + vbInformation, "Data Added"
'clear the data
Me.textbox_name.Value = ""
Me.textbox_name.SetFocus
End Sub

Private Sub Cmdbuttom_close_Click()
Unload Me
End Sub

 

[kalua1231]

Hey guys i found out how to solve this, what i did was copy and paste

ws.Cells(iRow, 3).Value = Me.textbox_name.Value
ws.Cells(iRow, 4).Value = "FOLDER"

Changed the Row to 4 and "FOLDER"