farklı hücrelerin değer artışı

[lazanat]

Selam
Arkadaşlar, ben veri ve değerlerden oluşan bir sayfadaki rakam içeren yüzlerce hücrelerin değerini bazen promosyon yapmak için % 10 azaltıp bazende artırıp yeni bir bilgilendirme yapmak istiyorum ancak bu rakamları her seferinde tek tek değiştirmek zorunda kalıyorum kısa bir yolu varmı.
Teşekkürler

 

[tactless]

Örnek tablo eklerseniz yapabiliriz. Saygılarımla.

 

[Merhum İdris SERDAR]

Selam
Arkadaşlar, ben veri ve değerlerden oluşan bir sayfadaki rakam içeren yüzlerce hücrelerin değerini bazen promosyon yapmak için % 10 azaltıp bazende artırıp yeni bir bilgilendirme yapmak istiyorum ancak bu rakamları her seferinde tek tek değiştirmek zorunda kalıyorum kısa bir yolu varmı.
Teşekkürler

.

Bir hücreye:

Artırma için örnek:

=1+0,10 yani, 1,10

Azaltmak için örnek:

=1-0,10 yani 0,9

yazıp, bunu kopyalayın.

İlgili rakamların alanını seçtikten sonra, özel yapıştrdan çarpmayı seçin.

.

 

[Ömer]

Merhaba,

Makro ile yapmak isterseniz alternatif olsun.

İlgili alanı seçip kodu çalıştırın( Butona bağlayarak yada Alt F8 ile). Çıkan kutuya + değer girerseniz oranı artırır, eksi değer girerseniz azaltır.

Sub OranDegis()
 
    Dim sor As Double, alan As Range
 
    Application.ScreenUpdating = False
    On Error Resume Next
 
    sor = Application.InputBox("Oranı, başında +" & _
            "yada - olarak girin", "Oran Değiştirme")
 
    If sor = 0 Then Exit Sub
 
    For Each alan In Selection
        If alan <> "" Then
            If sor > 0 Then
                alan = alan * (sor / 100 + 1)
            ElseIf sor < 0 Then
                alan = alan - alan * Abs(sor) / 100
            End If
        End If
    Next alan
 
End Sub

.