Dolu hücrelere sayı ekleme

[hadromer]

Merhaba,
aşağıdaki gibi sayısal verilerden oluşan bir sayfam var. Sarı alan toplam sayıları ifade ediyor. toplam sayıları 500'den küçük olan sütunda yer alan hücrelere sayı ekleyerek 500 yapacağım. ancak bunu manuel olarak yaptığımda diğer sütünlarla olan oranı bozulacağı için sizden yardım istiyorum.

Örneğin tüm dolu hücrelere +5 eklemek istiyorum. Sayısal anlamda artış olacak. hücrede 2 varken ben 5 eklediğimde toplamı olan 7 yazmalı.
tüm hücrelere aynı sayıyı ekleyeceğim için oranı koruyacağımı düşünüyorum. Benim aklıma gelen bu şekilde, sizin daha farklı bir yönteminiz olursa o da olur.

Yardımcı olabilir misiniz ?
Örnek dosya : https://www.dosya.tc/server38/i1dx73/ornek.xlsx.html

 

[omerfarukzorlu]

.

 

[hadromer]

.

"Once Herhangi bir hucreye "7" yazip kopyalayin sonra bunu ekleyceginiz sutunu secip sag tiplayip Ozel yapistir kismindan "topla" secerseniz butun sutundaki hicrelere 7 eklenir. "

şeklinde bir ileti aldım ancak sadece nokta görünüyor. yine de cevaplayayım Benim istediğim sadece dolu hücrelere ekleme yapmak. Boş hücreler yine boş kalmalı. Teşekkür ederim.

 

[Necdet]

Merhaba,

Aşağıdaki kodları bir modüle ekleyip deneyiniz.

Not : Boş gibi görünen hücreler aslında boş değil.

Sub SayiEkle()

    Dim sKol As Integer, _
        sSat As Long, _
        Sayi As Integer, _
        Hcr  As Range
    
    Sayi = 2
    
    Application.ScreenUpdating = False
    
    sKol = Range("B1").End(xlToRight).Column
    sSat = Range("A1").End(xlDown).Row - 1
    
    For Each Hcr In Range(Cells(2, 2), Cells(sSat, sKol))
        If IsNumeric(Hcr.Value) Then Hcr = Hcr + Sayi
    Next Hcr
    
    Application.ScreenUpdating = True
    
    MsgBox "işlem tamam..."
    
End Sub

 

[hadromer]

Merhaba,

Aşağıdaki kodları bir modüle ekleyip deneyiniz.

Not : Boş gibi görünen hücreler aslında boş değil.

Sub SayiEkle()

    Dim sKol As Integer, _
        sSat As Long, _
        Sayi As Integer, _
        Hcr  As Range
   
    Sayi = 2
   
    Application.ScreenUpdating = False
   
    sKol = Range("B1").End(xlToRight).Column
    sSat = Range("A1").End(xlDown).Row - 1
   
    For Each Hcr In Range(Cells(2, 2), Cells(sSat, sKol))
        If IsNumeric(Hcr.Value) Then Hcr = Hcr + Sayi
    Next Hcr
   
    Application.ScreenUpdating = True
   
    MsgBox "işlem tamam..."
   
End Sub

Çok Teşekkür ederim, istediğim gibi çalıştı.

 

[Necdet]

Merhaba,
Ben sayi değişkeninin değerini kodlar içine koydum, siz inputbox ile dışardan alabilirsiniz.
Anımsatayım dedim.

 

[hadromer]

Merhaba,
Ben sayi değişkeninin değerini kodlar içine koydum, siz inputbox ile dışardan alabilirsiniz.
Anımsatayım dedim.

ilginiz için teşekkür ederim, iyi çalışmalar

 

[omerfarukzorlu]

"Once Herhangi bir hucreye "7" yazip kopyalayin sonra bunu ekleyceginiz sutunu secip sag tiplayip Ozel yapistir kismindan "topla" secerseniz butun sutundaki hicrelere 7 eklenir. "

şeklinde bir ileti aldım ancak sadece nokta görünüyor. yine de cevaplayayım Benim istediğim sadece dolu hücrelere ekleme yapmak. Boş hücreler yine boş kalmalı. Teşekkür ederim.

Ben de farkettim yazdiktan sonra. Ama silemedim ben de Edit yapip . yazdim sadece