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"