Question

Created a userform,but I'm having an issue with one part. I created a few combo boxes and when a user selects data from those combo boxes it should Auto populate information that I have stored on a separate Excel sheet into some text boxes that I added next to the combo boxes .
One of the combo boxes (cboEmp) is doing excatly what I want it to do,but the other combo box (cboGageNum) is not working properly.
I used the same format as the combo box that is working, so not sure what it's not correctly populating the data that I need into the text box. So when I select something from the combo box (cboGageNum) it pulls the data that I need and trasfers it into the combo box,but it won't pull the data that needs to go into the text box (should Autofill on it's own) (txtTool), and sometimes it doesn't pull anything. Is there a reason why it's doing this and is there a solution? Like I said, for the combo box (cboEmp) and the text box associated with that, everything works perfect there.

Also, what code can I use to have the form save on it's own once data is submitted when using the form?

Thank you in advance.

en.orrset (0, g).value = Me.chkIN.Value End If 'clear form End Sub Private Sub UserForm Initialize() Dim i As Long, LastRow As Long, LastR As Long, ws As Worksheet Dim y As Long Set ws = Worksheets ("TOOLS-EMP-EMP # ") LastRow = ws . Range ("A" & Rows.Count).End(x1Up).Row LastR ws.Range ("G" & Rows.Count) .End (xlUp) . Row this is for empnumber For i = 2 To LastRow "A"). Value Me.cboEmp.AddItem ws. Cells (ǐ, Next i this is for gagedescribtion For y = 2 To LastR Me.cboGageNum.AddItem ws.Cells (y, "G"). Value Nexty atches Value Private Sub cboEmp_Change () Dim i As Long, LastRow As Long, LastR As Long, ws As Worksheet Set ws - Worksheets ("TOOLS EMP EMP#") "LastR = ws .Range ("H" & Rows.count) .End (x1Up) .Row LastRow = ws . Range ("A" & Rows .count)·End (x10p).Row 'this is for empname For i = 2 To LastRow If Val (Me.cboEmp.Value) -ws.Cells (i, "A") Then MsgBox Me.cboEmp.Value Me.txtName =ws.cells (i, "B").value End If Next i End Sub Private Sub cboGageNum Change () Dim y As Long, LastRow As Long, LastR As Long, ws As Worksheet Set ws Worksheets ("TOOLS EMP-EMP#") LastR ws.Range ("G"&Rows. Count).End (xlUp) . Row 'this is for gagedescription For y 2 To LastR If Val (Me.cboGageNum. Value) ws.Cells (y, "G") Then "MsgBox Me.cboGageNum. Value Me.txtToo! = ws. Cells (у, "н") .Value End If Next y End Sub

Answer 1

Try this code. If the worksheet name doesn't exist then the code will create it.

Sub Copy_Data()
Dim r As Range, LastRow As Long, ws As Worksheet
Dim c As Range, s As String, LastRow1 As Long
Dim src As Worksheet, MyRange As Range
Dim LastRow3 As Long
Set src = Sheets("Sheet3")
LastRow = Sheets("Sheet2").Cells(Cells.Rows.Count, "A").End(xlUp).Row
Set MyRange = Sheets("Sheet2").Range("A2:A" & LastRow)
LastRow3 = src.Cells(Cells.Rows.Count, "B").End(xlUp).Row
For Each c In MyRange

For Each r In src.Range("B2:B" & LastRow3)
     If UCase(r.Value) = UCase(c.Value) Then
         On Error Resume Next
         Set ws = Sheets(CStr(r.Value))
         On Error GoTo 0
         If ws Is Nothing Then
             Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = CStr(r.Value)
             LastRow1 = Sheets(CStr(r.Value)).Cells(Cells.Rows.Count, "B").End(xlUp).Row
             src.Rows(r.Row).Copy Sheets(CStr(r.Value)).Cells(LastRow1 + 1, 1)
             Set ws = Nothing
         Else
             LastRow1 = Sheets(CStr(r.Value)).Cells(Cells.Rows.Count, "B").End(xlUp).Row
             src.Rows(r.Row).Copy Sheets(CStr(r.Value)).Cells(LastRow1 + 1, 1)
             Set ws = Nothing
         End If
     End If
Next r

Next c
End Sub