Home |
Search |
Today's Posts |
#1
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]() 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 |
#2
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
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 |
#3
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
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 |
#4
![]() |
|||
|
|||
![]()
Úp cho Bác mua nhanh bán đắt
|
#5
![]() |
|||
|
|||
![]() 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] ![]() ![]() ![]() |
#6
![]() |
|||
|
|||
![]() 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] ![]() ![]() ![]() |
#7
![]() |
|||
|
|||
![]()
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, ... |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
Array code only works on selected sheet | Excel Programming | |||
Complex conditional summing - array COUNT works, array SUM gives#VALUE | Excel Worksheet Functions | |||
Simple Macro Works on PC But Not Mac--Help! | Excel Discussion (Misc queries) | |||
simple copy column works but ERROR! | Excel Programming | |||
Simple Macro, works in Excel 2002, 2003 but won't work in 2000 | Excel Programming |