Sayfa2' den veri almak

[arifbirgen]

Değerli arkadaşlar

Sayfa1' deki G8-G15 sütununa,Sayfa2' deki B6-B12' i sutunundaki veriyi butonla
almak istiyorum.Yardımcı olursanız sevinirim.

 

[F1]

Yapmak istedinizi tam söylerseniz belki daha iyi bir çözüm elde edebilirsiniz.
Güne göre sayfa2 deki verileri mi getirtmek istiyorsunuz mesela.?

 

[Orion1]

Dosya ektedir.

Sub aktar()
Dim i As Byte
Sheets("Sayfa1").Select
With Sheets("Sayfa2")
    For i = 6 To 12
        Cells(i + 2, "G").Value = .Cells(i, "B").Value
    Next i
End With
End Sub

 

[arifbirgen]

Sn.hocam Evren GİZLEN

Cevabınız için teşekkür ederim.Fakat soruyu eksik sordum.
Sayfa2' deki veriyi aynı butonla Sayfa1' deki G47-G55 sütununa da
aktarması gerekiyor.Bu konudada yardımcı olursanız sevinirim.İyi
çalışmalar.