başka sayfadan ardışık veri almak.

[darkvenue]

Sorunum şöyle excel sayfasında sayfa 1 ve sayfa 2 arasında sıralı bir şekilde eşitleme yapmak istiyorum

Örneğin sayfa1 de A1.........................A100 ARASINDA BİR CİHAZ LİSTEM VAR.SAYFA2`DE CİHAZLARIN TOPLAMLARI VAR.AMA TOPLAMLAR SIRALI ŞEKİLDE DEĞİL.MESELA HER DÖRDÜNCÜ SATIRDA BİR TOPLAM DEĞER VAR.
SAYFA1 DE İSE LİSTE A1,A2,A3 DİYE ARDIŞIK GİDİYOR.
SAYFA 2 DE A4 DEKİ DEĞERİN SAYFA 1`DE A1 HÜCRESİNE
SAYFA2 A8`İN SAYFA 1 A2
SAYFA2 A12`NIN SAYFA 1 A3
SAYFA2 16 `NIN SAYFA 1 A4
.....
.........
..
ŞEKLİNDE YAZILMASINI İSTİYORUM.BUNUN BİR KISAYOLU VARMIDIR.

UMARIM AÇIKLAYABİLMİŞİMDİR.
EXCEL DOSYASINI YÜKLEMEYİ BAŞARAMADIM.

[Yakup Karaman]

Merhaba,

Aşağıdaki kodları sayfanızın kod bölümüne yapıştırınız.

Sub darkvenue()
Dim i As Integer
Dim k As Integer
k = 1
For i = 4 To 444 Step 4
    Sheets(1).Cells(k, 1).Value = Sheets(2).Cells(i, 1).Value
    k = k + 1
Next i
End Sub