sheet tanımlama

[tamer42]

Merhabalar;

Dim s1, s2, s3, s44 As Worksheet

Set s1 = Sheets("Sheet1")
Set s2 = Sheets("Sheet2")
Set s3 = Sheets("Sheet3")
.........
..............
..................

dedikten sonra; kodun ilerleyen bölümünde

Set s44 = Sheets("Sheet2") demek yerine

s44=s2 gibi kısaltma yapmak istiyordum ama beceremedim,

bu kısaltmayı nasıl apabilirim.


İyi Haftasonları, İyi Çalışmalar...

 

[veyselemre]

set s44=s2 gibi yaparsın

 

[tamer42]

teşekkürler...

 

[tamer42]

Merhabalar;

Dim s1, s2, s3, s44 As Worksheet

Set s1 = Sheets("Sheet1")
Set s2 = Sheets("Sheet2")
Set s3 = Sheets("Sheet3")

set s44=s2

Yukarıdaki kodlara ilave olarak;

for i=1 to 5

set s44="s" & i

c = s44.Cells(3, 5).Value
........
...........
........
...........

next i

gibi bir uygulama olabilirmi?

İyi günler, İyi Çalışmalar...

 

[veyselemre]

Öyle bir uygulama olamaz
Döngü içinde s44 aşağıdaki gibi sayfa indexine (sırasına) göre atama yapabilirsiniz.
Set s44 = sheets(i)


Veya
Set s44 = sheets("Sheet" & i) şeklinde atama yapabilirsiniz.