Hücre Rengi ile Açıklamaya işlem görüntüleme

[Arrayn]

:yardim:
1 haftadır sitede dolaşıyorum benzer bir soru bulamadım
Mouse ile üzerinde bulunduğum hücre rengi mavi ise şöyle bir işlem yapmasını istiyorum.
aktif hücre değeri ile solundaki hücre değerini topla ve sonucu hücre açıklama balonunda göster.
Yardımlarınızı bekliyorum .

 

[N.Ziya Hiçdurmaz]

yanıt

Sayfa kod bölümüne yapıştırınız.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If ActiveCell.Interior.ColorIndex = 5 Then
toplam = ActiveCell.Value + ActiveCell.Offset(0, -1).Value
MsgBox "" & toplam
End If
End Sub

 

[Arrayn]

:hey:
Üstad eline sağlık %99 istediğim buydu, yalnız msgbox 'da görüntülemek istememiştim, mouse ile üzerinde durduğum hücrenin otomatik açılan açıklama
penceresine sonucu taşımak mümkünmü ? Olmazsa buda işime yarar. şimdiden teşekkürler.

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz.

 

[Arrayn]

:mutlu:

Çok teşekkür ederim , tam isabet

Selamlar

 

[Arrayn]

:???:
Selamlar
Yazdığınız kodu denedim, hücre koşullu biçimlendirme ile renklendirilmişse kod çalışmıyor. Aynı hücreyi manuel olarak renklendirince çalışıyor. Kısacası koşullu biçimlendirmeden gelen interior renk görülmüyor :yardim: ???

 

[Korhan Ayhan]

Selamlar,

Örnek bir dosya eklermisiniz.

 

[Arrayn]

Örnek bir dosya ekliyorum ...
Örnekte hücre rengi koşullu biçimlendirme ile renklendrildi
sayı beşden büyükse hücre 15 nolu rengi alıyor ama kod da rengi görmüyor

 

[Arrayn]

Selam
Örneği hızlı yaptım ve açıklama notumda E5 yazacakken E6 yazmışım özür dilerim.

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz.

 

[Arrayn]

:yardim:
Dosyayı inceledim ...
Aslında yapmak istediğim orjinal dosyayı koymak isterdim neyazk ki 5mb büyüklüğünde.

2. Örnek dosyada 1-2 bişi eksik gibi , dosya içinde notları kısaca yazdım
kontrol edebilirseniz sevinirim.

Selamlar

 

[Arrayn]

:yardim:
:yazici:

 

[Korhan Ayhan]

Selamlar,

Örnek dosyadaki kodu aşağıdaki şekilde değiştirip denermisiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error Resume Next
    Cells.ClearComments
    If Not IsEmpty(Target) Then
    If Target.FormatConditions(1).Interior.ColorIndex = 5 Then
    TOPLAM = WorksheetFunction.Sum(Target.Value, Target.Offset(0, -1).Value)
    Cells.ClearComments
    With Target
    .AddComment
    .Comment.Visible = True
    .Comment.Text Text:="İŞLEM : = " & Target & "+" & Target.Offset(0, -1) & Chr(10) & "SONUÇ : " & TOPLAM
    .Comment.Visible = False
    End With
    End If
    End If
End Sub

 

[Arrayn]

Selamlar,

Kodu denedim, boş hücrelerde açıklama gelmiyor fakat renk ne olursa olsun hücre dolu ise açıklama çıkıyor. :agla:

Hücrede koşul gerçekleşince interior renk mavi oluyor aslında gerçek dosyada başka renklerde var mavi renkli hücredeki değer benim o mala ait beklediğim ithal malların parti sayısı ve bu partiden sipariş rezerv yapılmışsa hücre mavi oluyor. Çalışmamın bu noktasında açıklamaya gerek duydum ve mavi olan hücredeki parti malın üzerinde durduğumda açıklamada görüntülenmesini istediğim bir yığın formül kullanacağım (inşaallah). Fakat gördüğüm kadarı ile FormatConditions(1).Interior.ColorIndex hücre rengini tanımlıyamıyor. Yapılabilecek bişi varsa yardımlarınızı bekliyorum . Bu arada gerçek dosya da çok link var onları ayıklayıp rapor sayfasını göndermeye çalışacağım.

 

[Arrayn]

İşte konuya ait gerçek çalışma

Selamlar,

EK'teki dosya gerçek çalışmadan kırpılarak yapılmıştır. Detayları dosyaya açıklamalı yazdım. Yardımlarınızı bekliyorum.
:yardim:

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz.

 

[Arrayn]

Evet koşullu biçimlendirmede mavi tanımlaması varsa kod çalışıyor. Fakat bir hata var o da koşulda mavi rengi var ama koşul gerçekleşmemiş yani hücre renklenmediği halde kod yine çalışıyor. Bu durum çözülebilirmi ?
Selamlar

 

[Korhan Ayhan]

Kodu denedim, boş hücrelerde açıklama gelmiyor fakat renk ne olursa olsun hücre dolu ise açıklama çıkıyor.

Evet koşullu biçimlendirmede mavi tanımlaması varsa kod çalışıyor. Fakat bir hata var o da koşulda mavi rengi var ama koşul gerçekleşmemiş yani hücre renklenmediği halde kod yine çalışıyor. Bu durum çözülebilirmi ?
Selamlar

Selamlar,

Ne istediğinize karar vermeniz gerekiyor. Bir diyorsunuz boş hücrelere açıklama gelmiyor. Sonra diyorsunuz ki koşul rengi mavi hücre boş neden açıklama gelmiyor. Son eklediğim dosya işinize yaradıysa kodu aşağıdaki şekilde değiştirip deneyiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Cells.ClearComments
    If Target.Address Like "*" & ":" & "*" Then Exit Sub
    If [COLOR=RED]Not IsEmpty(Target) And[/COLOR] Target.FormatConditions.Count > 0 Then
    If Target.FormatConditions(1).Interior.ColorIndex = 5 Then
    TOPLAM = WorksheetFunction.Sum(Target.Value, Target.Offset(0, -1).Value)
    Cells.ClearComments
    With Target
    .AddComment
    .Comment.Visible = True
    .Comment.Text Text:="İŞLEM : = " & Target & "+" & Target.Offset(0, -1) & Chr(10) & "SONUÇ : " & TOPLAM
    .Comment.Visible = False
    End With
    End If
    End If
End Sub

 

[Arrayn]

İŞte Budur

Aslında boş hücrelerde kod çalışmıyor derken olumlu bir ifade kullanmak istemiştim ama yeterince açık olamamışım.

Şimdiki kod %100 tam isabet . Ellerin dert görmesin. Kullandıkça dua edeceğim.

Saygılarımla