نموذج ادخال بيانات و تعديلها

[deebsagheer]

الساده الاعضاء و المشاركين الكرام

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

المطلوب أولا: كود تعديل علي البيانات المستعرضه بشرط حرية اختيار الخلايا المراد التعديل عليها فمثلا خلية اسم المستاجر لا يتم تغييرها لأنها ستتغير تلقائيا بتغير رقم المستأجر طبقا لكود آخر ليس بالملف

ثانيا : في ورقة متابعة السندات اريد أن يكتب عبارة Ok مثلا أمام رقم السند الذي تم تسجيله في صفحة البيانات بمعني لو وجد الرقم في البيانات حتي لو تكرر يتم التعليم امام نفس الرقم Ok و ذلك لمتابعة السندات المفقوده.

و شكرا لكل من ساهم في اثراء المنتدي.

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

نموذج ادخال تجريبي.rar

[الـعيدروس]

السلام عليكم

الاخ الفاضل 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]

اخي الكريم Alidroos

سلام الله عليك

أشكرك لاهتمامك و بالفعل الكود افادني و تم تجربته علي عملي.

و أنتظر من الاخوه الرد علي الجزء الاول من طلبي و للجميع التحية

[ياسر الحافظ]

الاخ / الاستاذ العيدروس

جزالك الله كل الخير

وفقك الله

ابو الحارث

[ZEZOABOOMAR]

جزالك الله كل الخير

تم تعديل سبتمبر 7, 2011 بواسطه ZEZOABOOMAR

[deebsagheer]

انتظر الرد من الاخ / دغيدي

و له الشكر

[عبدالله المجرب]

بعد اذن اخواني الكرام (ابو نصار و دغيدي)

جرب المرفق

تم التعديل في كود زر التعديل وفقاً لعدد الاعمدة الموجودة

كما تم اغلاق خلية اسم المستاجر عن التعديل

لاحظ ان ارقام تسلسل التكستات بوكس تبداء من الرقم 3

جرب واعلمني بالنتيجة

نموذج ادخال تجريبي.rar

[My eccnw]

جزاكم الله كل خير اتمنى التوفيق لكم جميعا فانتم مرجع يرفع الراس لكل عربي