Yığın veriyi makro ile düzenlemek (acil)

[serdenm]

Merhaba dosya ektedir. aciklamalari kirmizi font rengi ile yaptim.
simdiden tesekkurler.

 

[Kemal Demir]

Aslına bakarsanız Acil Kelimesini yazmamanızı tavsiye ederdim.Forumdaki Değerli Arkadaslarımız Mesai saatleri içerisinde vakit buldukca ellelrinden geleni yapıyorlar.

Dosya ek'tedir. Umarım İşinizi Görür

Ctrl+r yapınız makroyu calısıtırınız

 

[veyselemre]

[vb:1:7715fb2f0d]Sub deneme()
sat = 2
Set sy = Sheets("yığın veri")
Set sd = Sheets("düzenlenmiş veri")
sd.[A2:K65536].ClearContents
For x = 1 To sy.[a65536].End(3).Row Step 14
For y = 0 To 8
sd.Cells(sat, y + 1) = sy.Cells(x + y, 2)
Next y
sd.Cells(sat, 10) = WorksheetFunction.Average(sy.Range("a" & x + 11 & ":a" & x + 12))
sd.Cells(sat, 11) = WorksheetFunction.Average(sy.Range("b" & x + 11 & ":b" & x + 12))
sat = sat + 1
Next x
End Sub[/vb:1:7715fb2f0d]

 

[Kemal Demir]

Üstadım Kodda kuck bir eksiliğim varmıs fark ettim.

iki kolon fazla atmısım bunuda manuel olarak seçerek silebilirsiniz.Hata için Üzgünüm.

 

[serdenm]

Rakkas haklısın ama gercekten acildi. ozur dilerim.
simdi gonderdigin dosyayi ve veyselemre'nin kodunu deneyecegim

Rakkas ve Veyselemre tesekkur ederim.

:hey:

 

[serdenm]

sayın Veyselmere/Rakkas,

kod calisiyor,
fakat 2 değeri ortalama aldırıyorduk. fakat bazen bu değerler 3-5 adette olabiliyor. nadirende olsa bazen sadece 1 değer oluyor. bunları ayırt etmenin bir yolu varmı? yani mesela 4 deger varsa 4 unu toplayip 4 e bolecek.

tesekkurler.