set Range için kısa yol varmı

[snx111]

sub next()
set dizi = range("a1:h1")
for Each hucre in dizi
next
end sub

Burdaki dizi yi bir alt satıra kaydırmak için kısabir komut biliyormusunuz?

set dizi = range("a2:h2") olması gerek döngü içinde 10 defa kadar kullanacağımda her defasında set lemek istemiyorum ..
dizi.column +1 gibi ...
Soru budur . Saygılar sunarım

 

[leumruk]

Merhaba,

Sub Set_Next()
For x = 1 To 10
Set dizi = Range("a" & x & ":h" & x)
For Each hucre In dizi

'Kodlarınız

Next
Next
End Sub

 

[snx111]

eyvallah syn Mustafa ALTUN ...

 

[leumruk]

eyvallah syn Mustafa ALTUN ...

Rica ederim,
Sn. Sinan ÇAM