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
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
Forum Posts: 1917
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: Alan Sidman, Fluff, Riny van Eekelen, Shraddha Sureka, Jordan Helman
Guest(s) 10
Currently Browsing this Page:
1 Guest(s)
1 Guest(s)
Top Posters:
Catalin Bombea: 1917
SunnyKow: 1432
Anders Sehlstedt: 900
Purfleet: 414
Frans Visser: 346
David_Ng: 306
Hans Hallebeek: 287
lea cohen: 246
Jessica Stewart: 219
A.Maurizio: 216
Newest Members:
Ben Tooke
Kelsey Fennell
Jeffree Bunning
Jackie Memije
John Franzon
Darcie Clayton
trevor mir
Ruby White
Marisa Bradshaw
Eugene Augustine
Forum Stats:
Groups: 3
Forums: 24
Topics: 6872
Posts: 30122
Member Stats:
Guest Posters: 49
Members: 33669
Moderators: 2
Admins: 3
Administrators: Mynda Treacy, Philip Treacy, Jessica
Moderators: Velouria, Riny van Eekelen
© Simple:Press —