Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]

Groups > microsoft.public.excel.programming > #109465 > unrolled thread

Simple array macro works on one sheet only

Back to article view | Back to microsoft.public.excel.programming

Contents

  Simple array macro works on one sheet only "L. Howard" <lhkittle@comcast.net> - 2016-10-24 18:11 -0700
    Re: Simple array macro works on one sheet only isabelle <i@v.invalid> - 2016-10-24 21:42 -0400
      Re: Simple array macro works on one sheet only "L. Howard" <lhkittle@comcast.net> - 2016-10-24 20:51 -0700
    Re: Simple array macro works on one sheet only dienmaytrangiaabc <dienmaytrangiaabc@gmail.com> - 2016-10-26 02:43 +0100
    Re: Simple array macro works on one sheet only binhduong259 <binhduong259@gmail.com> - 2016-10-27 03:59 +0100

#109465 — 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

[toc] | [next] | [standalone]

#109467

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
>

[toc] | [prev] | [next] | [standalone]

#109469

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

[toc] | [prev] | [next] | [standalone]

#109475

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




-- 
dienmaytrangiaabc

[toc] | [prev] | [next] | [standalone]

#109486

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ả.



[image: http://honkonlaser.vn/Images/2(1).jpg]



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*' (http://tinyurl.com/hzeuqnr), công nghệ triệt
lông Diode laser, ...




-- 
binhduong259

[toc] | [prev] | [standalone]

Back to top | Article view | microsoft.public.excel.programming

csiph-web