Solved

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

Posted on 2016-08-29
7
45 Views
Last Modified: 2016-08-29
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
Comment
Question by:Omar Hernandez
  • 4
  • 3
7 Comments
 
LVL 43

Expert Comment

by:Saqib Husain, Syed
ID: 41775141
How about uploading an excel file?
0
 

Author Comment

by:Omar Hernandez
ID: 41775392
please see attachment underneath this comment
0
 

Author Comment

by:Omar Hernandez
ID: 41775393
Thanks for your fast response, please see attachment underneath this comment
TO-DO-8-29.xlsm
0
Master Your Team's Linux and Cloud Stack

Come see why top tech companies like Mailchimp and Media Temple use Linux Academy to build their employee training programs.

 
LVL 43

Expert Comment

by:Saqib Husain, Syed
ID: 41775774
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
 

Author Comment

by:Omar Hernandez
ID: 41775781
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
 
LVL 43

Accepted Solution

by:
Saqib Husain, Syed earned 500 total points
ID: 41775800
It should display as soon as the userform is activated.
0
 

Author Closing Comment

by:Omar Hernandez
ID: 41775803
Thanks a mil Saqib Husain for your help
0

Featured Post

Efficient way to get backups off site to Azure

This user guide provides instructions on how to deploy and configure both a StoneFly Scale Out NAS Enterprise Cloud Drive virtual machine and Veeam Cloud Connect in the Microsoft Azure Cloud.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Improved? Move/Copy Add-in Replacement - How to avoid the annoying, “A formula or sheet you want to move or copy contains the name XXX, which already exists on the destination worksheet.” David Miller (dlmille)  It was one of those days… I wa…
Workbook link problems after copying tabs to a new workbook? David Miller (dlmille) Intro Have you either copied sheets to a new workbook, and after having saved and opened that workbook, you find that there are links back to the original sou…
This Micro Tutorial demonstrate the bugs in Microsoft Excel for Mac with Pivot Charts.
This Micro Tutorial will demonstrate how to use a scrolling table in Microsoft Excel using the INDEX function.

832 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question