مشكلة فى اكواد فورم بحث وتعديل واضافة

[رشوان احمد]

الاخوة اساتذة المنتدى

لدى مشكلة فى اكواد الفورم للبحث والتعديل واضافة البيانات

نرجوا المساعدة ولكم جزيل الشكر

 

TOTAL QUOTATION BLOCKS & KERBS 01-03-2017.rar

تم تعديل أبريل 6, 2017 بواسطه رشوان احمد

[ahmedghandour]

تنسيق ملف الاكسل فيه مشاكل بالنسبه للقيم بتاعت الخلايا لو حضرتك نزلت لاخر صف في العمود 

A 

هتلاقي الادخالات اللي انت ضفتها موجوده 

 

[رشوان احمد]

الاخ احمد

شكرا لك على هذه المعلومة التى لم الاحظها

تبقى حل المشكلة وباقى زراير الفورم

[ahmedghandour]

بالتوفيق

[ahmedghandour]

4 hours ago, رشوان احمد said:

الاخ احمد

شكرا لك على هذه المعلومة التى لم الاحظها

تبقى حل المشكلة وباقى زراير الفورم

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

[ahmedghandour]

تفضل اخي و اي استفسار انا في الخدمه

يمكنك التحميل من المرفقات

تم التعديل علي الفورم 11 و تركت فورم 1 يمكنك نسخ الاكواد من فورم 11 الي مفاتيح الفورم 1

TOTAL QUOTATION BLOCKS & KERBS 01-03-2017.rar

تم تعديل أبريل 7, 2017 بواسطه ahmedghandour

[رشوان احمد]

الاخ العزيز احمد

شكرا لك وجزاك الله خبر

باقى الازرار ليس بها اوامر فى الفورم الاول

[ahmedghandour]

الاخ :رشوان احمد

تحياتي

بعض الازرار لا اعلم مغذي عملها 

 مثلا مفتاح حذف نهائي تقصد حذف البيانات من التيكستات بوكس ولا من خلايا الاكسل

برجاء التوضيح

لاكن علي كل 

مفتاح خروج الفرم ضع فيه الامر التالي 

unload me

اما مفتاح الحفظ ضع فيه الكود التالي

thisworkbook.save

اما خروج الفورم و الاكسل (اقصد المصنف ) ضع فيه الكود التالي

thisworkbook.save
unload me
application.quite
application.displayalerts=false

الامر السابق لو انت مش عاوز البرنامج طلب تاكيد علي الحفظ لانه حفظ تلقائي بمجرد الضغط علي المفتاح و كمان دا امر خاص بالمهمه دي بس يعني لو قفلت المصنف من غير الفورم هيطلب تاكيد علي الحفظ

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

dim aa as integer
if msgbox(" هل تريد تفريغ الخلايا من علي الفورم ",vbyesno,"GHANDOUR")=vbyes then
for aa = 1 to 18
' الارقام 1 الي 18 تمثل التكست بوكس عندك
me.controls("TextBox" & aa).value=""
next
  exit sub
else 
exit sub
end if

بقي لديك مفتاح واحد 

 برجاء توضيح المطلوب مع خالص تحياتي

[ahmedghandour]

ممكن تضيف الامر التالي قبل كود التفريغ 

 

 

 

تم تعديل أبريل 8, 2017 بواسطه ahmedghandour

[ahmedghandour]

' لازم تعلن عن المتغير 
if me.textbox1.value="" _
and me.textbox2.value="" _
and me.textbox3.value="" _ ' و هكذا حتي تنتهي من ال 18 تكست بوكس 
and me.textbox .value="" then
msgbox " الخلايا فارغه بالفعل " ,vbokonly,"GHANDOUR"
else
' اف الموجوده بالاعلي
exit sub
end if












' بعد عمل الامر الخاص بال

 

[رشوان احمد]

الاخ احمد

جذاك الله خير ولك كل الشكر

بالنسبة لزر حذف المقصود حذف سطر كامل بعد استدعائة من البحث

وياريت لو حذف السطر يتم ترتيب التسلسل من جديد

بمعنى لو حذف سطر تسلسل 2

واللى بعدة 3 و 4 و 5 يتم تعديلهم ليصبحوا

2 و 3 و 4

باقى اكواد زر اضافة وزر تعديل الموجودين فى الصورة التالية

تم تعديل أبريل 8, 2017 بواسطه رشوان احمد

[رشوان احمد]

في ٨‏/٤‏/٢٠١٧ at 05:37, رشوان احمد said:

الاخ احمد

جذاك الله خير ولك كل الشكر

بالنسبة لزر حذف المقصود حذف سطر كامل بعد استدعائة من البحث

وياريت لو حذف السطر يتم ترتيب التسلسل من جديد

