Userform for battery logging

[CameronGates]

[TABLE="class: grid, width: 500, align: center"]
<tbody>[TR]
[TD]Battery[/TD]
[TD]lift [/TD]
[TD]hours in[/TD]
[TD]hours out[/TD]
[TD]blank[/TD]
[TD]lift [/TD]
[TD]hours in [/TD]
[TD]hours out[/TD]
[TD]blank [/TD]
[TD][/TD]
[/TR]
[TR]
[TD]RR01
[/TD]
[TD]RR23[/TD]
[TD][/TD]
[TD]1545[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]RR02[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]RR03[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]RR04[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]RR05[/TD]
[TD]RR23[/TD]
[TD]1545[/TD]
[TD]1550[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]RR06[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]RR07[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]RR08[/TD]
[TD]RR23[/TD]
[TD]1550[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]RR09[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]


So I've got a spreadsheet formatted like this and I'd like to make a userform for it but am quite illiterate when it comes to Visual Basic. Basically this is a battery run time chart that is used to track how long the batteries are last between changes. When a lift comes in you populate the lift field with the lift number on the corresponding battery row and then populate the hours out with the hours from the lift. Then you populate the Lift number in the lift field with the corresponding battery row for the battery you are now inserting into the lift and then in the hours in field you populate it with the same hours you had in the hours out with the old depleted battery. We have three different people inputting data into this spreadsheet that are quite illiterate with spreadsheet data entry so a userform would be a great way to remove much of the human error out of data entry in this spreadsheet. Any help would be much appreciated!!!!

 

[Logit]

.
It's probably just me but ...

... what is a "LIFT" ?

... why does a "LIFT" use different batteries ?

... why does "LIFT" RR23 begin with battery RR01 / out at 1545 but that battery is never checked back in ?

... why does "LIFT" RR23 use three different batteries within 5 minutes time ?

 

[CameronGates]

.
It's probably just me but ...

... what is a "LIFT" ?

... why does a "LIFT" use different batteries ?

... why does "LIFT" RR23 begin with battery RR01 / out at 1545 but that battery is never checked back in ?

... why does "LIFT" RR23 use three different batteries within 5 minutes time ?

I'm sorry let me clarify. A lift is a Forklift that is battery powered. RR23 is the lift number (I know I don't think batteries and lifts aught to be labeled the same however they are here). Basically we have 26 RR Lifts and 65 RR batteries. I was just giving an example of how the spreadsheet works with RR23 being the example lift and hours.

 

[CameronGates]

Also that's 1,545 hours. These batteries last about 5 to 6 hours before needing a charge.

 

[Logit]

.
Here is a sample of the macro :

Option Explicit
Private Sub btnCancel_Click()
    Unload Me
End Sub


Private Sub btnOK_Click()
    Dim ws As Worksheet
    Set ws = Sheets("Database")
    Dim newRow As Long
    
    newRow = Application.WorksheetFunction.CountA(ws.Range("A:A")) + 1
    
    'The next two lines can be expanded as many times as needed for all the entry fields in your project
    
    ws.Cells(newRow, 1).Value = Me.txtLift.Text
    ws.Cells(newRow, 2).Value = Me.txtBattery.Text
    ws.Cells(newRow, 3).Value = Me.txtHoursOut.Text
    
    Me.txtLift.Text = ""
    Me.txtBattery.Text = ""
    Me.txtHoursOut.Text = ""
    
    btnCancel_Click
    
End Sub

Download workbook : https://www.amazon.com/clouddrive/share/1NozGX3iu1fYPzn1Rr85qwVxRaC06dtHlWPK8RUeHZU

 

[Logit]

.
This is a different version using DROP DOWN controls which should minimize or eliminate entry errors.


Download workbook : https://www.amazon.com/clouddrive/share/ydxBplvupe6Vngc59OZFR0QhywXIqIHvYlTtiHX59wz

 

[Logit]

.
Workbook 2 link is incorrect.

Please use this one : https://www.amazon.com/clouddrive/share/lpDMHTUBRwNTkOGrR65GRRhigczfCZV7Eb3HPovLidW

 

[CameronGates]

Thank you very much for helping me out with this!!! I'm trying to download it now but I'm at work so it may be blocking me. As soon as I get to my house I will try it out. Thanks again!

 

[Logit]

.
You are welcome.

Take note the second version has a report feature on the DATABASE tab.
You will need to 'unhide' that tab to access it.

 

[Logit]

.
Received your PM.

Your mailbox is full so I cannot respond to you privately. You will need to empty your mailbox.