Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 852
Default Simple array macro works on one sheet only


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   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 99
Default Simple array macro works on one sheet only

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   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 852
Default Simple array macro works on one sheet only

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   Report Post  
Banned
 
Posts: 3
Default

Úp cho Bác mua nhanh bán đắt
  #5   Report Post  
Banned
 
Posts: 3
Default

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   Report Post  
Banned
 
Posts: 3
Default

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   Report Post  
Junior Member
 
Posts: 1
Default

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
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
Array code only works on selected sheet Howard Excel Programming 14 November 25th 13 09:31 AM
Complex conditional summing - array COUNT works, array SUM gives#VALUE fatcatfan Excel Worksheet Functions 4 November 18th 09 07:41 PM
Simple Macro Works on PC But Not Mac--Help! PBJ Excel Discussion (Misc queries) 3 July 31st 07 02:44 PM
simple copy column works but ERROR! Jack Excel Programming 2 November 30th 05 06:55 PM
Simple Macro, works in Excel 2002, 2003 but won't work in 2000 DJA[_2_] Excel Programming 5 September 28th 05 05:10 PM


All times are GMT +1. The time now is 08:55 AM.

Powered by vBulletin® Copyright ©2000 - 2023, Jelsoft Enterprises Ltd.
Copyright ©2004-2023 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"