Click to count usage with value + date

1.jpg

Hello, i wanto to use the userform i send in image to count the usage of four itens.

if i click command 1 it will automaticly appear on cell a1 the number 1 and on cell a2 the date/time of the click. if command was clicked again the value would appear on the row below.


The two command buttons bellow are used tho show or hide excel sheet. and the ohter one is a save and exit.

Could anyone help me with the code?

thanks

Welcome to the forum! Good job posting an image. Often, a simple example attached file is a good way to help others help you. Attach by clicking the Go Advanced button in lower right of a reply box, and click the paperclip icon in toolbar or Manage Attachments link below reply box.

Always test on a backup copy.

In the userform's code:

Please Login or Register  to view this content.

Thanks.

I´ve tested the code and changed to the other command buttons.

Private Sub CommandButton1_Click()
Dim r As Range, ws As Worksheet, calc As Integer

Set ws = ActiveSheet 'Sheet1, Worksheets("Sheet1")

calc = Application.Calculation
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
Application.EnableEvents = False

With ws
Set r = ws.Cells(ws.Rows.Count, "A").End(xlUp).Offset(1)
'Row 1 is usually a columns title row so line is seldom needed.
If r.Offset(-1).Value = "" Then Set r = r.Offset(-1) 'A1 could be ""
r.Value = WorksheetFunction.Max(ws.Columns("A")) + 1
With r.Offset(, 1)
.Value = Now
.NumberFormat = "mm/dd/yyyy h:mm:ss am/pm"
End With
End With

Application.Calculation = calc
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub


Private Sub CommandButton2_Click()

Dim r As Range, ws As Worksheet, calc As Integer

Set ws = ActiveSheet 'Sheet1, Worksheets("Sheet1")

calc = Application.Calculation
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
Application.EnableEvents = False

With ws
Set r = ws.Cells(ws.Rows.Count, "C").End(xlUp).Offset(1)
'Row 1 is usually a columns title row so line is seldom needed.
If r.Offset(-1).Value = "" Then Set r = r.Offset(-1) 'C1 could be ""
r.Value = WorksheetFunction.Max(ws.Columns("C")) + 1
With r.Offset(, 1)
.Value = Now
.NumberFormat = "mm/dd/yyyy h:mm:ss am/pm"
End With
End With

Application.Calculation = calc
Application.ScreenUpdating = True
Application.EnableEvents = True

End Sub

Private Sub CommandButton3_Click()

Dim r As Range, ws As Worksheet, calc As Integer

Set ws = ActiveSheet 'Sheet1, Worksheets("Sheet1")

calc = Application.Calculation
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
Application.EnableEvents = False

With ws
Set r = ws.Cells(ws.Rows.Count, "E").End(xlUp).Offset(1)
'Row 1 is usually a columns title row so line is seldom needed.
If r.Offset(-1).Value = "" Then Set r = r.Offset(-1) 'E1 could be ""
r.Value = WorksheetFunction.Max(ws.Columns("E")) + 1
With r.Offset(, 1)
.Value = Now
.NumberFormat = "mm/dd/yyyy h:mm:ss am/pm"
End With
End With

Application.Calculation = calc
Application.ScreenUpdating = True
Application.EnableEvents = True

End Sub

Private Sub CommandButton4_Click()
Dim r As Range, ws As Worksheet, calc As Integer

Set ws = ActiveSheet 'Sheet1, Worksheets("Sheet1")

calc = Application.Calculation
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
Application.EnableEvents = False

With ws
Set r = ws.Cells(ws.Rows.Count, "G").End(xlUp).Offset(1)
'Row 1 is usually a columns title row so line is seldom needed.
If r.Offset(-1).Value = "" Then Set r = r.Offset(-1) 'G1 could be ""
r.Value = WorksheetFunction.Max(ws.Columns("G")) + 1
With r.Offset(, 1)
.Value = Now
.NumberFormat = "mm/dd/yyyy h:mm:ss am/pm"
End With
End With

Application.Calculation = calc
Application.ScreenUpdating = True
Application.EnableEvents = True

End Sub



'Save (what, workbook) and exit
Private Sub CommandButton5_Click()
ThisWorkbook.Save
Unload Me
End Sub

Private Sub CommandButton6_Click()

Dim ws As Worksheet
Set ws = ActiveSheet 'Sheet1, Worksheets("Sheet1")
ws.Visible = xlSheetHidden

End Sub

Private Sub CommandButton7_Click()

Dim ws As Worksheet
Set ws = ActiveSheet 'Sheet1, Worksheets("Sheet1")
ws.Visible = xlSheetVisible
End Sub

Am still having a problema to show or hide teh excel sheet and i have anoyher question. im reaaly a newbie in this.

How can i make teh userform load on excel startup?

In threaded forums, there is no need to quote a previous reply. Even if multiple posts, you can just say for example: in post #2, the code is...

In VBE, open Project Explorer, View menu or Ctrl+R. Double click Thisworkbook object and paste:

Please Login or Register  to view this content.

If you are dealing with the same sheet, it is best to more explicit sheet references like the codename. e.g.

Please Login or Register  to view this content.

It worked with this code:

Private Sub CommandButton6_Click()

Application.Visible = True
Me.Hide

End Sub

But know it hides all excell workbooks. Is there a way to hide only this one?