Having Excel Move Data that has a certain value

E

EGerety

I have a workbook that has several worksheets in it. I wanted to know
if anyone knows if it is possible for Excel to be able to recognize a
value point and when it does move an entire line of data (several
cells) to anothre worksheet within the workbook automatically.

Worksheet One

CELL A1 = Name
CELL B1 = County
CELL C1 = Date
CELL D1 = Value point 1 for yes 2 for now

What I would like to try to do is if CELL D1 equals 1 then have Excel
move cells A1, B1 and C1 to another worksheet. Is this possible and I
am not allowed to use ACCESS. My group's director doesn't understand
how to use it so we are not allowed to.
 
M

Mike H

And of course your group director stops you using Access because he can!!

Try this which may because of a lack of detail on where to put the data may
need some refinement. Basically it looks down Col D of sheet 3 and if it fins
a 1(Yes) moves the row to the top row of sheet 2.

Sub versive()
Dim myRange As Range
Set myRange = Range("D2:D25")
For Each c In myRange
c.Select
If c.Value = 1 Then
Selection.EntireRow.Copy
Worksheets("Sheet2").Rows("1:1").Insert Shift:=xlDown
End If
Next
End Sub

Mike
 
T

TGerety

And of course your group director stops you using Access because he can!!

Try this which may because of a lack of detail on where to put the data may
need some refinement. Basically it looks down Col D of sheet 3 and if it fins
a 1(Yes) moves the row to the top row of sheet 2.

Sub versive()
Dim myRange As Range
Set myRange = Range("D2:D25")
For Each c In myRange
c.Select
If c.Value = 1 Then
Selection.EntireRow.Copy
Worksheets("Sheet2").Rows("1:1").Insert Shift:=xlDown
End If
Next
End Sub

Mike








- Show quoted text -
Click to expand...

Thanks -- I am going to give this a shot and see what happen and you
are correct my Director is doing this because he can. His words
exactly!
 
E

EGerety

And of course your group director stops you using Access because he can!!

Try this which may because of a lack of detail on where to put the data may
need some refinement. Basically it looks down Col D of sheet 3 and if it fins
a 1(Yes) moves the row to the top row of sheet 2.

Sub versive()
Dim myRange As Range
Set myRange = Range("D2:D25")
For Each c In myRange
c.Select
If c.Value = 1 Then
Selection.EntireRow.Copy
Worksheets("Sheet2").Rows("1:1").Insert Shift:=xlDown
End If
Next
End Sub

Mike








- Show quoted text -
Click to expand...

Mike - How do you install this into EXCEL?
 
Top