NOTE: I POSTED THIS A COUPLE WEEKS AGO, GOT SOME HELP BUT ULTIMATELY DID NOT GET IT WORKING.
AND NOW ALONG WITH THE ISSUES BELOW, MANY OF THE SHEETS OR BEING "HIDDEN" WHEN ATTEMPTING TO GET THE USERFORM WORKING.
QUICK BACKSTORY: Our line of work requires us to do a lot of documentation, the work is documented on "forms". So I put together this
QA WORKBOOK BUILDER. It uses the "Entry form" tab to populate many of the documents required. PROBLEM IS: Im still fairly new with VBA so please forgive me.
ISSUE: On the start tab, when clicking the the logo it brings the "userform" up. I select the right data (Dates, Ship, Location, Task# etc.... but it wont populate the "entry form" sheet. This is prob something simple, again I've tried many different ways but cannot seem to get it to work. Here's what I have so far, the cells in the code below are the correct cells I'm looking to update, but cant seem to get it to function. I've also attached a link to the sheet below~ Any help would be awesome!!!
Private Sub CommandButton1_Click()
With Sheets("Entry_form")
.Range("B9").Value = Me.ListBox1.Texthttps://drive.google.com/open?id=1o9rkYO5I3f2JrnxNWGiFWHVAKlG2ZrRb
.Range("B4").Value = Me.ListBox2.Text
.Range("B20").Value = Me.DTPicker1.Value
.Range("B21").Value = Me.DTPicker2.Value
.Range("B13").Value = Me.TextBox1.Value
End With
End Sub
AND NOW ALONG WITH THE ISSUES BELOW, MANY OF THE SHEETS OR BEING "HIDDEN" WHEN ATTEMPTING TO GET THE USERFORM WORKING.
QUICK BACKSTORY: Our line of work requires us to do a lot of documentation, the work is documented on "forms". So I put together this
QA WORKBOOK BUILDER. It uses the "Entry form" tab to populate many of the documents required. PROBLEM IS: Im still fairly new with VBA so please forgive me.
ISSUE: On the start tab, when clicking the the logo it brings the "userform" up. I select the right data (Dates, Ship, Location, Task# etc.... but it wont populate the "entry form" sheet. This is prob something simple, again I've tried many different ways but cannot seem to get it to work. Here's what I have so far, the cells in the code below are the correct cells I'm looking to update, but cant seem to get it to function. I've also attached a link to the sheet below~ Any help would be awesome!!!
Private Sub CommandButton1_Click()
With Sheets("Entry_form")
.Range("B9").Value = Me.ListBox1.Texthttps://drive.google.com/open?id=1o9rkYO5I3f2JrnxNWGiFWHVAKlG2ZrRb
.Range("B4").Value = Me.ListBox2.Text
.Range("B20").Value = Me.DTPicker1.Value
.Range("B21").Value = Me.DTPicker2.Value
.Range("B13").Value = Me.TextBox1.Value
End With
End Sub
