فراس البزاز

اخي العزيز...........هذا الحل سهل جدا جدا جزاك الله خيرا

up

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

السلام عليكم في الملف المرفق هل يجوز تحويل الاعمدة الى صفوف؟؟ مع التحية اعمدة الى صفوف.rar

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

up

شكرا جزيلا هذا هو المطلوب ..لكن هل استطيع مشاهدة قبل الطبع؟؟ تحياتي واشكرك جزيل الشكر ولك مني كل الاحترام

ارجوا الرد ...مع التحية

تحية.المرفق معدل شكرا استعلام.rar

.

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

تحية وبعد ارفق ملف فية شيت ..والطلوب هو.. مثلاً:: ادخال كود السيارة 1101 والمبلغ دائن يذهب المبلغ اليا الى حقل السيارات ((في حقل دائن)) ----------------------------------------------------------------------- او ادخال كود السيارة 1101 والمبلغ مدين يذهب المبلغ اليا الى حقل السيارات ((في حقل مدين)) وهكذا تكون المبالغ مصفوفة وحدة تلو الاخرى...وليس جمعها في الاخير اي حقل دائن او مدين المكان الاخير الذي يستقر فيه الحساب تحياتي وتمنياتي لكم بالموفقية ترحيل حسب الكود.rar

عمل اكثر من رائع ومفيددد جدا جزاكم الله خيرا تحياتي للجميع

شكراً لك أخي الحبيب / ضاحي اتضحت الصورة بالنسبة لي الآن اتمنى ان تتضح الصورة بالنسبة لي ايضااا

اسف,,ممكن توضيح اكثر اخوك مش ذو خبرة جيدة في هذا المجال تحياتي

