اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر

ياسلام يكفيني كلمة ( أبو ريان ) وهو اول مولود لي لأني حديث الزواج كم انت رائع بإختيارك مقدمة رسالتك وهذا دليل على نبل شخصيتك لا عدمناك

قام بنشر

استاذ عبدالله انا عدلت RAW بدل 3 خليتها 12

Private Sub TextBox1_Change()

On Error Resume Next

Dim W As Workbook

Dim MyRange_Search As Range, Mycel As Range

Dim R As Integer

ListBox1.Clear

Set sh = Sheets("ÞÇÆãÉ ÇáÓÊÃÌÑíä")

Set MyRange_Search = Range("MY_DATA")

For Each Mycel In MyRange_Search

If LCase(Mycel) Like "*" & LCase(TextBox1) & "*" Then

With ListBox1

.AddItem

.List(R, 0) = MyRange_Search.Cells(Mycel.Row - 12, 1)

.List(R, 1) = MyRange_Search.Cells(Mycel.Row - 12, 2)

.List(R, 2) = MyRange_Search.Cells(Mycel.Row - 12, 3)

.List(R, 3) = MyRange_Search.Cells(Mycel.Row - 12, 4)

.List(R, 4) = MyRange_Search.Cells(Mycel.Row - 12, 5)

.List(R, 5) = MyRange_Search.Cells(Mycel.Row - 12, 6)

End With

R = R + 1

End If

Next

On Error GoTo 0

1 End Sub

وكاني احسن في أمل ما ادري ( تراني دخت )

قام بنشر

لقيتها لقيتها غير بدل 12 خليها 13 طلعت مزبوطة بس تحتاج دخولك وتزبط الباقي

اخي حسن " ابو ريان " احسنت لم انتبه لرقم الصف

بفضل الله ثم فضلك ثم الحل مثل ما انت تريد

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

اخي ابو ريان سأمحني على هذا الطلب ولكن للفائدة العامة طلبت هذا.

قام بنشر

كلامك سليم 100 في المائة اعدك بفتح موضوع جديد لأي طلب آخر ولكن تعدني ان تكون موجود لسبب أنك معي منذ البداية من بداية التصميم المبدأي حتى التقرير الحالي

لا تذهب بعيداً فلدي المزيد لأن الفكرة تجر أختها

قام بنشر

اخي حسن

لا استطيع ان اعدك ولكن ما استطيع ان أقول لك اني مادمت استطيع المحاولة فتأكد بأني لن اتردد لثانية في المساعدة وهذا الكلام لا ينطبق علي وحدي بل على جميع إخواني في المنتدى

*** ملاحظة هامة****

كود الوقت يؤثر في عملك على الملف فيجب ان تلتفت الى هذه الناحية

جرب ان تقوم بالتعديل على اي شي في الملف ثم انتظر ثواني وقم بالتراجع عن ما قمت به ((لن تستطيع والبركة في هذا الكود))

ان كان ولا بد من الساعة حاول ادراج ساعة فلاشية (هذا مقترح )والافضل الغاء هذا الكود (وهذا راي)

والله الموفق

ابواحمد

قام بنشر

طيب لية في المنتهية الاسم مكررمرتين في تعديلك اما في المرسل من قبلي مرة واحدة هل هناك سبب محدد وطبعا ابغى التقرير هذا يطلع بعد فورم التحميل وهل ممكن اضافة زر للصباعة في فورم التقرير :wink2:

قام بنشر

اخي عبدالله ماهي الطرقة لنشخ الأكواد بطريقةسريعةمرة واحدة ام انت تقوم بتعديلها واحد تلوالآخر ( تبقى على الإيجار ... )

السلام عليكم

اخي ابو ريان

هل يمكن ان تستبدل اسماء الصفحات وتجعلها ارقام متسلسلة مثلاً

ان كان الجواب نعم فيمكن الاستغناء عن تعريف AA BB CC ....الخ

