veri aktar makrosu

[wessemeth]

Sub asd()
Dim deger As Integer
For i = 5 To Worksheets.Count
deger = Sheets(i).Range("A2").Value
Sheets("Sayfa2").Range("i-4", 2).Value = deger
Next
End Sub

selam arkadaşlar böle bir kod yazdım ama kod konusunda çok bilgili değilim.hata veriyor zaten kod.ekteki dosyada yapmaya çalıştığım şey, her sayfanın B2'den F2'ye kadar olan kısmını "veriler" sayfasında A2'den A6'ya kadar aktarılması.ama hep sayfa ekleniyor.yani 5.sayfadan sonraki sayfalarda bu otomatikman gerçekleşmeli.şimdiden çok teşekkür ederim

 

[Orion1]

Sheets("Sayfa2").Range("i-4", 2).Value = deger

Yukarıdaki kodu aşağıdaki ile değiştirip deneyiniz.

sheets("Sayfa2").cells(2,i-4).value=deger

 

[wessemeth]

üstadım işe yaramadı yaa ekteki dosyaya bir bakarmısınız rica etsem.kodlardan pek anlamıyorum.belki ne demek istediğimi ekteki dosyadan anlarsınız

 

[uzmanamele]

merhaba
syn wessemeth,
konu başlıklarını seçerken sorunuzla ilgili olmasına dikkat ediniz!

 

[wessemeth]

selamlar
konu başlığı olarak açmıltım bir benzerini ama kimse yardımcı olamadı.birde böle başlık açayım istedim

 

[wessemeth]

yardım edebilecek kimse yokmu yaa?

 

[Korhan Ayhan]

Selamlar,

Sayfalarınızın B2:F2 aralığı boş görünüyor. Boş satırlarımı aktarmak istiyorsunuz?