Hücre üzerine toplama.

[mjslash]

Arkadaşlar şimdi bi sütünum var sütünda yaklasık 88 tane satır var

şimdi ben mesela c1:c88 arasındaki bütün satırlardaki sayılara 500 ekleyeceğim mesela c22 de 800 varsa 1300 olacak nasıl yapabilirim teşekkürler

 

[Orion1]

Lütfen konu başlığınız konunuza uygun başlıklar şeklinde açınız.Aksi takdirde konunuz forum kurallarına uymayan başlıklar bölümüne taşınır.Şimdilik başlığı ben düzelttim.
Aşağıdaki kodlar işinizi görür.

Sub toplama()
Dim hcr As Range
For Each hcr In Range("C1:C88")
    hcr.Value = hcr.Value + 500
Next
MsgBox "Topalama bitti"
End Sub

 

[Korhan Ayhan]

Selamlar,

Eğer ekleyeceğiniz değer sabit bir değerse makro kullanmadan da sonuca gidebilirsiniz.

Boş bir hücreye eklemek istediğiniz değeri yazın.
Sonra bu hücreyi kopyalayın.
Bu değeri eklemek istediğiniz alanı seçin.
Seçili alan üzerinde sağ klik yapın.
Açılan menüden ÖZEL YAPIŞTIR seçeneğini seçin.
Ekrana gelen menüden DEĞERLERİ ve TOPLA seçeneklerini seçip tamam tuşuna tıklayıp işleminizi tamamlayın.