Catalin Bombea
Iasi, Romania
Member
Dashboards
Power Query
Power Pivot
Xtreme Pivot Tables
Excel for Decision Making
Excel for Finance
Excel Analysis Toolpak
Power BI
Excel
Word
Outlook
Excel Expert
Excel Customer Service
PowerPoint
Power Query
Power Pivot
Xtreme Pivot Tables
Excel for Decision Making
Excel for Finance
Excel Analysis Toolpak
Power BI
Excel
Word
Outlook
Excel Expert
Excel Customer Service
PowerPoint
Forum Posts: 1939
Member Since:
November 8, 2013
November 8, 2013
Offline
Hi Jay,
You can use the Change event of that worksheet. Put the code below in that worksheet vb module:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Me.Cells(2, "B")) Is Nothing Then
Dim Dt As Date: Dt = Now
Dim Arr As Variant: Arr = Me.Range("B2:B10")
Dim NextRow As Long: NextRow = Me.Cells(Me.Rows.Count, "H").End(xlUp).Row + 1
Me.Cells(NextRow, "G") = Format(Dt, "hh:mm:ss")
Me.Range("H" & NextRow & ":P" & NextRow).Value = Application.Transpose(Arr)
End If
End Sub
The code is monitoring cell B2 only, I assume if there is a change here, all cells from B2:B10 will be changed.
Forum Timezone: Australia/Brisbane
Most Users Ever Online: 245
Currently Online:
Guest(s) 9
Currently Browsing this Page:
1 Guest(s)
1 Guest(s)
Top Posters:
Catalin Bombea: 1939
SunnyKow: 1432
Anders Sehlstedt: 919
Purfleet: 415
Frans Visser: 349
Hans Hallebeek: 339
David_Ng: 306
lea cohen: 248
Jessica Stewart: 219
A.Maurizio: 216
Newest Members:
Michael Denton
Nick Pascal
David Webb
Johannes Bruentrup
John Jay
Larry Silverman
David Rousseau
Melinda Heidemann
Jose Fuentes
Abigail Hernandez
Forum Stats:
Groups: 3
Forums: 25
Topics: 7072
Posts: 30993
Member Stats:
Guest Posters: 49
Members: 34469
Moderators: 2
Admins: 3
Administrators: Mynda Treacy, Philip Treacy, Jessica
Moderators: Velouria, Riny van Eekelen
© Simple:Press —