
Catalin Bombea
Iasi, Romania
Admin

Forum Posts: 1845
Member Since:
November 8, 2013
November 8, 2013

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: Terry Hedditch, Shoua Lee, Glenda Reynolds, Hilary Burchfield
Guest(s) 11
Currently Browsing this Page:
1 Guest(s)
1 Guest(s)
Top Posters:
SunnyKow: 1432
Anders Sehlstedt: 880
Purfleet: 414
Frans Visser: 346
David_Ng: 306
lea cohen: 237
Jessica Stewart: 219
A.Maurizio: 213
Aye Mu: 201
Hans Hallebeek: 185
Newest Members:
Kwaje Alfred Mogga
thong nguyen
Appiagyei Kofi Frimpong
Hilary Burchfield
Richie Wright
Adel Kock
Barbara Murray
Doug Milne
Siobhan Stringer
Rob Rooth
Forum Stats:
Groups: 3
Forums: 24
Topics: 6545
Posts: 28653
Member Stats:
Guest Posters: 49
Members: 32831
Moderators: 2
Admins: 4
Administrators: Mynda Treacy, Philip Treacy, Catalin Bombea, FT
Moderators: Velouria, Riny van Eekelen
© Simple:Press —
