deebsagheer قام بنشر سبتمبر 4, 2011 قام بنشر سبتمبر 4, 2011 الساده الاعضاء و المشاركين الكرام الملف المرفق به نموذج لاستعراض بيانات استنادا علي رقم المحل المطلوب أولا: كود تعديل علي البيانات المستعرضه بشرط حرية اختيار الخلايا المراد التعديل عليها فمثلا خلية اسم المستاجر لا يتم تغييرها لأنها ستتغير تلقائيا بتغير رقم المستأجر طبقا لكود آخر ليس بالملف ثانيا : في ورقة متابعة السندات اريد أن يكتب عبارة Ok مثلا أمام رقم السند الذي تم تسجيله في صفحة البيانات بمعني لو وجد الرقم في البيانات حتي لو تكرر يتم التعليم امام نفس الرقم Ok و ذلك لمتابعة السندات المفقوده. و شكرا لكل من ساهم في اثراء المنتدي. ملحوظه : النموذج مأخوذ من المنتدي و لكن عليه تعديل بسيط لملاءمة عملي نموذج ادخال تجريبي.rar
الـعيدروس قام بنشر سبتمبر 4, 2011 قام بنشر سبتمبر 4, 2011 السلام عليكم الاخ الفاضل deebsaghee بالنسبه للفورم من اعداد الاستاذ الفاضل دغيدي لعله يطلع على موضوعك يقدر يفيدك لاكن عملت لك كود اذا وجد الرقم يطبع OK في ورقة متابعة المستندات هذا الكود في ThisWorkbook Private Sub Workbook_SheetActivate(ByVal Sh As Object) For l = 2 To 500 If Application.WorksheetFunction.CountIf(Sheets("البيانات").[f3:f1500], Sheets("متابعة السندات").Cells(l, 1)) > 0 Then Sheets("متابعة السندات").Range("a" & l).Offset(0, 1) = "OK" End If Next l End Sub ومرفق عليه الكود نموذج ادخال تجريبي1.rar
deebsagheer قام بنشر سبتمبر 5, 2011 الكاتب قام بنشر سبتمبر 5, 2011 اخي الكريم Alidroos سلام الله عليك أشكرك لاهتمامك و بالفعل الكود افادني و تم تجربته علي عملي. و أنتظر من الاخوه الرد علي الجزء الاول من طلبي و للجميع التحية
ياسر الحافظ قام بنشر سبتمبر 5, 2011 قام بنشر سبتمبر 5, 2011 الاخ / الاستاذ العيدروس جزالك الله كل الخير وفقك الله ابو الحارث
ZEZOABOOMAR قام بنشر سبتمبر 7, 2011 قام بنشر سبتمبر 7, 2011 (معدل) جزالك الله كل الخير تم تعديل سبتمبر 7, 2011 بواسطه ZEZOABOOMAR
deebsagheer قام بنشر سبتمبر 17, 2011 الكاتب قام بنشر سبتمبر 17, 2011 انتظر الرد من الاخ / دغيدي و له الشكر
عبدالله المجرب قام بنشر سبتمبر 17, 2011 قام بنشر سبتمبر 17, 2011 بعد اذن اخواني الكرام (ابو نصار و دغيدي) جرب المرفق تم التعديل في كود زر التعديل وفقاً لعدد الاعمدة الموجودة كما تم اغلاق خلية اسم المستاجر عن التعديل لاحظ ان ارقام تسلسل التكستات بوكس تبداء من الرقم 3 جرب واعلمني بالنتيجة نموذج ادخال تجريبي.rar
My eccnw قام بنشر سبتمبر 17, 2011 قام بنشر سبتمبر 17, 2011 جزاكم الله كل خير اتمنى التوفيق لكم جميعا فانتم مرجع يرفع الراس لكل عربي
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.