Replicating rows in other worksheets (based on content)

  • Thread starter Thread starter Paul Arnold
  • Start date Start date
P

Paul Arnold

<...copied from 'Worksheet Functions'>

Okay, I'm obviously a little out of my depth asking
questions in here!

I'm glad that my scenario is solvable but short of opening
visual basic editor - I've don't have a lot of experience
in what to do with the code below.

Can you give me some tips or can I forward my workbook
with instructions if it's easier?

Any help, gratefully appreciated.

Regards,

Paul.
-----Original Message-----
Paul,

Here's some worksheet event code that does the copy if LOW is entered in
column A

Private Sub Worksheet_Change(ByVal Target As Range)
Dim cRows As Long

Application.EnableEvents = False
On Error GoTo ws_exit
If Target.Column = 1 Then
If Target.Count = 1 Then
If Target.Value = "LOW" Then
With Worksheets("Sheet2")
cRows = .Cells(Rows.Count, "A").End (xlUp).Row
If cRows > 1 Or .Range("A1").Value
Click to expand...
cRows = cRows + 1
End If
Target.EntireRow.Copy
Click to expand...
Destination:=.Cells(cRows, "A")
 
Paul,

I have responded in the other group, and directly.

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)
 
Back
Top