عبدالفتاح في بي اكسيل

تفضل على حسب ما فهمت منك 

Work.xlsm

كود مبدع  من  بريفيسور  مبدع  احسنت استادنا سليم 

بالنسبة  للموديول اعذرني  لم انتبه  له   ولكن  الذي  اريد  ان اعرفه  لا تريد فتح ورقة جديدة سواء كانت الخلايا فارغة او ممتلئة  ام ماذا 

تفضل  اخي لقد  تم  معالجة المشكلة 

مشكلة الخلية الفارغه.xlsm

تفضل  اخي  اتمنى ان يكون المطلوب 

test.xlsx

تفضل اخي  هذا  بالكود افضل من المعادلات  لعله المطلوب

Sub FindName()
    
    Dim v As String, rngFound As Range
    
    v = Application.InputBox(Prompt:="Enter Name or Number Code", Type:=2)
    If v = "False" Then Exit Sub 'user canceled
    
    Set rngFound = Range("A:B").Find(v, , xlValues, xlWhole, 1, 1, 0)
    
    If Not rngFound Is Nothing Then
        Range("C2").Value = rngFound.EntireRow.Range("B1").Value
        Range("D2").Value = rngFound.EntireRow.Range("A1").Value
    Else
        Range("C2:D2").ClearContents
        MsgBox v, vbExclamation, "No Match Found"
    End If
    
End Sub

مطلوب.xls

انا   لا ادري  اصرار  الاعضاء  على المساعدة  بدون  ارفاق  ملف  يا  سيد  جون  كما  قال الاخ مهند  ارفق ملف 

عندي  ملاحظة  لا ادري  هذا  القائم على هذا  الموقع  يقوم بحدف  بعض  التعليقات  يبدو انه  لايميز  متى ما اراد  يقوم بحدف  التعليقات  رغم اني  تعليقاتي  لايوجد بها  تجاوزات  ويا ريت يشرحلنا ليش  عم بيحدف  تعليقاتي  وليست  المرة الاولى 

بارك  الله فيك   مزيدا  من العلم  والعطاء 

جرب هذا الكود اخي  ابو الخضر 

Sub print_sheet()
   Range("A4:w47").Select
   ActiveSheet.PageSetup.PrintArea = "A4:w47"
   ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate:=True
End Sub

العفو اخي    الحمد  لله انه  المطلوب  

تفضل  اخي 

حتى تعلم كيف  تم عملها  ادخل  على اليوزر فورم   واشر على التيكست بوكس  الذي  تريده ومن قائمة خصائص ابحث عن كلمة lock  تجدها false خليها true 

انظر  الى الصورة المرفقة 

نسخة تجريبية.xlsm

بارك  الله فيك  على مجهوداتك الطيبة  

بارك  الله فيك  استاد  سليم  مزيدا  من العطاء

السلام عليكم  احتاج  من خبراء  الاكواد  بان يقومي  لي بحل  هذه  المشكلة   الشرط  الذي  وضعته  هو  اذا كانت قيم العمود  B اكبر من قيم  العمود C  يتم  تلوين  فقط  القيم  الموجودة  في  العمود B  ولكن  ما يحدث  يقوم   بتلوين  بعض  القيم  التي  اقل  من  العمود C    بالاضافة  عندما  يتم  اضافة رقم  جديد  يتم تلوينه  قبل تطبيق  الماكرو 

Sub CompareAndHighlight()

    Dim rng1 As Range, rng2 As Range, i As Long, j As Long
    For i = 2 To Sheets("ورقة1").Range("B" & Rows.Count).End(xlUp).Row
        Set rng1 = Sheets("ورقة1").Range("B" & i)
        For j = 2 To Sheets("ورقة1").Range("C" & Rows.Count).End(xlUp).Row
            Set rng2 = Sheets("ورقة1").Range("C" & j)
            If rng1.Value > rng2.Value Then
                rng1.Interior.Color = RGB(255, 0, 0)
            End If
            Set rng2 = Nothing
        Next j
        Set rng1 = Nothing
    Next i

End Sub

HIGHLIGHT ‬.xls

كالعادة استاد  سليم  دائما تبدعنا بحلولك 

اخي تنقلت وكتابة داخل  الخلايا  ولا يوجد اي مشكلة

انا  لم  افهم  هل  تريد  عد  كلمات جامعة الملونة وغير  الملونة  اما  ماذا 

تفضل  اخي لعله يفي بالغرض 

countif 1xlsx.xls

اخي  الملف  محمي  عند  الدخول  الى محرر الاكواد  يطلب كلمة المرور وين  المشكلة  والصورة غير واضحة  

احسنت استاد  سليم 

بعد اذنك استاد سليم  هذا ايضا  قد يساعده  بالكود  ويمكن التحكم بالمدى على حسب بياناته 

merge data1‬.xls

تفضل اخي  لقد  وضعت كود بسيط  اكتب  الارقام  التي تريدها  وسيتغير الى السالب تلقائيا 

أرقام سالبة.xls

فعلا استادة ساجدة   لك الحق في ذلك  بعد هذا  التعب  ياتي شخص  وينسبه له   كان  الاجدر  ان يستاذن منك  ويضع  رابط  الشرح الخاص بك   لست  انت الاولى   هناك  اشخاص  قاموا  بنفس  الشيء   سواء قنوات طبخ  او تعليمية   ارجو ان لا يتم حدف  تعليقي  ايضا  وجب  على ادارة  المنتدى  ان تكون   لها  قوانين صارمة  بخصوص  سرقة  محتويات  الاخرين   وعدم   المجاملة   في هكذا  اشياء 

العفو    جيد انه  المطلوب

تحياتي