Posts by JoeHelpexcel

  • Auto Sort

    I'm trying to create a VBA and sort a range of cells on Sheet1 to auto sort upon the workbook opening. I have headers along row A4:I4 and data beneath these headers from A5:I100. I would like to create a VBA that sorts the data in A5:I100 based on header A4.. thank you

  • Hide and unhide sheets

    I have a workbook that opens to a specific sheet ("Home") and activates a user form ("ssheets"). on this form i have buttons that store data on several different sheets and it also displays the sheet recieving data within the same workbook. my problem is when i hide the sheets receiving data, the button no long displays the sheet. can you advice me on what modification i can make to the following code.. thanks


    SSHEETS CODE


    Private Sub SaveViewCity_Click()
    Dim ssheet As Worksheet
    If Me.CityList = "Select" Then
    Me.CityList.SetFocus
    MsgBox "Please select a station", vbExclamation
    Exit Sub
    End If
    If Me.TBUser2 = "Last name" Then
    Me.TBUser2.SetFocus
    MsgBox "Please provide a name", vbExclamation
    Exit Sub
    End If
    If Me.MoSched = "Select" Then
    Me.MoSched.SetFocus
    MsgBox "Please select a schedule", vbExclamation
    Exit Sub
    End If
    If Me.SchedCompliance = "Select" Then
    Me.SchedCompliance.SetFocus
    MsgBox "Please select the compliance status", vbExclamation
    Exit Sub
    End If
    Set ssheet = ThisWorkbook.Sheets(Me.CityList.Value)
    On Error Resume Next
    Do
    Err.Clear
    nr = ssheet.Cells(Rows.Count, "A").End(xlUp).Row + 1
    ssheet.Cells(nr, 1).Resize(, 6) = Array(Me.TBDate, Me.MoSched, Me.TBUser, Me.SchedCompliance, Me.TBUser1, Me.TBUser2)
    Continue:
    Loop While Err.Number > 0
    On Error GoTo 0
    ThisWorkbook.Save
    ThisWorkbook.Sheets(Me.CityList.Value).Activate
    Unload ssheets
    End Sub


    WORKBOOK CODE


    Private Sub Workbook_Activate()
    ActiveWorkbook.Sheets("Home").Activate
    ssheets.Show
    End Sub

  • Compile Information

    I have 5 sheets (12345)with the same format, the format consists of 5 headers ABCDE and data populates below each header. Is it possible to have all of this data displayed on 1 main sheet with the same header? Basically, continuously capture a record from all sheets into one main sheet without erasing the previous.. thank you

  • Next open row

    Re: Next open row


    Its a shared workbook where multiple users can enter data collected on sheet1.. for some reason that i dont understand, when 2 users enter data simultaneously only one user entry appears.. cant figure out how to attach the doc on this site

  • Next open row

    Re: Next open row


    I need the combo box and text box entries to populate on the designated sheet and have the workbook close and save automatically for each user.. for some reason i cant get multiple entries to save because of a same row occupied error.. can you hlp?

  • Next open row

    Re: Next open row


    Thank you.. but it seems to still only populate one entry.. myself and another user enter data simultaneously and when i reopen the workbook it only displays one record.. how can i have it display both entries?

  • Next open row

    My users keep getting the same window "Resolve Conflicts" I know its related to the same row being populated with data i just dont know how to modify the VBA.. i need to except all data and have the entry occupy the next open row..thank you


    Private Sub saveclose_Click()
    Dim ssheet As Worksheet
    Set ssheet = ThisWorkbook.Sheets("sheet1")
    nr = ssheet.Cells(Rows.Count, 1).End(-4162).Row + 1
    ssheet.Cells(nr, 1) = Me.TBDate
    ssheet.Cells(nr, 2) = Me.CmbListItem
    ssheet.Cells(nr, 3) = Me.TBUser
    ssheet.Cells(nr, 4) = Me.ComboListItem2
    ThisWorkbook.Save
    ThisWorkbook.Close
    Application.Quit
    End Sub