Copy Cells if A=1
 

Hi

Last request tonight

If column A row = 1 copy cells N4,O4,P4,Q4,R4,S4,T4,U4
to N,O,P,Q,R,S,T,U of that row, starting at row 5, repeat to end of column A

Again need it in code as data is refreshed and clears certain cells

Thanks to people who have helped me tonight, really has been a great help.

Blue

Copy Cells if A=1
 

Hi
try

Sub change_b()
Dim RowNdx As Long
Dim LastRow As Long
Application.ScreenUpdating = False
LastRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).row
For RowNdx = 5 to LastRow
with Cells(RowNdx, "A")
if .value = 1 then
.offset(0,13).resize(1,8).value = Range("N4:U4").value
End If
end with
Next RowNdx
Application.ScreenUpdating = True
End Sub


--
Regards
Frank Kabel
Frankfurt, Germany


Blue wrote:
Hi

Last request tonight

If column A row = 1 copy cells N4,O4,P4,Q4,R4,S4,T4,U4
to N,O,P,Q,R,S,T,U of that row, starting at row 5, repeat to end of
column A

Again need it in code as data is refreshed and clears certain cells

Thanks to people who have helped me tonight, really has been a great
help.

Blue

Copy Cells if A=1
 

For i = 5 To Cells(Rows.Count,"A").End(xlUp).Row
If Cells(i,"A")= 1 Then
Range("N4:U4").Copy Destination:=Cells(i,"N")
End If
Next i

--

HTH

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

"Blue" wrote in message
...
Hi

Last request tonight

If column A row = 1 copy cells N4,O4,P4,Q4,R4,S4,T4,U4
to N,O,P,Q,R,S,T,U of that row, starting at row 5, repeat to end of column
A

Again need it in code as data is refreshed and clears certain cells

Thanks to people who have helped me tonight, really has been a great help.

Blue

Copy Cells if A=1
 

Frank
I should have made it clearer that it is the formulas in the cells N4:U4
that I want to copy not the values, which bit do I need to change to achieve
this?

Thanks Blue

Wondering which book to buy to get head around this DIM stuff?


"Frank Kabel" wrote in message
...
Hi
try

Sub change_b()
Dim RowNdx As Long
Dim LastRow As Long
Application.ScreenUpdating = False
LastRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).row
For RowNdx = 5 to LastRow
with Cells(RowNdx, "A")
if .value = 1 then
.offset(0,13).resize(1,8).value = Range("N4:U4").value
End If
end with
Next RowNdx
Application.ScreenUpdating = True
End Sub


--
Regards
Frank Kabel
Frankfurt, Germany


Blue wrote:
Hi

Last request tonight

If column A row = 1 copy cells N4,O4,P4,Q4,R4,S4,T4,U4
to N,O,P,Q,R,S,T,U of that row, starting at row 5, repeat to end of
column A

Again need it in code as data is refreshed and clears certain cells

Thanks to people who have helped me tonight, really has been a great
help.

Blue

Copy Cells if A=1
 

Hi
use Bob's suggestion :-)

--
Regards
Frank Kabel
Frankfurt, Germany


Blue wrote:
Frank
I should have made it clearer that it is the formulas in the cells
N4:U4 that I want to copy not the values, which bit do I need to
change to achieve this?

Thanks Blue

Wondering which book to buy to get head around this DIM stuff?


"Frank Kabel" wrote in message
...
Hi
try

Sub change_b()
Dim RowNdx As Long
Dim LastRow As Long
Application.ScreenUpdating = False
LastRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).row
For RowNdx = 5 to LastRow
with Cells(RowNdx, "A")
if .value = 1 then
.offset(0,13).resize(1,8).value =
Range("N4:U4").value End If
end with
Next RowNdx
Application.ScreenUpdating = True
End Sub


--
Regards
Frank Kabel
Frankfurt, Germany


Blue wrote:
Hi

Last request tonight

If column A row = 1 copy cells N4,O4,P4,Q4,R4,S4,T4,U4
to N,O,P,Q,R,S,T,U of that row, starting at row 5, repeat to end of
column A

Again need it in code as data is refreshed and clears certain cells

Thanks to people who have helped me tonight, really has been a
great
help.

Blue