واستعمال الدالة INDIRECT لتعريف نطاق معين وسيسهل التعديل ويصبح بإمكانك السحب ليتطبق على الخلايا الاخرى

في الوقت الحالي انا اقوم بالتعديل خلية خلية

ابواحمد

قام بنشر

لا لا لا لم استوعب :blink: خلينا ياعمي على قدي والله ضعت حتى اول مافتحت النموذج جتني رسالة خطا تقولان opject معطل وكلام كثير حتى السحب والإفلات ماقدرت اسحب اي خلية

واذا قلنا فرضاً اني اقتنعت وجازفت لما تطرقت الية هل التنسيق الشرطي راح يكون نفس الحكاية سحب وافلات فقط ( عن جد انا قلق جداً من هذة الدالة ) :imsorry:

قام بنشر (معدل)

استاذ عبدالله والأساتذة الكرام ان كنتم قريبين هل ممكن في فورم التقرير اضافة بند آخر وهو الرصيد على المستأجر ليصبح على النحو التالي :-

اسم مستأجر العقار

الإسم التجاري للعقار

موقع العقار

رقم الجوال

حالة العقد

توضيح حالة الإيجار ( والذي يمثل تبقى - موعد الايجار اليوم ... الخ )

الخانة الجديدة ( رصيد المستأجر )

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

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

ولا يخفى عليكم انني قسمت نموذج التقرير لقسمين :-

الأول : تقرير حركة الإيجارات

الثاني : تقرير حركة العقود

فتم الإنتهاء من تقريرحركة الإيجارات ولكن تقريرحركة العقود لم تنجح معي المحاولات ومازلت مستمر في المحاولات عسى أن أجد ضالتي في التكرار وأسأل الله أن أستفيد ويستفيد كل مشارك في المنتدى من النتيجة النهائية للملف سواءً بالفكرة أو المضمون

الحركة للتعديل.rar

تم تعديل بواسطه حسن قديمي
قام بنشر

اخي عبدالله المقصور عند الضغط على زر( بحث خاص ) وليس في صفحة ( قائمة المستأجرين ) يعني احتاج ان يكون الرصيد ضمن نموذج التقرير عند الضغط على زر البحث الخاص فاذا اخترت الايجارات المنتهية يظهر التقرير وهنا اريد وجود الرصيد وعند الضغط على ( تبقى على الايجار كذا .. ) ايضا اريد الرصيد يظهر في التقرير مع امكانية طباعة كامل التقرير لا الفورم

قام بنشر

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

اخي بالنسبة للدالة اللي قلت عنخا انا فتحت الملف ولكن طلعت رسال تقول ان البروجيكت غير موجود على الجهاز حقي او شي من ذا القبيل ولكن لماذا مطلوب تغيير اسماء الورق من اسماء المستاجرين لأرقام هل لتسهيل العملية فقط ام لعمل الدالة وهل لو عملت نسخة من ورقة مثلا رقم 10 وسميتها 11 ورحت لقائمة المستاجرين وعملت سحب وافلات للخانات التي فيها الدالة النتيجة اجدها مباشرة مع التنسيق الشرطي ام احتاج لأشياء اخرى معها ارجو افادتي ولك الشكر لأني عن جد دخت لما شفت صيغة المعادلة حقها ( تجننت ) اتمنى ان لم اثقل عليك وعارف اني بلشة واشكر تواضعك

نسيت اخي امر مهم طباعة التقرير من داخل الفورم وليس طباعة الفورم نفسة على سبيل المثال لو اخترت من التقرير العقود التي بعد على تجديدها كذا ... فناتج التقرير عقود كثيرة فلما اضغط على طباعة فيطبع صورة من الفورم فقط مع البياناتالموجود على الفورم ولكن هناك بيانات في الفورم مازالت موجودة بالاسفل لو حركت الشريط الجانبي ( سكرول بار )

زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information