Posts by bugs63

I wanna thank you for trying. I know its confusing but i don't know how else to explain it. Thank You Again for trying .

the Save button is click only, all the other buttons on then form are for my use only they can not be access by the users. As for post #17, the repeated numbers i see what you are talking about, that was my fault. the form clears evetime it is saved. so I forgot I had already entered numbers in that time slot. .

The way the from should work Numbers are entered every hour into the from by different users.

Example one user will enter numbers at 12am, (0000Hours) and then log off. The next user will enter his or her numbers at 1am, (0100hours) then him or her will also log off. We also have some user that like to enter there numbers in the wrong time slot which is fine as long as they are the correct numbers. The Process of entering number and logging off is a 24 hours process that ends at 11pm(2300hours) daily. Here is the trick it all must appear on the worksheet under one Date and in one Row. at the end of lets say a week, all user numbers entered should have the date that they were enter by row, Even if the user picked the wrong time slot. All numbers enter are done on the From. I am the only on with access to the worksheet. .

The New Code you sent me Thank You again. I really appreciate you for trying to help me with this.

Maybe what i am asking for is not possible. when the Form unloads and then it's reloaded to enter a new set of numbers they are showing up in a different row and it all needs to be on the same row for the date in question. I 'am attaching the Database sheet with the code you provided so you can see what i am talking about.

Book 3.xlsm

I just tried the code you gave me Thank You for that. It dose work but it repeats the date 24 times and it is starting in Row # 3 and not row #2. It's also going down the column, I need it to go from Left to Right as if you were reading a book with. Thank You again for your time.

Ok trying it again

Book 3.xlsm

No, I have not tried it yet I work the graveyard shift from 10 pm to 6 am so not yet as soon as I get some time I will try it and let you I have seen it. Thank you for the instruction on how to upload the workbook. I am doing it from a computer at work and it's telling me the file is too big. So I will Try it on my Computer at home.

Book 3.xlsm

I do Not Know How to do that is it the same process as taking an image?.

The Following is an image one using the VBA code provided. The second image is what is needed.

this was inputted into the worksheet directly or manually might be a better word to use. As you can see in both images every Column has a Header with the times for every lot , Military time is used, starting with 0000ABC to 0000LotF this is repeated every hour. The next hour of course would be 0100ABC to 0100LotF and so on until column EO that is the last column on the worksheet, starting at 2300ABC to 2300LotF, that ends the counting process until the next day.

Thank You

Is There a Way to keep the same Date and Data in the same row on a worksheet with this code below?. I am trying to update a Hourly Count Sheet and the end users of the form need to close the program and re-enter the data for the next hour. on a daily bases. Is this possible?. Thank You. I have included The Module in this code.

Option Explicit


Private Sub cmdReset_Click()

Dim msgValue As VbMsgBoxResult
    
    msgValue = MsgBox("Do you want to Reset your counts", vbYesNo + vbInformation, "Hourly Space Counts")
    If msgValue = vbNo Then Exit Sub
    
    Call Reset


End Sub

Private Sub cmdSave_Click()
Dim msgValue As VbMsgBoxResult
    
    msgValue = MsgBox("Do you want to save your counts?", vbYesNo + vbInformation, "Hourly Space Counts")
    If msgValue = vbNo Then Exit Sub
    
    Call Submit
    


End Sub

Private Sub UserForm_Activate()

Dim C As Boolean
Do
If C = True Then Exit Sub
ClockTextBox = Format(Now, "HH:MM:SS")
DoEvents
Loop


End Sub

Private Sub UserForm_Initialize()

       lblDate1 = Format(Date, "mm/d/yyyy")
       lblDate2 = Format(Date, "mmmm d, yyyy")
       
       Call Reset
       
End Sub



"Module

Option Explicit


Sub Reset()

Dim iRow As Long
iRow = [CountA(Database!A:A)] 'idetifying the last row

