البحث داخل الصفحة حتى النهاية

[احمد صلاح الدين]

السلام عليكم

أرجو من الاخوة الكرام إمدادي بكود يبحث عن كلمة متكررة داخل الصفحة ولتكن مثلا (Carried) ويواصل البحث إلى آخر الصفحة ثم نتقل إلى الصفحة الأخرى

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

[ابومؤنس]

تحية طيبة وبعد في الحقيقة...

لايوجد لدي كود معين للقيام بذلك . ولكن اعتقد ان الطريقة التقليدية ممكن تكون مفيدة لاانها تبحث في كامل الملف واذا وجدت الكلمة المطلوبة ممكن تضغط انتر وحتمن ستدلك علي الكلمة المكررة .

هناك دالة يمكنها ان تحدد عدد مرات تكرار كلمة معينة انها الدالة countif

واقصد بطريقة البحث التقليدية : (تحرير) ثم (بحث)

ارجو اني فهمت مطلبك

[حسام نور]

بعد إذن مشرفنا القدير ( محمد طاهر ) مرفق مثال لعملية البحث والكود هو

Private Sub CommandButton1_Click()
Worksheets("Search").Activate
Range("b1:IV65536").Select
Application.SendKeys ("^f")
End Sub

Search.zip

[احمد صلاح الدين]

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

أشكر الأخوة الكرام على الاستجابة المفيدة

ويبدو أني لم أوضح السؤال جيدا

فمثلا لدينا Sheet به 40 صفحة Page ، العمود الأول به كلمة متكررة Carried وأريد أن أبحث عن هذه الكلمة وأضع أمامها كلمة L.E في العمود الرابع ثم ننتقل إلى الـ Sheet الأخر ونكرر العملية مرة أخرى إلى آخر المصنف

وذلك عن طريق كود وليس باستخدام خاصية البحث والاستبدال

وشكراً

[احمد صلاح الدين]

السلام عليكم

انا وجد الحل في هذا الكود

sub currency()
' Macro recorded 19 01 2004 by ahmed Salah

    ActiveWorkbook.Sheets(1).Select
    For i = 1 To 16
        Range("A1").Cells.Select
            For s = 1 To 4
                Cells.Find(what:="CARRIED TO", after:=Selection).Activate
                Selection.Offset(0, 3).Select
                ActiveCell.FormulaR1C1 = "S.R."
Cells.FindNext.Select
End Sub

ولكن الأمر ينفذ مرتين فقط ولا يكتمل لباقي ال Sheetفهل من حل أفضل

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

تم تعديل يناير 30, 2004 بواسطه a_saladen

[Mohamed Abdou]

قمت بعمل ماکرو یبحث فی کل الاوراق ویدون نتیجه البحث فی ورقه جدیده مثلا یبحث عن کلمه معینه فی ورقه ویدون کل السطر الذی یحتوی علی هذه الکلمه لانی عندی ملف به اکثر من عشرون شیت ویبحث فی جمیع هذه الاوراق ولاکنی لا اعرف کیف ارسل هذا الملف او الماکرو الیک ؟

[السيد عبد العال]

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

أرجو أت يكون هذا هو الماكرو المطلوب

Sub FindAndSet()
Dim strFind As String, strSet As String
Dim shSheet As Worksheet
strFind = "Carried"
strSet = "L.E"
For Each shSheet In ThisWorkbook.Worksheets
   For Each cCell In shSheet.Range("A:A")
     If cCell.Value = strFind Then
        cCell.Offset(0, 3).Value = strSet
     End If
    Next cCell
 Next shSheet
End Sub

[احمد صلاح الدين]

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

جزاكم الله خيراً ومشكورين على هذا العمل الرائع

[Anwar]

اخواني ممكن تشرحني لي كيف استفيد من الكود السابق

شكرا لكم