Makro ile iki sayı arasındaki farkı bulma

[sirkülasyon]

Değerli üstadlarım
İlk Değer P6: 20 arasında
İkinci değer Q6:Q20 arasında

ilk değer ile ikinci değer arasında ki yüzdelik fark "+" ise U6:U20 arasına % olarak yazacak
ilk değer ile ikinci değer arasında ki yüzdelik fark "-" ise V6:V20 arasına % olarak yazacak
Makro için yardımlarınızı esirgemezseniz sevinirim.

Teşekkürler , Saygılar

 

[sirkülasyon]

Konu hala günceldir. Saygı ve hürmetlerimle

 

[kulomer46]

Sorunuzu anladığım kadarıyla cevap yazıyorum.

U6 hücresine
=EĞERHATA(EĞER((Q6-P6)/P6>0;(Q6-P6)/P6;"");"") formülünü,

V6 hücresine
=EĞERHATA(EĞER((Q6-P6)/P6>0;"";(Q6-P6)/P6);"") formülünü yapıştırıp ihtiyaca göre aşağıya kadar çoğaltınız.

Selamlar...

İlgili resim

 

[sirkülasyon]

Sayın kulomer46
Allah senden razı olsun. Yardımınızı esirgemediğiniz için teşekkür ederim. MAKRO konusunda yardıma ihtiyacım var.

 

[kulomer46]

Sayın kulomer46
Allah senden razı olsun. Yardımınızı esirgemediğiniz için teşekkür ederim. MAKRO konusunda yardıma ihtiyacım var.

Ne güzel bir dua. Amin.

 

[kulomer46]

Sayın kulomer46
Allah senden razı olsun. Yardımınızı esirgemediğiniz için teşekkür ederim. MAKRO konusunda yardıma ihtiyacım var.

Probleminiz halloldumu? Yoksa makro kullanılmış çözüm mü lazım?

 

[sirkülasyon]

Makro ile çözüm lazım üstad

 

[Ziynettin]

Makro ile.

Sub test()
a = [P6:Q20]
ReDim b(1 To UBound(a), 1 To 2)
    For i = 1 To UBound(a)
        say = say + 1
        If a(i, 1) < a(i, 2) Then
            b(say, 1) = (a(i, 2) - a(i, 1)) / a(i, 1)
        Else
            b(say, 2) = (a(i, 2) - a(i, 1)) / a(i, 1)
        End If
    Next i
    If say > 0 Then
        [U6].Resize(say, 2).NumberFormat = "0.00%"
        [U6].Resize(say, 2) = b
    End If
MsgBox "İşlem tamam.", vbInformation
End Sub

 

[sirkülasyon]

Sayın Ziynettin
Teşekkür ederim. Allah senden razı olsun