Hücrelerdeki Sayı Değerlerini Arttırma

[kadir78]

İyi akşamlar. A sütunundaki sayı değerlerinin, C1 hücresine yazdığım sayı değeri kadar artmasını sağlamak istiyorum. Sadece dolu hücreler için lazım. Böyle bir işlem için makro kodu varsa yardımcı olur musunuz.

 

[Necdet]

Merhaba,

Aşağıdaki kodları dener misiniz?

Sub Makro1()

    Range("C1").Copy
    Columns("A:A").SpecialCells(xlCellTypeConstants, 23).PasteSpecial _
        Paste:=xlPasteValues, Operation:=xlAdd, SkipBlanks:=False
    Application.CutCopyMode = False
    Range("C1").Activate
    
End Sub

 

[BedriA]

Aşağıdaki kodu deneyiniz.
Kırmızı kısmı sayfa adınıza göre düzenleyiniz.

Sub Dene()
On error resume next
[COLOR="Red"]Sheets("sayfa2").Select[/COLOR]
son = Range("A65536").End(xlUp).Row
For i = 1 To son
Range("a" & i).Select
x = Range("a" & i)
Range("a" & i) = x + Range("c1" )
Next
End Sub

 

[kadir78]

Sayın BedriA. Sayılar artıyor fakat boş hücreleride arttırıyor. Boş hücreleri arttırmaması için ne yapmalıyım.

 

[BedriA]

Boş hücreler dolu hücrelerin arasında mı?
Aşağıdaki şekilde deneyiniz.

Sub Dene()
On error resume next
Sheets("sayfa2").Select
son = Range("A65536").End(xlUp).Row
For i = 1 To son

If Range("a" & i).Value <>"" Then
Range("a" & i).Select
x = Range("a" & i)
Range("a" & i) = x + Range("c1" )
End If
Next
End Sub

 

[kadir78]

Necdet Bey. Sizin verdiğiniz kod çalışıyor. Çok teşekkür ederim.

 

[kadir78]

Bedri bey boş hücrelere C1 hücresine yazdığım rakam geliyor.
Kod istediğim gibi çalıştı fakat boş hücrelerede rakam yazdı. Boş hücrelere rakam yazmaması için kodu tekrar düzenleyebilir misiniz.

 

[BedriA]

Bedri bey boş hücrelere C1 hücresine yazdığım rakam geliyor.
Kod istediğim gibi çalıştı fakat boş hücrelerede rakam yazdı. Boş hücrelere rakam yazmaması için kodu tekrar düzenleyebilir misiniz.

Alternatif olsun.
Denedim, çalışıyor.

Sub Dene()
On Error Resume Next
Sheets("sayfa2").Select
son = Range("A65536").End(xlUp).Row
For i = 1 To son

If Range("a" & i).Value <> "" Then
Range("a" & i).Select
x = Range("a" & i)
Range("a" & i) = x + Range("c1")
End If
Next
End Sub

 

[kadir78]

Bedri Bey. Çok teşekkür ederim. Ben biraz Makro için acemiyim, siz değerli Hocalarımız sayesinde öğrenmeye çalışıyorum. Allah hepinizden razı olsun. Elleriniz dert görmesin.

 

[BedriA]

Bedri Bey. Çok teşekkür ederim. Ben biraz Makro için acemiyim, siz değerli Hocalarımız sayesinde öğrenmeye çalışıyorum. Allah hepinizden razı olsun. Elleriniz dert görmesin.

Estağfurllah...

Ben de henüz acemi sayılırım Nejdet hocaya göre.
Nejdet hocanın verdiği kodu kullanmanızı tavsiye ederim.

 

[Necdet]

Nejdet hocanın verdiği kodu kullanmanızı tavsiye ederim.

Merhaba,
Adım Necdet, c ile

2. mesajdaki kodları değiştirdim. C1 hücresinin formatını vs yi almasını istemedim.

 

[BedriA]

Merhaba,
Adım Necdet, c ile

2. mesajdaki kodları değiştirdim. C1 hücresinin formatını vs yi almasını istemedim.

"Nejdet" in başka bir dilde kötü bir anlamı mı var acaba?
Birkaç yerde daha gördüm de buna hassasiyet gösterdiğinizi, merak ettim.

Zira buraya "Nejdet" yazmak nüfus kütüğünüzde bir değişikliğe neden olmuyor.

 

[kadir78]

Hocam bende yanlış yazmışım, düzelttim. Kusura bakmayın.

 

[Necdet]

"Nejdet" in başka bir dilde kötü bir anlamı mı var acaba?
Birkaç yerde daha gördüm de buna hassasiyet gösterdiğinizi, merak ettim.

Zira buraya "Nejdet" yazmak nüfus kütüğünüzde bir değişikliğe neden olmuyor.

Hem "Necdet" var hem "Nejdet" var, ben "Necdet"im
Dikkat etmek gerek, doğrusunu yazmak gerek.

 

[BedriA]

Anlaşıldı Necdet Hocam.
Koca Cemal Süreya soyadından bir harf atmış oysa...