معرفة الشيت التي تحتوي على قيمة معينة في عمود محدد

[ammarhowari]

السلام عليكم  ..لدي ١٠ شيتات  ...بشيت اخرى لدي قيمة. عايز  بطريقة او بمعادلة اعرف القيمة   وين موجودة.  بأيا شيت 
لدي ١٠ شيتات  ...بشيت اخرى لدي قيمة. عايز  بطريقة او بمعادلة اعرف القيمة   وين موجودة.  بأيا شيت 

بمعني اخر    لدي 10 شيتات      وبشيت11 لدي قيم متواجة في الشيتات العشرة    بعمود A

عايز اعرف القيمة اللي بالشيت 11  وين موجود    بأيا شيت  من العشرة السابقات   .. كل الودّ

شيتات.xlsx

[ابراهيم الحداد]

السلام عليكم ورحمة الله

استخدم هذا الكود

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

 

[Ali Mohamed Ali]

amarhowari   ..انتبه من فضلك فالكود يعمل بكل كفاءة ..بارك الله فيك استاذ ابراهيم ..بعد اذن أستاذنا ابراهيم هذا هو الكود بعد وضعه بالملف وشوف النتيجة بنفسك فهذا يكفى !!!!

شيتات.xlsm

[ammarhowari]

الف  شكر استاذي جزاك الله عنا كل خير   ممنونك