Bir çok verinin bulunduğu her sütuna değer ekleme

[salii]

Merhaba arkadaşlar elimde birçok sayı değerinin bulunduğu veri var her bir sütuna örneğin +10 değeri eklemek istiyorum bunu nasıl yapabilirim ?

 

[Orion1]

Merhaba arkadaşlar elimde birçok sayı değerinin bulunduğu veri var her bir sütuna örneğin +10 değeri eklemek istiyorum bunu nasıl yapabilirim ?

A1:E20 aralığı için;

Sub ustune_toplama_59()
Dim hcr As Range
For Each hcr In Range("A1:E20")
    hcr.Value = hcr.Value + 10
Next
End Sub

 

[salii]

Bunu nereye yazacağımı bilmiyorum :S Yani direkt formülle yapılamıyor mu ?