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

Katılım
6 Mayıs 2007
Mesajlar
33
Excel Vers. ve Dili
Excel 2010 Türkçe
:yardim:
1 haftadır sitede dolaşıyorum benzer bir soru bulamadım :eek:
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

Özel Üye
Katılım
28 Nisan 2007
Mesajlar
2,218
Excel Vers. ve Dili
Office 2013 TR / 32 Bit
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
 
Katılım
6 Mayıs 2007
Mesajlar
33
Excel Vers. ve Dili
Excel 2010 Türkçe
: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

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,247
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Selamlar,

Ekteki örnek dosyayı incelermisiniz.
 
Katılım
6 Mayıs 2007
Mesajlar
33
Excel Vers. ve Dili
Excel 2010 Türkçe
:mutlu:

Çok teşekkür ederim , tam isabet

Selamlar
 
Katılım
6 Mayıs 2007
Mesajlar
33
Excel Vers. ve Dili
Excel 2010 Türkçe
:???:
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

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,247
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Selamlar,

Örnek bir dosya eklermisiniz.
 
Katılım
6 Mayıs 2007
Mesajlar
33
Excel Vers. ve Dili
Excel 2010 Türkçe
Ö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
 
Katılım
6 Mayıs 2007
Mesajlar
33
Excel Vers. ve Dili
Excel 2010 Türkçe
Selam
Örneği hızlı yaptım ve açıklama notumda E5 yazacakken E6 yazmışım özür dilerim.
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,247
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Selamlar,

Ekteki örnek dosyayı incelermisiniz.
 
Katılım
6 Mayıs 2007
Mesajlar
33
Excel Vers. ve Dili
Excel 2010 Türkçe
: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
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,247
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Selamlar,

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

Kod:
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
 
Katılım
6 Mayıs 2007
Mesajlar
33
Excel Vers. ve Dili
Excel 2010 Türkçe
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.
 
Katılım
6 Mayıs 2007
Mesajlar
33
Excel Vers. ve Dili
Excel 2010 Türkçe
İş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

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,247
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Selamlar,

Ekteki örnek dosyayı incelermisiniz.
 
Katılım
6 Mayıs 2007
Mesajlar
33
Excel Vers. ve Dili
Excel 2010 Türkçe
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

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,247
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
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.

Kod:
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
 
Katılım
6 Mayıs 2007
Mesajlar
33
Excel Vers. ve Dili
Excel 2010 Türkçe
İŞ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
 
Üst