معادلة او اسلوب عن طريقة اجد الكتب التى بها comments او ال comments فقط و لكن فى sheet واحد.

[ayman morsy]

رجاء من خبراء الاكسل للاهمية

معادلة او اسلوب عن طريقة اجد الكتب التى بها كومنتات فى شيت محدد

او بمعنى اخر اسلوب لتجميع الكتب التى بها كومنتات فقط  فى مكان واحد لتسهيل عملية البحث

مرفق ملف للايضاخ

و لكم منى جزيل الشكر

 

المطلوب - .xlsx

[سليم حاصبيا]

جرب هذا الكود

Option Explicit
Sub find_comm()
Dim My_Sh As Worksheet
Set My_Sh = Sheets("المطلوب")
Dim r%, I%, K%, Col%, m%, com$, Ro%
m = 5: Col = 2

My_Sh.Range("a5").CurrentRegion.Offset(1).ClearContents
 For I = 1 To Sheets.Count
    If Sheets(I).Name <> My_Sh.Name Then
       My_Sh.Cells(Ro + 5, 1) = Sheets(I).Name: Ro = Ro + 1
      r = Sheets(I).Cells(Rows.Count, 2).End(3).Row
      If r < 5 Then GoTo next_i
          For K = 5 To r
                 On Error Resume Next
             com = Sheets(I).Cells(K, 2).Comment.Text
            If Err.Number = 0 Then
               My_Sh.Cells(m, Col) = Cells(K, 2).Address
               Col = Col + 1
            End If
       Next K
    End If
   m = m + 1: Col = 2
next_i:
 Next I
End Sub

الملف مرفق

Salim_المطلوب - .xlsm

[Ali Mohamed Ali]

بارك الله فيك استاذ سليم كود ممتاز جعله الله فى ميزان حسناتك

[ayman morsy]

اشكركم على الاستجابة السريعة على طلبى و جعلة الله فى ميزان حسناتكم و لكن للاسف انا لا اعرف كيف اضع هذا الكود و اين يالضبط. 

 ارجو من سيادتكم الايضاح من خلال الملف المرفق

و جزاكم الله خيرا  

[سليم حاصبيا]

اين   الملف المرفق

[ayman morsy]

سعيد جدا لوجود معى سيدى الفاضل و لكن للايضاح

 المراد ليس معرفة المكات فقط و لكن ايضا معرفة و قراءة

الكومنت الموجود فية 

Salim_المطلوب - .xlsm

[سليم حاصبيا]

تم التعديل

 

Salim_المطلوب - new.xlsm

[ayman morsy]

اللة عليك يا  استاذ بجد شىء عظيم  و لكن برجاء شرح طريقة وضع الكود لكى اتعلم كيفية عملها فى الملفات الاخرى. 

و شكرا جزيلا على مجهودكم الكبير

[سليم حاصبيا]

شاهد هذا الفيديو

https://www.youtube.com/watch?time_continue=2&v=IBq92g7gGBE