sherif ahmed mohamed

Private Sub TextBox1_Change()
On Error Resume Next
ThisWorkbook.Activate

Dim v As Integer, LastRow As Integer
Dim M As String
Dim Q, F
ListBox2.Clear
With Da
If TextBox1.Text = "" Then GoTo 1


LastRow = .Range("cc1000").End(xlUp).Row
Set sp = .Range("cc5:cc" & LastRow)



M = TextBox1.Text



Set Q = sp.Find(M)


If Not Q Is Nothing Then
F = Q.Address
Do
If Application.WorksheetFunction.Search(M, Q, 0) = 1 Then
'هنا في حالة انني اريد البحث على اساس اي حرف بالكلمه
'====================================================================

'وهذا الكود اذا اردت البحث باول حرف من الكلمه ولاحظ هنا ان الرقم تغير من صفر الى واحد في الاقواس
'====================================================================
ListBox2.AddItem Q.Value
'هذا خاص باضافة عمود البحث وهنا يكون العمود الاول من الليست بوكس
ListBox2.List(v, 0) = Q.Offset(0, -2).Value
ListBox2.List(v, 1) = Q.Value
طلب كود اظهار القيم فى listbox عند فتح الفورمListBox2.List(v, 2) = Q.Offset(0, 2).Value
ListBox2.List(v, 3) = Q.Offset(0, 3).Value
' ListBox2.List(v, 3) = Q.Offset(0, 2).Value

v = v + 1
'وهذا المتغير ضروريان يكون كماهو لانه يعني ظهور الداتا لكامل عدد الاعمده في الليست بوكس
End If
Set Q = sp.FindNext(Q)
'وهذا السطر يجب ان يكون موجود وهو خاص بالبحث التالي للكلمات، يعني لو حذفت هذا السطر لن يعطيك تكرار للبحث
'ويجب ان تراعي ان تغير معطيات الكود في حال غيرت اسماء المتغيرات وايضا في حال غيرة عمود البحث
Loop While Not Q Is Nothing And Q.Address <> F
Me.ListBox2 = ""

طلب كود اظهار القيم فى listbox عند فتح الفورمEnd If
End With

1 End Sub

اساسى_تعديل.rar

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

او فيس بوك حتى 

https://www.facebook.com/profile.php?id=100011613548102

الاوفيس اللى حضرتك بتستخدمه اصدار كام 

لو نتكلم على الفيس يبقى افضل

https://www.facebook.com/profile.php?id=100011613548102

تمام هجرب الكود ويارب يشتغل لانى حاولت كتير فى اكواد كتيره ولم تعمل 

بالنسبة للبرنامج اللى حضرتك بتستخدمه ده فى برنامج جميل جدا موجود فى المنتدى يؤدى نفس الغرض واكثر بكثير ومفتوح المصدر لو عايزه ابعته لحضرتك 

هو اسمه 

(المشروع الكبير) موجود منه ثلاث اصدرارت على المنتدى وافضلهم طبعا الاصدار الثالث

اقتراح على برنامج المخزون الشامل (شاشة الادخال)

البرنامج مفتوح المصدر وانا تحت امرك لو عايز تعرف تستخدمه ازاى @وائل يونس سلامي

تمام انا قمت بالمعاينة 

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

السلام عليكم

انا متشكر لاهتمام حضرتك

بس فى مشكله واجهتنى بسبب مسار حفظ البيانات فى برنامجك ولم اتمكن من معاينة المطلوب 

فممكن حضرتك توصفلى ما هو الكود الخاص بموضوع سؤالى 

فاتورة مطاطيه لحجم الاصناف  السلام عليكم عايز اعدل على فاتوة الطباعة فى البرنامج بحيث انها تكون مطاطيه لحجم البيانات التى بها
(اى يزيد وينقص طول الفاتورةعلى اساس حجم الاصناف بها)
يوجد نوعين من الفاتوة فى البرنامج اريد التعديل فى فاتورة A4

السلام عليكم .يارب الجميع يكون بخير 
البرنامج ده شئ فوق الممتاز ويفى بالغرض لكل من يعمل فى مجال المبيعات (قمت نتزيله من هذا المنتدى الرائع)
عايز اضافه صغيره حتى يتمشى مع مجال عملى 
المطلوب اضافة عمود فى جدول الاصناف فى ورقة data
يكون اسمه تكعيب الوحده ويكون بيساوى الارتفاع *الطول *العرض (طبعا هيتم عمل عمود لكل منهم)ايضا
تانى حاجه 
فى نموذج الفاتوره اضافة نافذة تكعيب الوحده
وكمان اجمالى التكعيب وده بيساوى تكعيب الوحده * الكميه
اسم المستخدم مدير والرقم 123
الغاء حماية الورق 8521
باسورد الفيجوال 85211
يارب البرنامج يعجبكوا وتستفيدوا به    برنامج مبيعات

السلام عليكم

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

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

ah0562982701 @ابو ياسين المشولي

السلام عليكم 

عايز اظهر نموذجين رئبسين فى نموذج واحد

بمعنى انى عايز فى البرنامج المرافق ضم نموذج تسجيل الحسابات ونموذج كشف الحساب فى نموذج واحد 

حسابات

 كشف الحساب

السلام عليكم . عايز اظهر باقى بيانات الفاتورة (تكعيب الوحده ,اجمالى التكعيب)فى بيانات العميل فى جدول العملاء وده الملف اللى مطلوب عليه التعديل         فاتورة بيع اخشاب

جزاك الله خير..,ولكن هل يوجد شرح سواء فديو او pdf 

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

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

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

وباسورد الفيجوال ah0562982701

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

طيب ده كود زر ولا اكتبه فين ياستاذ @ابو ياسين المشولي

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