احمدزمان

ايش المطلوب

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

آمين يارب لنا و لكم و لجميع المسلمين

تفضل اخي الفاضل تم التعديل للعمل على اعمدة الرقم فقط عدم التكرار في ثلاث اعمدة مختلفينAZ.rar

و عليكم السلام و رحمة الله وبركاته مرفق حل باستخدام الدوال بيانات موظفين.rar

و عليكم السلام و رحمة الله وبركاته اخي الفاضل محمد سامر لم استطع التعديل على الكود الموجود ولكن عملت كود آخر - - آمل ان يفي بالمطلوب 'On Error Resume Next Dim RN1 As Range, RN2 As Range Dim Q1 Set RN1 = Range("b7:b18,h7:h18,m7:m18") Q1 = Range(Target.Address) For Each RN2 In RN1 If Q1 <> "" And RN2.Address <> Target.Address And RN2 = Q1 Then MsgBox "ÇáÇÏÎÇá : " & Target.Value & " ãßÑÑ ÓíÊã ÍÐÝå ", vbMsgBoxRight, "ÇÏÎÇá ãßÑÑ" Cells(Target.Row, Target.Column).Select Selection = "" Exit Sub End If Next عدم التكرار في ثلاث اعمدة مختلفينAZ.rar

السلام عليكم و رحمة الله وبركاته في المرفق اضغط على ADD DATA يتم اضافة البيانات امام رقم الشيك من الخلايا الزرقاء Sub ماكرو1() ' الماكرو مسجل ‎09/08/2017 بواسطة ‎Zmn ' Dim Q1, ER, RR Dim FS As Worksheet, TS As Worksheet ' Set FS = Sheets("Cheque Form") Set TS = Sheets("Cheque Book") Q1 = FS.Range("L2") ER = TS.UsedRange.Rows.Count For RR = 5 To ER If TS.Cells(RR, 2) = Q1 Then FS.Range("M2:T2").Copy TS.Cells(RR, 3).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False End If Next MsgBox "DUN" End Sub ترحيل شيك.rar شوف المرفق به افكار قد تفيدك

و عليكم السلام و رحمة الله وبركاته بعد النسخ تختار الخلية الأولى محل اللصق ثم كليك يمين من الماوس ثم تختار لصق خاص ثم تختار تبديل موضع كما في الصورة ثم موافق

السلام عليكم و رحمة الله وبركاته بعد الشكر لأخي محمود ابو الذهب انظر الرابط

و عليكم السلام راجع الرابط التالي https://www.officena.net/ib/topic/57813-تحديد-صف-وعمود-الخلية-النشطة-تلوين-العمود-والصف-باستخدام-التنسيق-الشرطي/ للأستاذ الفاضل و القدير ابو البراء جزاه الله كل خير

وعليكم السلام المشكلة في تسمية النطاقات حيث انك زدت بيانات جديدة في هذا الملف عن الملف السابق تم التعديل يحسب الأن الملف حتى الصف خمسة و خمسون الف للفواتير و اربعة الآف للمشتريات مع التحية الخلاصةaz - تعديل11.rar

يوجد الدالة SEARCH وهي تعمل نفس عمل الدالة FINDولكن هي اوسع من ناحية التحسس لحالة الأحرف يمكن تجاهل الهمزة مثلا لحرف الألف =========================== كما ذكرت في المثال السابق الدالة SEARCH لافرق لديها بين كبتال او سمال

و عليكم السلام بعد تفعيل الماكرو اضغط زر تحديث اعلى ورقة الخلاصة تظهر لك البيانات Sub ALKULASAH() Sheets("ÊÌãíÚ ÇáÝæÇÊíÑ").Range("A2:B5555"). _ AdvancedFilter Action:=xlFilterCopy, CriteriaRange _ :=Range("A2:B2"), CopyToRange:=Range("A2:B5555"), Unique:=True End Sub الخلاصةaz - تعديل.rar

و عليكم السلام ورحمة الله وبركاته لرفع الملف اضغط الملف ببرنامج RAR او ZIP ثم ارفعه في المشاركة

وعليكم السلام و رحمة الله وبركاته شاهد الحل المرفق آمل ان يكون هو المطلوب تمت اضافة عمود = متوسط سعر الشراء الخلاصةaz.rar

السلام عليكم ورحمة الله وبركاته اخي الفاضل حسن ليس لها اي دور انا وضعتها في البداية لأنني كنت متوقع ان استخدمها - ولم استخدمها ونسيت حذفها عند الإنتهاء

اخي ابو اسحاق كلامك صحيح ولكن اذا اوضحت ماتريد عمله فعلا بمثال قد يكون هناك حلول اخرى يتكرم بها احد الأعضاء تكون غائبه عنا

و عليكم السلام لصق القيم ممكن الكود التالي Selection.PasteSpecial Paste:=xlPasteValues اما القص و النسخ لا ادري

كل سنة و انته طيب اخي الحبيب ابو البراء انته المعلم ونحنه منك نتعلم - -

السلام عليكم و رحمة الله وبركاته كل عام وانتم بخير تحياتي و تقديري للجميع جرب المرفق لعل به المطلوب Dim R, ER, Q1, Q2 ER = ActiveSheet.UsedRange.Rows.Count Q1 = Range("M1") For R = 2 To ER If Cells(R, 1) <> "" Then Cells(R, 2) = Q1 Next R جزاكم الله كل خير ترحيل بشرط.rar

و عليكم السلام و رحمة الله وبركاته اكتب اسم العميل تظهر البيانات عمل وصل بمشتريات العميل - كود.rar

بالتوفيق الدائم ان شاء الله

السلام عليكم و رحمة الله وبركاته اذا افترضنا انك وضعت كلمة السر في الخلية AA11 من الورقة

السلام عليكم و رحمة الله وبركاته ممكت انته تعمل اليوزر فورم و توضح به الخانات المطلوبه ثم يقوم احد الإخوة بربطه مع البيانات في الملف و الورقة

السلام عليكم و رحمة الله وبركاته الف مليون تحية وتقدير للأستاذ القدير الفاضل محمد صالح جزاك الله خيرا لك علي افضال كثيرة وتعلمت منك الكثير و عليكم السلام اذا افترضنا ان هذه تأشيرات عمرة اذا سوف نحسب على اي تاريخ للمغادرة = ENTRY DATE او RENEWAL 1 او RENEWAL 2 هل EXIT تعني ان الشخص غادر سواء كان هناك تاريخ EXIT DATE او لا يوجد هذا للنقطة الأولى فقط