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 12:47 AM.

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

About Us

"It's about Microsoft Excel"