Aynı hücrede değer arttırmak

[YUSUF44]

Dosyamda C14:H16 ve J14:O16 aralıklarında virgülden sonra 6 basamaklı sayılar var (Örneğin C14=0,066187; C15=0,885620; C16=0,020987 gibi. diğer hücrelerdekiler de genelde aynı ama bana hepsi üzerinde işlem yapacak makro lazım)

Yapmak istediğim, bir düğmeye bastığımda bu hücrelerdeki sayıların N1'de yazan oran kadar arttırılması.

Örneğin verdiğim rakamlara göre C14'ün yeni değeri 0,069496; C15'in 0,929901
ve C16'nın da 0,022036 olmalı.

Makro kaydet yoluyla matematiksel işlemi uygulayarak bir kod aldım ve düzenledim ama sanıyorum kod nerde duracağını bilmediğinden ya da aynı hücre üzerinde işlem yaptırmak istediğimden hata verdi:

Sub yüzde()
'
' yüzde Makro
'

'
    Range("c14") = "=ROUND(Range("c14")*(100+Range("n1"))%,6)"
    
End Sub

Bu kodu işler hale getirip, aralıktaki tüm hücrelere uygulayabilir miyiz?

 

[kan-nas]

Sub Button1_Click()
For i = 1 To Range("a65536").End(3).Row
Cells(i, 1) = Cells(i, 1) * Range("e1")
Next i
End Sub

Üstad,

A sutunundaki tüm rakamları E1 hüsresindeki rakamla çarpan kod yukarıda.
Dediğine uyarlayabilirsin.

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Range("C14") = Round(Range("C14") * (100 + Range("N1")) / 100, 6)

Döngü için:

Sub Yuzde()
    
    Dim hucre As Range
    
    For Each hucre In Range("C14:H16,J14:O16")
        hucre = Round(hucre * (100 + [N1]) / 100, 6)
    Next hucre
        
End Sub

.

 

[YUSUF44]

Çok teşekkürler arkadaşlar.