With frmForm

    .txtRowNumber.Value = ""
    .lstDatabase.ColumnCount = 145
    .lstDatabase.ColumnHeads = True
    
    .lstDatabase.ColumnWidths = "125 ,91 ,91,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91 ,91,91,91,91,91,91"
    

  If iRow > 1 Then
    .lstDatabase.RowSource = "Database!A2: EO" & iRow
  Else
    .lstDatabase.RowSource = "Database!A2:EO2"
  End If
  
 End With
 
 End Sub
 
  Sub Submit()
 
 Dim sh As Worksheet
 Dim iRow As Long
 
 Set sh = ThisWorkbook.Sheets("Database")
     iRow = [CountA(Database!A:A)] + 1
 
        With sh
        .Cells(iRow, 2) = iRow - 1 'This Is The Dynamic Serial Number
        
        .Cells(iRow, 1) = frmForm.lblDate1.Value
        .Cells(iRow, 2) = frmForm.txt0000ABC.Value
        .Cells(iRow, 3) = frmForm.txt0000ConRac.Value
        .Cells(iRow, 4) = frmForm.txt0000P4.Value
        .Cells(iRow, 5) = frmForm.txt0000P6.Value
        .Cells(iRow, 6) = frmForm.txt0000Valet.Value
        .Cells(iRow, 7) = frmForm.txt0000LotF.Value
        .Cells(iRow, 8) = frmForm.txt0100ABC.Value
        .Cells(iRow, 9) = frmForm.txt0100ConRac.Value
        .Cells(iRow, 10) = frmForm.txt0100P4.Value
        .Cells(iRow, 11) = frmForm.txt0100P6.Value
        .Cells(iRow, 12) = frmForm.txt0100Valet.Value
        .Cells(iRow, 13) = frmForm.txt0100LotF.Value
        .Cells(iRow, 14) = frmForm.txt0200ABC.Value
        .Cells(iRow, 15) = frmForm.txt0200ConRac.Value
        .Cells(iRow, 16) = frmForm.txt0200P4.Value
        .Cells(iRow, 18) = frmForm.txt0200P6.Value
        .Cells(iRow, 17) = frmForm.txt0200Valet.Value
        .Cells(iRow, 18) = frmForm.txt0200LotF.Value
        .Cells(iRow, 19) = frmForm.txt0300ABC.Value
        .Cells(iRow, 20) = frmForm.txt0300ConRac.Value
        .Cells(iRow, 21) = frmForm.txt0300P4.Value
        .Cells(iRow, 22) = frmForm.txt0300P6.Value
        .Cells(iRow, 23) = frmForm.txt0300Valet.Value
        .Cells(iRow, 24) = frmForm.txt0300LotF.Value
        .Cells(iRow, 25) = frmForm.txt0400ABC.Value
        .Cells(iRow, 26) = frmForm.txt0400ConRac.Value
        .Cells(iRow, 27) = frmForm.txt0400P4.Value
        .Cells(iRow, 28) = frmForm.txt0400P6.Value
        .Cells(iRow, 29) = frmForm.txt0400Valet.Value
        .Cells(iRow, 30) = frmForm.txt0400LotF.Value
        .Cells(iRow, 31) = frmForm.txt0500ABC.Value
        .Cells(iRow, 32) = frmForm.txt0500ConRac.Value
        .Cells(iRow, 33) = frmForm.txt0500P4.Value
        .Cells(iRow, 34) = frmForm.txt0500P6.Value
        .Cells(iRow, 35) = frmForm.txt0500Valet.Value
        .Cells(iRow, 36) = frmForm.txt0500LotF.Value
        .Cells(iRow, 37) = frmForm.txt0600ABC.Value
        .Cells(iRow, 38) = frmForm.txt0600ConRac.Value
        .Cells(iRow, 39) = frmForm.txt0600P4.Value
        .Cells(iRow, 40) = frmForm.txt0600P6.Value
        .Cells(iRow, 41) = frmForm.txt0600Valet.Value
        .Cells(iRow, 42) = frmForm.txt0600LotF.Value
        .Cells(iRow, 43) = frmForm.txt0600ABC.Value
        .Cells(iRow, 44) = frmForm.txt0600ConRac.Value
        .Cells(iRow, 45) = frmForm.txt0600P4.Value
        .Cells(iRow, 46) = frmForm.txt0600P6.Value
        .Cells(iRow, 47) = frmForm.txt0600Valet.Value
        .Cells(iRow, 48) = frmForm.txt0600LotF.Value
        
        End With
        
End Sub
 
 Sub Show_From()
    frmForm.Show
 End Sub

I will try again i have to get my wording write so i do not cause any more problems. i need some time. Thank You so much for your understanding.

I am so sorry for the trouble i have started. I did not mean to cause any problem i will remove the post once again Sorry for the trouble. Still learning. Thank You.

As i am sure all can tell I'm still learning and i don't explain thing very well. Having side that i wanna Thank You all for your time.

Wow!! What has happen to this site it use to be a friendly site where the title of the assistance needed did not matter, as long as a reasonable explanation was given. You probably did not even read the the type of help needed you just saw the title.

thank you

1.The Cell to be protected is in column 13 cell M10

2.The Worksheet is not protect

Thank You.

I have this parking lot worksheet that is being used to track available spaces in a number of parking lots. I have a code that locks the enter sheet until a date is enter. What I need to happen is after the date is enter I need that 1 merged cell to be lock so no one can change the date. even if they go to a previous date I am enclosing a copy of the worksheet.Space Counts.xlsm I am also enclosing the code that lock the sheet until the date is entered. ("M10") is were the date goes.

Sub Auto_Open()

    Range("L9").Value = Now

    Application.OnTime Now + TimeValue("00:00:01"), "RunClock"

        Dim strFolder As String

        strFolder = "C:\Spaces\Space Counts.xlsm"

        Sheets("Sheet1").Range("M10").Select

    Dim res

    Do

    res = Application.InputBox("Enter The Date", "Hourly Spaces Counts")

        If IsDate(res) Then

        ActiveCell.Formula = DateValue(res)

    Exit Sub

    End If

        MsgBox "Invalid date", vbCritical, "Try again"

    Loop While Not IsDate(res)

End Sub

Once Again Sorry for the delay Response, But The Math portion is just part of the forms subtracting what the end user puts into the Textbox. The Computer generates a number based on the capacity of the Lot. What ever The End User Puts in the Textbox is subtracted from what the Computer is is showing at the time of the count.

I am sorry for the delay, That is what is being used right now but the end-users for whatever reason find it hard to use that form require the current date to be input so that the form unlocks If There is a way to lock the date cell or cells after input might help. another problem with that excel base form is when looking up a previous date it is asking for the date to re-enter i am enclosing a copy of the sheet so u can see what I am talking about, Space Counts.xlsm