İki sütun arasındaki yüzdelik değişim

[ereneren492]

Merhaba,

Aşağıdaki şekilde VBA koduna ihtiyacım var.

A sütunundaki her bir satır ile B sütunundaki her bir satır arasındaki yüzdelik değişimi hesaplayıp çıkan sonucu C sütununa yazmak istiyorum. yardımcı olursanız sevinirim.

teşekkür ederim.

 

[ÖmerFaruk]

A2=100
B2=110 ise
C2 ye ne yazılacak?

 

[ereneren492]

Selamlar,

C2'ye yazılmasını istediğim değer;

=((B2-A2)/B2)*100

 

[ÖmerFaruk]

Sayfa üzerindeyken tetikleyebilirsiniz.

Sub YuzdeleriYaz()
    Son = Range("A" & Rows.Count).End(3).Row
    If Son < 2 Then Son = 2
    Veri = Range("A2:B" & Son).Value
    ReDim Liste(1 To Son - 1, 1 To 1)
    For i = 1 To UBound(Veri)
        If Veri(i, 2) <> 0 Then Liste(i, 1) = (Veri(i, 2) - Veri(i, 1)) / Veri(i, 2) * 100
    Next i
    Range("C2").Resize(Son - 1, 1) = Liste
End Sub

 

[ereneren492]

çok teşekkür ederim, sorunsuz çalıştı.