DEĞİŞEN HÜCRELERİ GÖSTER

[Soulth]

DEÐÝÞEN HÜCRELERÝ GÃ?STER

arkadaşlar benim şöle bir sorunum var. bazı hazırladığım verilerde değişimler oluyor ve bunu izlemek için makro yazmak lazım. ancak bu konuda yeterli bilgim yok. bana bu konuda yardım etmeniz lazım. şöle olacakki gidiğim verilerin ne kadar yükseldiğini yükleşin % oranını ve değişşik renklerde veren ayrıca yanlışları düzelten bir makro yazmam lazım. yani bir diğer tabirle bir hücre değişince bana değişen hücrenin değişen verisini ve neyin değiştiğini göstermesini isterem. bu konuda yardımcı olacaklara şimdiden teşekkür ederim.

 

[Hüseyin]

Merhaba Soulth,
aşağıda bu çalışmayı gerçekleştirecek kodu ekliyorum.

Bu kodu bir module içerisine değil
Alt+F11 ile VBAyı açın.
Project Explorerden "This Workbook" üzerine çift tıklayın ve kodu bu açılan sayfaya kopyalayın.

Normal module sayfasına eklerseniz çalışmaz.

Deneme sonrası sonucu bildirirseniz memnun olurum.

Sonuca farklı şekilde giden arkadaşlar kodlarını paylaşırsa sevinirim.

Private Sub yaz(deger, adres, yenideger)
If deger = 0 Then
yuzde = 1
ElseIf IsNumeric(deger) And IsNumeric(yenideger) Then
yuzde = (deger - yenideger) / deger
yuzde = yuzde * 100 * (-1)
yuzde = FormatNumber(yuzde, 2)
End If

If deger < 1 Then deger = 0
    Range(adres).ClearComments
    Range(adres).AddComment " "
    Range(adres).Comment.Visible = False
    Range(adres).Comment.Text Text:="Eski Değer: " & deger & Chr(10) & "Değişim: %" & yuzde
End Sub


Public Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
adres = Range("IV1").Value
deger = Range("IV2").Value
If adres > 0 Then
yenideger = Range(adres).Value
If deger <> yenideger Then
Call yaz(deger, adres, yenideger)
End If
End If
Range("IV1").Value = ActiveCell.Address
Range("IV2").Value = ActiveCell.Value
End Sub

 

[dduygushh]

bu çok eski bir mesaj ama bana da kısmen buna benzer bir macro lazım. benim excel'de hücreler içerisindeki yazılarda değişiklik yapıldığında o hücrenin kırmızıya dönmesini istiyorum. hücrenin eski halini de belirleyeceğim bir bölüme atmak iyi olabilir. böyle bir konuda bana yardıme debilir misiniz?