السلام عليكم ورحمة الله و بركاته
الاخوه الاحباب بالمنتدي
أسألكم الدعاء للاخ العزيز الاستاذ / رجب جاويش ... بالشفاء العاجل
أسأل الله العظيم رب العرش العظيم أن يشفيه
السلام عليكم
عثرت فى المنتدى الرائع على هذا الملف وحاولت على قدر استطاعتى التغير فيه الى الشكل الذى يناسب عملى ومشكلتى فى التالى
1-فى فورم الادخال اريد بعد اختيار الكود الموجود Combobox يظهر تلقائيا فى Textbox العنصر ويرحل الى الشيت dd
2- فى فورم البحث عن الاستعلام عن الكود يظهر الكود البحث فقط مثلا البحث عن الكود1 يظهر الكود 1و1212 واريد ابدال زر الموجود فى الفورم الى زر طباعة هذا التقرير مع التنسيق فى جداول
وجزاكم الله خيرا
السلام عليكم ورحمة الله وبركاته
السادة مديرى واعضاء المنتدى
تواجهنى مشكلة فى هذا البرنامج
المطلوب من حضراتكم الدخول الى البرنامج حيث ان اسم المستخدم magdy
والباسورد 12345
ثم الضغط على زر الشاشة الرئيسية
ومن ثم اختيار فاتورة نقدى
وادخال تفاصيل فاتورة
ثم الضغط على ترحيل
ثم عمل نفس الفاتورة بكل تفاصيلها مرة اخرى
فعند الضغط مثلا على كود المتعامل واختيار نفس الكود السابق فان البرنامج لا يستجيب وهذا ينطبق على جميع العناصر التى بها اختيار
وشكرا
الايصالات-sama1.rar
أخى الحبيب ( أكرم )
المعادلة تقوم أساسا على فصل الكلمة بنائا على المسافة التى يتم تركها بين كلمة وأخرى
لذلك ففى حالة الأسم المركب لاتترك مسافة بن الأسميين المركبين
أو تفصل بينهم بنقطة بحيث لاتكون المسافة ( الفراغ بين الكلمتين موجود ) ولاتطهر فى الطباعة
تقبل تحياتى
السلام عليكم
ضع هذا الكود في حدث ورقة العمل
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [F7:F1000]) Is Nothing Then
For i = 2 To 6
Target.Offset(0, i).FormulaR1C1 = Cells(4, Target.Offset(0, i).Column).FormulaR1C1
Target.Offset(0, i).Value = Target.Offset(0, i)
Next
End If
End Sub