تعديل كود

[منيير]

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

في المثال اسفله لدي كود يقوم بالبحث في جميع الشيتات الموجودة في ملف العمل 

ما اريده هو ان يقوم الكود بالبجث فقط في العمود C 

بارك الله فيكم

وهذا هو الكود :

Sub MySearsh()
  Dim Searsh As String
  Dim FirstValue As String
  Dim NextValue As String
  Searsh = Application.InputBox(prompt:="Veuillez saisir une valeur", Title:="Microsoft Excel", Type:=2)
  For Each sh In Worksheets
    With sh
      If .Cells.Find(What:=Searsh, After:=ActiveCell) Is Nothing Then GoTo 1
      .Activate
      With .Cells.Find(What:=Searsh, After:=ActiveCell)
        .Activate
        FirstValue = .Address
      End With
      Do
        If .Cells.FindNext(After:=ActiveCell) Is Nothing Then GoTo 1
        If MsgBox("Rechercher un autre résultat", vbYesNo, "Microsoft Excel") = vbNo Then Exit Sub
        With .Cells.FindNext(After:=ActiveCell)
          .Activate
          NextValue = .Address
        End With
      Loop Until FirstValue = NextValue
    End With
1  Next sh
End Sub

[ياسر خليل أبو البراء]

ارفق ملف أخي الكريم

[محمد الورفلي1]

السلام عليكم

 

بعد اذن الاستاذ الغالي جداً ياسر  ذو الهمة العالية بارك الله في عملك  (( مساعدة من اخوك المبتدئ )) ربما تنفعك فا أنا استخدم مثل هذا الكود في البحث في ملفاتي

 

وهو من عمل احد الاخوه في هذا المنتدي العريق

 

بحث.rar

تم تعديل مارس 31, 2015 بواسطه محمد الخازمي

[منيير]

تفضل اخي ياسر الملف في المرفقات بارك الله فيك

Search.zip

[ياسر خليل أبو البراء]

يرجى الإطلاع أولا على هذا الرابط

http://www.officena.net/ib/index.php?showtopic=60147

والحدق يفهم !!

 

جرب الكود بهذا الشكل

Sub MySearsh()
  Dim Searsh As String
  Dim FirstValue As String
  Dim NextValue As String
  Searsh = Application.InputBox(prompt:="Veuillez saisir une valeur", Title:="Microsoft Excel", Type:=2)
  For Each sh In Worksheets
    With sh
      If .Columns("C:C").Find(What:=Searsh, After:=ActiveCell) Is Nothing Then GoTo 1
      .Activate
      With .Columns("C:C").Find(What:=Searsh, After:=ActiveCell)
        .Activate
        FirstValue = .Address
      End With
      Do
        If .Columns("C:C").FindNext(After:=ActiveCell) Is Nothing Then GoTo 1
        If MsgBox("Rechercher un autre résultat", vbYesNo, "Microsoft Excel") = vbNo Then Exit Sub
        With .Columns("C:C").FindNext(After:=ActiveCell)
          .Activate
          NextValue = .Address
        End With
      Loop Until FirstValue = NextValue
    End With
1  Next sh
End Sub

تم تعديل أبريل 1, 2015 بواسطه YasserKhalil

[منيير]

اخي ياسر لا يعمل الكود يعطيني رسالة خطا

[ياسر خليل أبو البراء]

أنا جربته وشغال ومفيش أي مشكلة ..

[منيير]

 والله يا اخي ياسر لا يشتغل معايا 

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

 

 

Suivi Béton - Copie.zip

[ياسر خليل أبو البراء]

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

[أبو العاصم]

عم ياسر خليل

إلهى اشوفك جاى من الحج

طل على الموضوع ده

ربنا يسعدك يا عم 

http://www.officena.net/ib/index.php?showtopic=60174&p=386317

[ياسر خليل أبو البراء]

والله لو عندي فكرة مش هبخل عليك بيها ..كل الفكرة إني مفهمش في لغة الدائن والمدين والكلام ده ..صعب عليا شوية .. لو تطلب طلبك بعيد عن المسميات ممكن أحاول أفهم المطلوب ..

ويا أخي يرجى الرد في موضوعك .. فضلاً لا أمراً ..حتى تكون المواضيع منظمة ومرتبة

[منيير]

هذا هو ملف العمل عندما اشغل الماكرو يعطيني ريالة خطا 13

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

Suivi Béton - Copie.zip