Log button press

[Trixafett]

I have a sheet called Inventory where a large number of items appear.
There is a quantity of stock for each item.
i did:
Range("G4").Value = Range("G4") + Range("N4") for each line on button press, this must be able to be done easier.

And i would also like to have a Log .txt file where evert time a push that button i add a line with button name, time, and username.

Can someone please help me.

 

[nemmi69]

To append to a text file you can use

Sub AppendFile()
Dim strFile_Path As String
Dim ApTxtLine As String

strFile_Path = "C:\somewhere\nameoffile.txt"
ApTxtLine = "Button X" & ", " & Application.UserName & ", " & Date & ", " & Time()

Open strFile_Path For Append As #1
Write #1, ApTxtLine
Close #1

End Sub

 

[Trixafett]

To append to a text file you can use

Sub AppendFile()
Dim strFile_Path As String
Dim ApTxtLine As String

strFile_Path = "C:\somewhere\nameoffile.txt"
ApTxtLine = "Button X" & ", " & Application.UserName & ", " & Date & ", " & Time()

Open strFile_Path For Append As #1
Write #1, ApTxtLine
Close #1

End Sub

Thank you for the response.

I fixed it myself

Option Explicit

Sub btnStk_Click()
    Dim rData As Range, arrData
    Dim i As Long
    Dim sName As Long
    Dim sNote As String
    Set rData = Sheets("Inventory").Range("A3").CurrentRegion
    arrData = rData.Value
    For i = 2 To UBound(arrData)
        If Len(arrData(i, 14)) > 0 And VBA.IsNumeric(arrData(i, 14)) Then
            arrData(i, 7) = arrData(i, 7) + arrData(i, 14)
            If Val(arrData(i, 14)) > 0 Then
                sNote = "Stock Added"
            Else
                sNote = "Stock Removed"
            End If
            ' Clear column C
            Sheets("Log").Range("A" & Rows.Count).End(xlUp).Offset(1).Resize(1, 5).Value _
                = Array(Now(), Environ("UserName"), sNote, arrData(i, 3), arrData(i, 14))
            arrData(i, 14) = ""
        End If
    Next
    rData.Value = arrData
End Sub