Trigger copy on AfterUpdate event

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Snowsride - 22 Feb 2006 16:32 GMT

I have a spreadsheet with data in columns A - J. Column D contains a listbox
with a Yes/No selection.

If a cell in column D value is 'No' I want to copy the data from cell A of
the same row to Sheet 2 column B. As the user moves down the data then each
selection from the corresponding cell in column D should trigger the event
and the data in A of that row should be copied to Sheet 2 column B.

Help appreciated.

Reply to this Message

Tim Barlow - 23 Feb 2006 20:50 GMT

Try this placed on the sheet's module:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim previousRow As Long

previousRow = Target.Row - 1
If previousRow >= 1 Then
If UCase(Cells(previousRow, "D")) = "NO" Then
Worksheets("Sheet2").Cells(previousRow, "A") =
Cells(previousRow, "B")
End If
End If
End Sub

HTH

Tim

> I have a spreadsheet with data in columns A - J. Column D contains a listbox
> with a Yes/No selection.
[quoted text clipped - 5 lines]
>
> Help appreciated.

Reply to this Message