؟؟ معلش برجاء التوضيح مافهمت عليك تحية طيبة اخي الكريم ممكن فقط الترحيل كل صنف في مكانة بالجدول ...اي المبلغ ينتقل تلقائي الى مكانة في الجدول المخصص ماهي الطريقة.(الكود المستخدم للترحيل)......وعند التحويل على الايصال ..هل توجد زر الخروج ؟؟ لك مني اطيب تحية واحترام أخي الكريم قمت لك بشرح الكود المستخدم في الادخال علي الكود نفسه تفضل عسي يكون هو المقصود بطلبك Private Sub CommandButton1_Click() ' شيت الادخال رقم 1 Set Sh1 = sheet1 ' شرط اذا كان رقم الفاتورة فارغ لايقم بالترحيل If InvNo_A = "" Then MsgBox "!يجب إدخال رقم الفاتورة اولا ً", vbExclamation, "إختيار خاطئ" Exit Sub End If ' شرط اذا كانت الكمية رقم ا فارغة لايقم بالترحيل If Me.C1 = "" Or Me.QuA1 = "" Then MsgBox "أكمل بيانات الفاتورة أولا": Exit Sub End If ' عدد الصفوف في ورقة الادخال لبداية الادخال ff = 4 Do Until Sh1.Cells(ff, "a").Value = "" ff = ff + 1 Loop ' التسلسل Sh1.Cells(ff, 1).Value = SN_Ar.Text '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' التاريخ Sh1.Cells(ff, 2).Value = Date_A.Text ' رقم الفاتورة Sh1.Cells(ff, 3).Value = InvNo_A.Text 'بيانات العميل Sh1.Cells(ff, 4).Value = Cus_A.Text Sh1.Cells(ff, 5).Value = Addr_A.Text Sh1.Cells(ff, 6).Value = City_A.Text Sh1.Cells(ff, 7).Value = Tel_A.Text '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' رقم العميل Sh1.Cells(ff, 8).Value = CusNo_A.Text ' الرصيد Sh1.Cells(ff, 9).Value = Balnce_A.Text Me.PAY1.Text = ComboBox12.Value ' طريقة السداد Sh1.Cells(ff, 10).Value = PAY1.Text Sh1.Cells(ff, 11).Value = Ac_a.Text Sh1.Cells(ff, 12).Value = PatDateA.Text Sh1.Cells(ff, 13).Value = TermA.Text ' بيانات الفاتورة بالترتيب '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' كود الصنف Sh1.Cells(ff, 18).Value = C1.Text Sh1.Cells(ff, 23).Value = C2.Text Sh1.Cells(ff, 28).Value = C3.Text Sh1.Cells(ff, 33).Value = C4.Text Sh1.Cells(ff, 38).Value = C5.Text Sh1.Cells(ff, 43).Value = C6.Text Sh1.Cells(ff, 48).Value = C7.Text Sh1.Cells(ff, 53).Value = C8.Text Sh1.Cells(ff, 58).Value = C9.Text Sh1.Cells(ff, 63).Value = C10.Text ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' الكمية Sh1.Cells(ff, 19).Value = QuA1.Text Sh1.Cells(ff, 24).Value = QuA2.Text Sh1.Cells(ff, 29).Value = QuA3.Text Sh1.Cells(ff, 34).Value = QuA4.Text Sh1.Cells(ff, 39).Value = QuA5.Text Sh1.Cells(ff, 44).Value = QuA6.Text Sh1.Cells(ff, 49).Value = QuA7.Text Sh1.Cells(ff, 54).Value = QuA8.Text Sh1.Cells(ff, 59).Value = QuA9.Text Sh1.Cells(ff, 64).Value = QuA10.Text ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''البيان Sh1.Cells(ff, 20).Value = DesA1.Text Sh1.Cells(ff, 25).Value = DesA2.Text Sh1.Cells(ff, 30).Value = DesA3.Text Sh1.Cells(ff, 35).Value = DesA4.Text Sh1.Cells(ff, 40).Value = DesA5.Text Sh1.Cells(ff, 45).Value = DesA6.Text Sh1.Cells(ff, 50).Value = DesA7.Text Sh1.Cells(ff, 55).Value = DesA8.Text Sh1.Cells(ff, 60).Value = DesA9.Text Sh1.Cells(ff, 65).Value = DesA10.Text ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''سعر الوحدة Sh1.Cells(ff, 21).Value = UnP1.Text Sh1.Cells(ff, 26).Value = UnP2.Text Sh1.Cells(ff, 31).Value = UnP3.Text Sh1.Cells(ff, 36).Value = UnP4.Text Sh1.Cells(ff, 41).Value = UnP5.Text Sh1.Cells(ff, 46).Value = UnP6.Text Sh1.Cells(ff, 51).Value = UnP7.Text Sh1.Cells(ff, 56).Value = UnP8.Text Sh1.Cells(ff, 61).Value = UnP9.Text Sh1.Cells(ff, 66).Value = UnP10.Text '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''الاجمالي Sh1.Cells(ff, 22).Value = Total1.Text Sh1.Cells(ff, 27).Value = Total2.Text Sh1.Cells(ff, 32).Value = Total3.Text Sh1.Cells(ff, 37).Value = Total4.Text Sh1.Cells(ff, 42).Value = Total5.Text Sh1.Cells(ff, 47).Value = Total6.Text Sh1.Cells(ff, 52).Value = Total7Text Sh1.Cells(ff, 57).Value = Total8.Text Sh1.Cells(ff, 62).Value = Total9.Text Sh1.Cells(ff, 67).Value = Total10.Text ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' المبلغ الاجمالي Sh1.Cells(ff, 14).Value = Total_A.Value ' الخصم بالنسبة Sh1.Cells(ff, 15).Value = Dis_A.Value ' الخصم بالمبلغ Sh1.Cells(ff, 16).Value = Dis_AmA.Value ' صافي الفاتورة Sh1.Cells(ff, 17).Value = NetAm_A.Value ' الاسطر التالية لمسح الفورم بعد الادخال Date_A = "" InvNo_A = "" Cus_A = "" Addr_A = "" City_A = "" Tel_A = "" CusNo_A = "" Balnce_A = "" Ac_a = "" PAY1 = "" PatDateA = "" TermA = "" C1 = "" C2 = "" C3 = "" C4 = "" C5 = "" C6 = "" C8 = "" C9 = "" C10 = "" QuA1 = "" QuA2 = "" QuA3 = "" QuA4 = "" QuA5 = "" QuA6 = "" QuA7 = "" QuA8 = "" QuA9 = "" QuA10 = "" DesA1 = "" DesA2 = "" DesA3 = "" DesA4 = "" DesA5 = "" DesA6 = "" DesA7 = "" DesA8 = "" DesA9 = "" DesA10 = "" UnP1 = "" UnP2 = "" UnP3 = "" UnP4 = "" UnP5 = "" UnP6 = "" UnP7 = "" UnP8 = "" UnP9 = "" UnP10 = "" Total1 = "" Total2 = "" Total3 = "" Total4 = "" Total5 = "" Total6 = "" Total7 = "" Total8 = "" Total9 = "" Total10 = "" Total_A = "" Dis_A = "" Dis_AmA = "" NetAm_A = "" ' السطر التالي حتي يقف مؤشر الماوس علي اسم العميل Cus_A.SetFocus ' الترقيم التلقائي للتسلسل MM = 4 Do Until Sh1.Cells(MM, "a").Text = "" MM = MM + 1 Loop Me.SN_Ar.Value = MM + 1 - 4 CheckBox4.Value = True End Sub شرا...شكرا....جزيلا.....هناك شي اخر...وطبعا اسف على الاطالة دخلت على كود الفجول بييسك.....لم اجد فورم الثاني(الايصال) اين اجده؟؟ اكرر اسفي اذا كنت قد اثقلت عليك تحياتي

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

؟؟

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

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

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

تحية لجميع القائمين على هذا المنتدى الرائع والمفيد والذي له الفضل الكثير في تعلمي لبرامج الاوفس... ارفقت ملف اكسل يحوي على فورم ........... عند ادخال كود الحساب ...واظهار اسم الحساب وهذا موجود في الفورم:: المطلوب::: عند ادخال المبلغ .يذهب المبلغ تلقائيا الى مكانه في الجدول (اي يذهب المبلغ في صف اسم الحساب - دائن ومدين ) مثلا: شراء سيارة من ح/ السيارة 1000 الى ح /الصندوق 1000 المطلوب يذهب المبلغ في (حقل مدين) السيارة و(حقل دائن )الصندوق .....وهكذا المشروع كبير لكن اريد كود لحسابين فقط وبالتالي سوف اطبق هذا الكود على باقي الحسابات تحياتي وشكراً نظام.rar

عمل جميل واكثر من رائع وفق الله.......................................................................

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

شكرا اخي الكريم وجزاك الله خيرا..