Comment Edit

[cevatyildiz]

Merhaba,

Yüzlerce satırlık bir excel listem var ve autofilter la kayıtlar arasında geziniyorum ve bazı hücrelere sağ click yapıp açıklama ekliyorum, fakat daha sonra ki bir gün bu açıklamayı düzenlemek istediğimde açıklamanın çok aşağılara kaydıgını görüyorum ve manual bir şekilde tekrardan ilgili hücrenin yanına çekiyorum.

Lsitenin Autofilter lı olmasından dolayı kaynaklanan bu problemi nasıl çözebilirim?

 

[Mehmet Şahin]

Merhaba,
dosyanızın yedeğini aldıktan, sonra aşağıdaki kodu bir modüle kopyalayıp
çalıştırın, kolay gelsin.

Sub yorum()
    Dim cmtEach As Comment
        If ActiveSheet.Type <> XlSheetType.xlWorksheet Then
        Exit Sub
    ElseIf ActiveSheet.Comments.Count = 0 Then
        MsgBox "Yorum bulunamadı.", vbInformation, "No Comment!!"
    Else
            For Each cmtEach In ActiveSheet.Comments
            cmtEach.Shape.Placement = xlMoveAndSize
        Next cmtEach
    End If
End Sub

 

[cevatyildiz]

çok teşekkürler dentex..

Kodu bu aksam deneyeceğim.

 

[cevatyildiz]

Ne yazık ki istediğimi sağlamıyor. Autofilter da yazdıgım comment, auto filtersız ekran da editlemek istediğimde aşağıda görünüyor.

 

[Mehmet Şahin]

Merhaba,
imkânınız varsa bir örnek dosya ekleyebilirmisiniz? iyi çalışmalar.

 

[cevatyildiz]

ok dosya ektedir. Şunları yaptım. C sütununda autfilter kullanarak 20,006 değeri olan hücreyi seçtim.
Sonrasında insert comment le yorum ekledim.
ve autofilter seçeneğini "All" a çektim.

C18 in üzerine geldiğinizde yorumu görebiliyoruz ama edit etmek istediğimizde en son hangi hücrede iken yorumu girmişsek otomatik olarak o hücrenin yakınında yorum kutusunun oldugunu görüyoruz.

Autofilter aktif veya değilken yaptıgım yorum girişlerini edit etmek istediğimde yorum kutusu hemen o hücrenin yakınında çıkmasını istiyorum.

Umarım yardımcı olabilirsiniz.

 

[Mehmet Şahin]

İyi akşamlar,
modüle aşağıdaki kodu kopyalayıp , çalıştırıp deneyiniz, saygılar.

Sub ResetComments()
Dim cmt As Comment
For Each cmt In ActiveSheet.Comments
   cmt.Shape.Top = cmt.Parent.Top + 5
   cmt.Shape.Left = _
      cmt.Parent.Offset(0, 1).Left + 5
Next
End Sub

 

[cevatyildiz]

ne yazık ki açıklamanın yeri yine değişiyor...

 

[Mehmet Şahin]

Ben denedim, başarılı oldu. Comment editlemeden önce çalıştırırsanız, bulunduğu hücrenin yanında açılıyor.

 

[cevatyildiz]

Modul background da kendisi çalışmıyor mu? Benim mi çalıştırmam gerekiyor???

 

[Mehmet Şahin]

Hayır bir düğmeye atayıp çalıştırabilirsiniz. Hücre değiştiğinde de çalıştırılabilir ancak dosya için külfet olur, saygılar.

 

[cevatyildiz]

Sayın Dentex, performansını görmek amacıyla hücre değiştiğinde bu işlemi yaptırmak için kodu nasıl değiştirmem gerekir? Butonla çalıştırma çok doğru olmayacak...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

denedim ama olmadı..

İlgilendiğiniz için teşekkür ederim, Saygılar

 

[Mehmet Şahin]

Merhaba,
sayfanın kod editöründe a1 ve z son satır aralığı için aşağıdaki kodu
deneyebilirsiniz, iyi çalışmalar.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
      If Target.Cells.Count > 1 Then Exit Sub
      If Intersect(Target, Range("a1:z" & [d65536].End(3).Row)) Is Nothing      Then  
      Else
      Call ResetComments
      End If
End Sub

 

[cevatyildiz]

çok teşekkürler tam istediğim gibi oldu.

Saygılar..