إبراهيم ابوليله

اخى طاهر ماذا تقصد ب ان زر الاسترجاع لا يعمل

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

اخى طاهر تم عمل المطلوب عملاء1.rar

اخى طائع السلام عليكم ورحمه الله وبركاته هل تقصد هكذا الجودة.rar

اخى الكريم اولا يجب عليك الاتزام بقواعد المنتدى ومنها ان تكون اسماء الظهور باللغه العربيه -------------------------------------- ثانيا تم تغير الكود الخاص بالبحث فى التيكست بوكس لانه ثقيل جدا وتم وضع كود اخف ----------------------------------------------------- ثالثا عمل زر للطباعه -------------- اتمنى ان اكون وفقت فى عمل المطلوب جرد الايراد1.rar

اخى طاهر السلام عليكم ورحمه الله وبركاته ------------------------------------- تم عمل الاتى اضافة زر استخراخ بيانات الفاتوره المسجله من قبل -------------------------------------------------- تم عمل كود مسح الفاتوره بعد الادخال -------------------------------------------------- كما تم اضافة كود وظيفته اعطاء رقم فاتوره جديد بعد الترحيل بمعنى انك لو كنت بصدد ادخال بيانات فاتوره برقم 10 فبعد الضغط على زر الترحيل يتم مسح جميع البيانات ثم اعطاء رقم فاتوره جديد وهو رقم 11 ------------------------------------------------------------- وان شاء الله سوف يتم عمل كود لطباعة الفاتوره ترحيل بيانات1.rar

اخى انس اشكرك على متابعه الموضوع واتمنى لك الاستفاده -------------- ولكن ادعوك اخى للالتزام بقواعد المنتدى ومنها ان تكون اسماء الظهور باللغه العربيه بارك الله فيك

اخى طاهر السلام عليكم ورحمه الله وبركاته --------------------------------------------- بالنسبه للمطلوب الاول فقد تم عمله فى المشاركه رقم 10 فقط قم باختيار نوع البحث ثم قم بكتابة مثلا اول حرف من محمد حرف م ستجد ان جميع الاسماء التى تبدأ بمحمد قد ظهرت فقط قم بالضغط ضبل كليك على الاسم الذى تريده اظهار بياناته ثم الضغط على زر البحث وهكذا بالنسبه للكود شاهد الفيديو المرفق ha.rar عملاء1.rar

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

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

اخى السلام عليكم هل تقصد هكذا MAIL.rar

اخى طاهر محمد السلام عليكم ورحمه الله وبركاته جرب المرفق عملاء1.rar

اخى طاهر السلام عليكم ورحمه الله وبركاته ----------------------------------- اولا هل تقصد ان يكون الترحيل بهذا الشكل ...................... جرب المرفق ترحيل بيانات1.rar

اخى طاهر ان شاء الله سوف يتم العمل على تلبيه طلبك

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

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

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

اخى واستاذنا عبدالله باقشير اكواد فى غاية الروعه ونشكرك على سعة صدر وتعاونك معنا لتصل الينا المعلومه بارك الله فيك

اخى واستاذنا طارق كود جميل ورائع كما تعودنا منك بارك الله فيك اسمح لى بالمشاركه --------------------------- تم الاستعانه بالكود الخاص بالاستاذ طارق والذى يمنع تكرار الفاتوره ----------------------------------- اخى الشيبانى تفضل ترحيل بيانات1.rar

اخى الشهابى السلام عليكم ورحمه الله وبركاته ---------------------- الموضوع بسيط جدا ولكن يجب اولا معرفة كيفية استخدم الجمل التكراريه على العموم استخدم الكود الاتى Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'åÐÇ ÇáÓØÑ íÌÚá ßá ãÇ íßÊÈ Ýí ÇáÎáíÉ ÈÇáæä ÇáÇÓæÏ Range("A1").Font.Color = fff 'åÐÇ ÇáÓØÑ íÌÚá ÇáÎáíÉ ÈÇááæä ÇáÇÍãÑ ÇÐÇ Êã ÇáÔÑØ æåæ ÑÞã 9 LR = [A10000].End(xlUp).Row Range("A1:A" & LR).Font.Color = fff X = 3 For H = 1 To LR If Cells(X, 1) = 9 Then Cells(X, 1).Font.Color = -16776961 X = X + 1 Next End Sub

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

اخى عبده ممكن توضيح اكثر اين الخطأ وكيف يجدث

اخى محمد السلام عليكم ورحمة الله وبركاته فى امان الله

اخى عبده اعتقد انك قمت بعمل ذلك بنفس احييك على هذا --------------------- هل هناك مطالب اخرى .......................

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