مكتبة الموقع - h

[أسماء]

اعرض الملف

h

---

عند كتابة التاريخ في الخلية B3  بان يبحث عنها في العمود E والذهاب اليها   وكذلك البحث في الصف 3

كود انتقال.rar

كود انتقال.rar

---

• صاحب الملف
  أسماء
• تمت الاضافه
  02 ديس, 2015
• الاقسام
  قسم الإكسيل

[عبد العزيز البسكري]

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

إحدى الحلول البسيطة بواسطة التّنسيق الشّرطي و تلوين خلية التّاريخ محل البحث ..ربما تفي بالعرض

فائق إحتراماتي

 

كود انتقال.rar

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

أختي الفاضلة جربي الكود التالي

Sub Find_Date()
    Dim C As Range, StrDate As Date, Rng As Range
    StrDate = CLng(Range("B3"))
    Set Rng = Union(Columns("E:E"), Range("E3:O3"))
    
    Set C = Rng.Find(What:=StrDate, LookIn:=xlFormulas)
    If Not C Is Nothing Then C.Select
End Sub

 

 

[الـعيدروس]

السلام عليكم

او بالكود التالي لاثراء الموضوع

Sub Ali_Rng_Find()
Dim Rng As Range, Rn As Range, R As Range
Set Rn = [B3] '' خلية شرط البحث
For Each Rng In ActiveSheet.UsedRange
 If Rng.Value = Rn.Value And IsDate(Rn) And _
   Rng.Address <> Rn.Address Then
   If Not Rng Is Nothing Then If R Is Nothing Then _
   Set R = Rng Else Set R = Union(R, Rng)
 End If
Next Rng
If Not R Is Nothing Then R.Interior.ColorIndex = 3: R.Activate
Set Rng = Nothing: Set Rn = Nothing: Set R = Nothing
End Sub

 

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

حل أروع وأجمل أخي أنو نصار

تسلم الأيادي يا كبير

تقبل وافر تقديري واحترامي

 

[مختار حسين محمود]

Sub Ali_Rng_Find2()
Dim Rng As Range, Rn As Range, R As Range
Set Rn = [B3] '' خلية شرط البحث

Sheets("ورقة1").Range("E3").CurrentRegion.Interior.Pattern = xlNone
For Each Rng In ActiveSheet.UsedRange

 If Rng.Value = Rn.Value And IsDate(Rn) And Rng.Address <> Rn.Address Then
   
   If Not Rng Is Nothing Then If R Is Nothing Then Set R = Rng Else Set R = Union(R, Rng)
   
 End If
Next Rng
If Not R Is Nothing Then R.Interior.ColorIndex = 3: R.Activate
Set Rng = Nothing: Set Rn = Nothing: Set R = Nothing
End Sub

حل رائع أخى الكريم  العيدروس

لو تسمح بالاضافة  السابقة ( ازالة اللون عن الخلايا المحددة باللون الأحمر سابقا  و تلوين الخلايا المحددة حاليا فقط )