ammarhowari قام بنشر سبتمبر 20, 2022 مشاركة قام بنشر سبتمبر 20, 2022 السلام عليكم ..لدي ١٠ شيتات ...بشيت اخرى لدي قيمة. عايز بطريقة او بمعادلة اعرف القيمة وين موجودة. بأيا شيت لدي ١٠ شيتات ...بشيت اخرى لدي قيمة. عايز بطريقة او بمعادلة اعرف القيمة وين موجودة. بأيا شيت بمعني اخر لدي 10 شيتات وبشيت11 لدي قيم متواجة في الشيتات العشرة بعمود A عايز اعرف القيمة اللي بالشيت 11 وين موجود بأيا شيت من العشرة السابقات .. كل الودّ شيتات.xlsx رابط هذا التعليق شارك More sharing options...
أفضل إجابة ابراهيم الحداد قام بنشر سبتمبر 20, 2022 أفضل إجابة مشاركة قام بنشر سبتمبر 20, 2022 السلام عليكم ورحمة الله استخدم هذا الكود Sub SeaechData() Dim Sh As Worksheet, ws As Worksheet Dim LR As Long, i As Long, C As Range Dim ShNam As String Set Sh = Sheets("ورقة11") For Each ws In Worksheets If ws.Name <> Sh.Name Then LR = ws.Range("A" & Rows.Count).End(3).Row i = 7 Do While Sh.Cells(i, 6) <> "" For Each C In ws.Range("A1:A" & LR) If C.Value = Sh.Cells(i, 6) Then ShNam = ws.Name Sh.Cells(i, 7) = ShNam End If Next i = i + 1 Loop End If Next End Sub 3 رابط هذا التعليق شارك More sharing options...
Ali Mohamed Ali قام بنشر سبتمبر 22, 2022 مشاركة قام بنشر سبتمبر 22, 2022 amarhowari ..انتبه من فضلك فالكود يعمل بكل كفاءة ..بارك الله فيك استاذ ابراهيم ..بعد اذن أستاذنا ابراهيم هذا هو الكود بعد وضعه بالملف وشوف النتيجة بنفسك فهذا يكفى !!!! شيتات.xlsm 3 رابط هذا التعليق شارك More sharing options...
ammarhowari قام بنشر سبتمبر 22, 2022 الكاتب مشاركة قام بنشر سبتمبر 22, 2022 الف شكر استاذي جزاك الله عنا كل خير ممنونك رابط هذا التعليق شارك More sharing options...
الردود الموصى بها