This in a standard module only works on the sheet from which it is called.

Should it not do all four sheets run from any sheet?

Howard

Sub Plain_Copy()
Dim MyArr As Variant
Dim i As Long


MyArr = Array("Sheet1", "Sheet2", "Sheet3", "Sheet4")


For i = LBound(MyArr) To UBound(MyArr)

Sheets(MyArr(i)).Rows("2:2").Copy Rows("4:4")

Next 'i

End Sub

Hi,

For i = LBound(MyArr) To UBound(MyArr)
With Sheets(MyArr(i))
.Rows("2:2").Copy .Rows("4:4")
End With
Next 'i

isabelle

Le 2016-10-24 Ã* 21:11, L. Howard a écrit :

This in a standard module only works on the sheet from which it is called.

Should it not do all four sheets run from any sheet?

Howard

Sub Plain_Copy()
Dim MyArr As Variant
Dim i As Long


MyArr = Array("Sheet1", "Sheet2", "Sheet3", "Sheet4")


For i = LBound(MyArr) To UBound(MyArr)

Sheets(MyArr(i)).Rows("2:2").Copy Rows("4:4")

Next 'i

End Sub

On Monday, October 24, 2016 at 6:42:38 PM UTC-7, isabelle wrote:
Hi,

For i = LBound(MyArr) To UBound(MyArr)
With Sheets(MyArr(i))
.Rows("2:2").Copy .Rows("4:4")
End With
Next 'i

isabelle

Le 2016-10-24 Ã* 21:11, L. Howard a écrit :

This in a standard module only works on the sheet from which it is called.

Should it not do all four sheets run from any sheet?

Howard

Sub Plain_Copy()
Dim MyArr As Variant
Dim i As Long


MyArr = Array("Sheet1", "Sheet2", "Sheet3", "Sheet4")


For i = LBound(MyArr) To UBound(MyArr)

Sheets(MyArr(i)).Rows("2:2").Copy Rows("4:4")

Next 'i

End Sub




Arrrg!

Thanks isabelle, a tiny over look of a tiny dot on my part.

I was using this code (missing a dot)

Sub Greater_Than_Copy_Amend()
Dim MyArr As Variant
Dim i As Long


MyArr = Array("Sheet1", "Sheet2", "Sheet3", "Sheet4")


For i = LBound(MyArr) To UBound(MyArr)

With Sheets(MyArr(i))

.Rows("2:2").Copy Rows("4:4")

End With
Next 'i


End Sub

Thanks again.
Howard

Úp cho Bác mua nhanh bán đắt

LẮP �ẶT SÂN KHẤU CHUYÊN NGHIỆP -LH 0907 150 220

Ä�ạt PhÆ°Æ¡ng - Ä�Æ¡n vị chuyên cung cấp, cho thuê âm thanh - ánh sáng - cung cấp, lắp đặt sân khấu phục vụ sá»± kiện chuyên nghiệp. ... Chuyên thiết kế, cung cấp vÃ* lắp đặt hệ thống thiết bị âm thanh, ánh sáng, không gian, ...sân khấu. Liên hệ Mr Ä�ạt 0907 150 220



[center]

cho thuê, thiết kế, thi công, dÃ*n dá»±ng, lắp đặt sân khấu chuyên nghiệp -LH 0937 150 220

Ä�ạt PhÆ°Æ¡ng - Ä�Æ¡n vị chuyên cung cấp, cho thuê âm thanh - ánh sáng - cung cấp, lắp đặt sân khấu phục vụ sá»± kiện chuyên nghiệp. ... Chuyên thiết kế, cung cấp vÃ* lắp đặt hệ thống thiết bị âm thanh, ánh sáng, không gian, ...sân khấu. Liên hệ Mr Ä�ạt 0937 150 220



[center]

triệt lông vÄ©nh viên luôn lÃ* mong muốn của các chị em. Váº*y triệt lông lÃ*m sao cho hiệu quả vÃ* an toÃ*n
Triệt lông vÄ©nh viên luôn lÃ* mong muốn của các chị em. Váº*y triệt lông lÃ*m sao cho hiệu quả vÃ* an toÃ*n
Không nên wax hoặc nhổ lông

Khi quyết định triệt lông bằng công nghệ cao, bạn không nên wax hoặc nhổ lông 1 tuần trÆ°á»›c đó, đặc biệt lÃ* trÆ°á»›c 1 ngÃ*y triệt lông, vì Ä‘iá»�u nÃ*y sẽ lÃ*m mất Ä‘i gốc lông khiến việc Ä‘iá»�u trị không còn hiệu quả.






Chú ý tình trạng của da



Chị em lÆ°u ý chỉ triệt lông khi lÃ*n da Ä‘ang khoẻ mạnh, không mắc các bệnh vá»� da vÃ* các vấn Ä‘á»� vá»� da. Bên cạnh đó, nếu da bạn có nốt ruồi lá»›n hoặc vết chÃ*m thì bạn cÅ©ng không nên triệt lông trên vùng da nÃ*y. Bởi khi ánh sáng, sóng tác Ä‘á»™ng sẽ kÃ*ch thÃ*ch vÃ* có thể gây biến chứng vùng da nÃ*y.



Những trư�ng hợp không nên triệt lông vĩnh viễn



- Phụ nữ mang thai

- Cháy nắng, vết thương hở

- Nhạy cảm với ánh sáng hoặc đang uống thuốc nhạy cảm với ánh sáng

- Vùng da trị liệu bị bệnh lý ác tÃ*nh (u, bÆ°á»›u, lở loét, viêm nhiá»…m€¦)

- Những ngÆ°á»�i có sá»* dụng thiết bị trợ tim, tháº*n

- Bị b�ng hoặc chấn thương nặng

- Những ngư�i đi�u trị bằng Hirudin (nên ngừng đi�u trị trước 2 tuần)

- Những ngÆ°á»�i bị tiểu Ä‘Æ°á»�ng nặng, huyết áp cao vÃ* Ä‘á»™ng kinh.



Lựa ch�n phương pháp triệt lông phù hợp



Hiện nay có rất nhi�u phương pháp triệt lông vĩnh viễn như: New E-light, công nghệ triệt lông Diode laser, ...