Compare cells and force most recent change
Jacob, Your the best...
"Jacob Skaria" wrote:
You dont need to loop..Either use Range.Find or
worksheetfunction.Match...Select the sheet tab 2 which you want to work with.
Right click the sheet tab and click on 'View Code'. This will launch VBE.
Paste the below code to the right blank portion. Get back to to workbook and
try out.
PS: The 1st sheet is referred as 'Sheet1;. Change to suit your requirement
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ws As Worksheet, rngTemp As Range
If Not Application.Intersect(Target, Range("P1:P100")) Is Nothing Then
If Target.Cells.Count = 1 And Trim(Range("B" & Target.Row)) < "" Then
Set ws = Worksheets("Sheet1"): Application.EnableEvents = False
Set rngTemp = ws.Columns(2).Find(Range("B" & Target.Row))
If Not rngTemp Is Nothing Then ws.Range("P" & rngTemp.Row) = Target.Text
End If
End If
Application.EnableEvents = True
End Sub
If this post helps click Yes
---------------
Jacob Skaria
"Looping through" wrote:
Is it possible to type some text into a cell on page 2 and force the changes
to a matching cell in sheet 1.
I.E
Sheet 2 line # 386, Note (Cell P386) = "10/1/09 - Should get order. 9/15/09
- Rep to follow up next week"
Sheet 1 line 1000, Note (Cell P1000 = "9/15/09 - Rep to follow up next week"
I want to be able to duplicate the notes in both worksheets without having
to go find the referenced line item and re-type the same info twice. My hope
is to keep everything consistant between sheets.
FYI... the line items will share a common # in Cell B.
Any help or direction will be great
|