makro kaydetten başka yol var mı?

[yincekara]

değerli forum üyeleri herkese kolay gelsin;
Sormak istediğim..elimdeki excel workbook da sheet2 deki a1 hücresini sheet1 de b1 e , sheet2 deki a2 yi sheet1 deki b4 e , sheet2 deki a3 ü sheet1 deki b7 ye.......sheet2 deki a36 yi sheet1 deki b98 e copy paste yapmak istiyorum ( ardışık olarak gidiyor a1-b1 , a2-b4 , a3-b7.........) makro kaydetle bir çözüm buldum kendimce ama cok uzun olduğu için dosya boyutu büyüyor; daha kolay bir yolu yok mu diyrdöngüyle çözmeye çalıştım başarısız oldum, yardımcı olursanız sevinirim;

saygılarımla

Yusuf

 

[Hüseyin]

Selam,
ardışık sayıların mantığını tam anlamadım.
İlk dizi 3er artırarak diye algıladım, ancak buna göre son örnek A36-B106 olmalıydı. ancak yinede belki işinize görür diye aşağıdaki kodu ekliyorum.
siz gerektiği yerleri düzenlerseniz.

[vb:1:df0351def8]Sub doldur()
For i = 1 To 36 '36 sayısını istediğiniz döngü sayısı kadar arttırın.
deger = Worksheets("Sheet2").Cells(i, 1).Value
Worksheets("Sheet1").Cells(i * 3 - 2, 2).Value = deger
Next i
End Sub[/vb:1:df0351def8]

 

[birol_mumcu]

günaydın;
sheet2 deki a1 i sheet1 de a2 ye almak için =sheet2!a1 şeklinde alabilirsiniz.
diğerleri içinde aynı şekilde yapabilirsiniz
kolay gelsin

 

[yincekara]

hüseyin bey işimi gördü çokk saolun !!!!
regards..
yusuf