Improve company productivity with a Business Account.Sign Up

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 98
  • Last Modified:

Adding subtask that shows in userform and then creates in new row

Hello guys, i have created this userform and got it to work up to the point of the information text in the textbox send to a new row.

What i want in addition is that when i click on a row and then click on the button called add_subtask
***Have that row of column (D and E) shown on the userform.
***When clicked on the userform option button (ADD SUBTASK) have all the information on the userform sent to a new row. Demonstration is on attachment and code is underneath this line, i would appreciate it a mil Experts Exchange users and thanks for your time.

Demonstration 1Demonstration 2Demonstration 3
Private Sub CommandButton1_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 CommandButton2_Click()
Unload Me
End Sub

Open in new window

0
Omar Hernandez
Asked:
Omar Hernandez
  • 4
  • 3
1 Solution
 
Saqib Husain, SyedEngineerCommented:
How about uploading an excel file?
0
 
Omar HernandezAuthor Commented:
please see attachment underneath this comment
0
 
Omar HernandezAuthor Commented:
Thanks for your fast response, please see attachment underneath this comment
TO-DO-8-29.xlsm
0
Free Tool: IP Lookup

Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

 
Saqib Husain, SyedEngineerCommented:
Add this sub to the userform module below the CommandButton1_Click() sub

Private Sub UserForm_Activate()
    If ActiveCell.EntireRow.Cells(1, 4) <> "" Then Label3.Caption = ActiveCell.EntireRow.Cells(1, 4)
    If ActiveCell.EntireRow.Cells(1, 5) <> "" Then Label4.Caption = ActiveCell.EntireRow.Cells(1, 5)
End Sub

Open in new window


and in the CommandButton1_Click() sub below the line
ws.Cells(iRow, 3).Value = Me.textbox_name.Value

Open in new window

add
ws.Cells(iRow, 4).Value = Me.Label4.Caption
ws.Cells(iRow, 5).Value = Me.Label3.Caption

Open in new window

0
 
Omar HernandezAuthor Commented:
thanks saqib It works any chance it can display the information retrieved from column d and e, when pressed on the (add subtask) button before hitting enter.
0
 
Saqib Husain, SyedEngineerCommented:
It should display as soon as the userform is activated.
0
 
Omar HernandezAuthor Commented:
Thanks a mil Saqib Husain for your help
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

The 14th Annual Expert Award Winners

The results are in! Meet the top members of our 2017 Expert Awards. Congratulations to all who qualified!

  • 4
  • 3
Tackle projects and never again get stuck behind a technical roadblock.
Join Now