بمعنى لو حذف سطر تسلسل 2

واللى بعدة 3 و 4 و 5 يتم تعديلهم ليصبحوا

2 و 3 و 4

باقى اكواد زر اضافة وزر تعديل الموجودين فى الصورة التالية

الاخوة الزملاء

المساغدة فى تكملة باقى الازرار

[محمد الورفلي1]

=IF(B8<>"";SUBTOTAL(3;$B$8:$B8);"")

السلام عليكم

ضع هذه المعادلة في اول صف يوجد به بيانات في العمود a

[رشوان احمد]

الاخ محمد الخازمى

وعليكم السلام ورحمة الله وبركاتة

وضعت المعادلة فما اهميتها للتعلم

مرسل الملف بغد الاضافات باقى اكواد هذه الازرار لو سمحت

ولك شكرى

TOTAL QUOTATION BLOCKS & KERBS 01-03-2017.rar

[محمد الورفلي1]

في 4/13/2017 at 00:13, رشوان احمد said:

وضعت المعادلة فما اهميتها للتعلم

 

 

 

السلام عليكم

 

هذا موضوع   لشرح الدالة    

SUBTOTAL

 

 

  https://www.officena.net/ib/topic/66958-%D8%B4%D8%B1%D8%AD-%D8%AF%D8%A7%D9%84%D9%87-subtotal/

 

 

تم تعديل أبريل 22, 2017 بواسطه محمد الخازمي

[حمادة عمر]

السلام عليكم

الاخ الكريم / رشوان احمد

بارك الله فيك

ضع اخي الكريم الكود التالي في زر ( تسجيل بيانات جديدة )

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

هل هو من العمود QUO. REF. NO.

اليك كود تسجيل البيانات

Private Sub CommandButton2_Click()
'كود زر تسجيل بيانات
Dim iRow As Long
Dim ws As Worksheet
Dim ii As Integer

Set ws = Worksheets("QUOTATION BLOCKS & KERBS")
iRow = ws.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Row

'ws.Cells(iRow, 1).Value = Me.TextBox1.Value
ws.Cells(iRow, 2).Value = Me.TextBox2.Value
ws.Cells(iRow, 3).Value = Me.TextBox3.Value
ws.Cells(iRow, 4).Value = Me.TextBox4.Value
ws.Cells(iRow, 5).Value = Me.TextBox5.Value
ws.Cells(iRow, 6).Value = Me.TextBox6.Value
ws.Cells(iRow, 7).Value = Me.TextBox7.Value
ws.Cells(iRow, 8).Value = Me.TextBox8.Value
ws.Cells(iRow, 9).Value = Me.TextBox9.Value
ws.Cells(iRow, 10).Value = Me.TextBox10.Value
ws.Cells(iRow, 11).Value = Me.TextBox11.Value
ws.Cells(iRow, 12).Value = Me.TextBox12.Value
ws.Cells(iRow, 13).Value = Me.TextBox13.Value
ws.Cells(iRow, 14).Value = Me.TextBox14.Value
ws.Cells(iRow, 15).Value = Me.TextBox15.Value
ws.Cells(iRow, 16).Value = Me.TextBox16.Value
ws.Cells(iRow, 17).Value = Me.TextBox17.Value
ws.Cells(iRow, 18).Value = Me.TextBox18.Value

For ii = 1 To 18
Me.Controls("TextBox" & ii).Value = ""
Next
End Sub

تقبل خالص تحياتي

[رشوان احمد]

استاذى حمادة عمر

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

بالنسبة لسؤالك لزر التعديل هو نفس زر الاضافة للبيانات فو اردت اعدل فى اى مكان فى السطر اعدل من عن طريق الفورم

بالنسبة للبحث عن طريق العمود b

 

[حمادة عمر]

السلام عليكم

الاخ الكريم / رشوان احمد

بارك الله فيك

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

حيث انه اذا قمت بعمل ذلك فانه سوف يسجل في الصف 500 بعد آخر معادلة موجودة في العمود A

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

وان اردت نجعل الترقيم من خلال الفورم نفسه تلقائيا ولكن سيجعلنا نتخلي عن معادلة الترقيم التلقائي خاصتك

تقبل خالص تحياتي

 

[رشوان احمد]

الاح حمادة

شكرا لك لطول غياب الملف نسيت معادلة ترقيم

فى انتظار طلبى

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

بالنسبة للبحث عن طريق العمود b

[محمود_الشريف]

أخى الكريم 

وبعد إذن الأستاذ الفاضل // أحمد

والأستاذ القدير // حماده عمر

إليكم بالمرفقات محاولة منى 

تم العمل على الفورم رقم 11

أتمنى أن يكون به ما طلبت

 

TEST_1_MZM.rar