Makro ile başka sayfadan aralıklarla veri almak

[ebenturk]

SELAMLAR
AŞAĞIDAKİ FORMÜLÜ MAKRO KAYDET SEÇENEĞİ İLE KENDİM YAPTIM.
TABİ SADECE 3 SATIRA YAPABİLDİM
BUNU 1000 SATIRA YAPMAM GEREK
FOR..NEXT GİBİ BİR DÖNGÜ İLE MAKROYA BUNU ATIYABİLİRMİYİM.
(AMAÇ BAŞKA SAYFADAKİ BELLİ ARALIKLARDAKİ HÜCRELERDEKİ VERİYİ ALMAK. BELLİ ARALIKLARDA BAŞKA SAYFAYA YAZMAK)


Sub mahalnogiris()
'Mahal Pik Yük Bulunması Sayfasına mahalleri yazmak için formül atıyor
' Makro3 Makro
'

'
Sheets("Mahal Pik Yük Bulunması").Select
Range("C5:E56").Select
ActiveCell.FormulaR1C1 = "=Mahaller!R[6]C[-2]"
Range("C57:E108").Select
ActiveCell.FormulaR1C1 = "=Mahaller!R[-45]C[-2]"
Range("C109:E160").Select
ActiveCell.FormulaR1C1 = "=Mahaller!R[-96]C[-2]"
Range("C161:E212").Select
End Sub

 

[PLİNT]

Merhaba
Aşağıdaki iki şekilde olabilir:

[SIZE="2"]Sub veri()
Dim s1 As Worksheet
Dim a, b As Integer
Set s1 = Sheets("Mahal Pik Yük Bulunması")
b = 10
For a = 5 To 1000 Step 52
b = b + 1
s1.Cells(a, "C") = Sheets("Mahaller").Cells(b, "A")
Next
End Sub [/SIZE]

Makroyla formül ekleyerek;

[SIZE="2"]Sub veri2()
Dim s1 As Worksheet
Dim a, b As Integer
Set s1 = Sheets("Mahal Pik Yük Bulunması")
b = 10
For a = 5 To 1000 Step 52
b = b + 1
s1.Cells(a, "C").FormulaR1C1 = "=Mahaller!R[" & b - a & "]C[-2]"
Next
End Sub [/SIZE]

 

[ebenturk]

ilginize, hızlı dönüşünüze, çözümünüze teşekkür ederim.