حمادة عمر

شاهد الرابط التالي http://www.officena.net/ib/index.php?showtopic=45993&hl=%D8%AA%D8%B1%D8%AC%D9%85%D8%A9#entry273173 وهذا http://www.officena.net/ib/index.php?showtopic=49525&hl=%D8%AA%D8%B1%D8%AC%D9%85%D8%A9#entry301617 وهذا ايضا http://www.officena.net/ib/index.php?showtopic=44346&hl=%D8%AA%D8%B1%D8%AC%D9%85%D8%A9 تقبل خالص تحياتي

رمضـــان كـــريـــم

جزاك الله خيرا

وبرجاء الاطلاع علي الرابط التالي لتغيير الاسم الي العربية ( طبقا لسياسة وشروط المنتدي ) ولزيادة التواصل .... برجاء الاطلاع علي الموضوع http://www.officena....showtopic=41520 ============== الادارة ==============

وشاهد الرابط التالي ... عله يفيدك اخي الكريم طريقة عمل شاشة ( فورم ) ادخال وترحيل واستعلام وتعديل وحذف !! خطوة خطوة

شاهد المرفق التالي ... ان شاء الله به طلبك تقبل خالص تحياتي افتح الفورم واكتب القيمة المطلوبة في تكست بوكس 2 و 3 .... ثم اضغط الزر الموجود بالفورم وشاهد النتيجة او مزيد من التوضيح اضهار الخلايا بالفورم11.rar

لرفع ملفات للمنتدي شاهد الرابط التالي http://www.officena....showtopic=41520 ============== الادارة ==============

السلام عليكم الاخ الكريم / عبد الغني1 بارك الله فيك شاهد المرفق التالي به طريقة اخري جديدة لتنفيذ طلبك قم بفتح الفورم ... واختار من الكومبوبكس العملية التي تريد التسجيل بها ثم قم بوضع بياناتك في التكست بوكس 1 ، 2 ثم اضغط ترحيل سيتم ترحيل البيانات في الاعمدة المطلوبة في العملية المحددة ** ملحوظة : قم باضافة اي عدد من العمليات كما هو بالمرفق وسيتم اضافته تلقائيا للكومبوبكس ليتم اختيارة ويتم الترحيل اليها ... وتم الاكتفاء بعدد 5 عمليات في المرفق علي سبيل المثال ارجو ان يفي بطلبك تقبل خالص تحياتي ترحيل لاعمدة متفرقة من خلال فورم-sama.rar

السلام عليكم الاخ الكريم / عبد الغني1 بارك الله فيك شاهد المرفق التالي به طريقة اخري جديدة لتنفيذ طلبك قم بفتح الفورم ... واختار من الكومبوبكس العملية التي تريد التسجيل بها ثم قم بوضع بياناتك في التكست بوكس 1 ، 2 ثم اضغط ترحيل سيتم ترحيل البيانات في الاعمدة المطلوبة في العملية المحددة ** ملحوظة : قم باضافة اي عدد من العمليات كما هو بالمرفق وسيتم اضافته تلقائيا للكومبوبكس ليتم اختيارة ويتم الترحيل اليها ... وتم الاكتفاء بعدد 5 عمليات في المرفق علي سبيل المثال ارجو ان يفي بطلبك تقبل خالص تحياتي ترحيل لاعمدة متفرقة من خلال فورم-sama.rar

السلام عليكم الاخ الكريم / عاصفة الصحراء بارك الله فيك تقبل خالص تحياتي

السلام عليكم الاخ الكريم / عاصفة الصحراء بارك الله فيك شاهد المرفق التالي ... ان شاء الله به طلبك تقبل خالص تحياتي تحديد مصدر بيانات القائمة في الكومبوبكس بناءا علي الاختيار للـ Optionbotton.rar

السلام عليكم الاخ الكريم / Mr.reda بارك الله فيك الحمد لله ان توصلت لما تريد جزاك الله خيرا وتقبل خالص تحياتي

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

شاهد اخي الكريم الرابط التالي للتعرف علي امتدادات الحفظ لملفات الاكسيل ليمكنك الحفظ بالطريقة المطلوبة لحفظ الملف بالفورم والاكواد http://www.officena.net/ib/index.php?showtopic=50458&hl=

السلام عليكم الاخ الكريم / محمد عبد القادر بارك الله فيك وبعد اذن استاذي القدير / رجب جاويش ... جزاه الله خيرا (( اللي وحشنا كتييييييييييييير )) الذي رأيت رده بعد ان قمت بالتعديل علي الكود ... وارجو ان يعجبه ويفي بغرضك Sub tarheel() Application.ScreenUpdating = False Dim sh As Worksheet For Each sh In ThisWorkbook.Worksheets For r = 2 To 1000 If sh.Name = "sheet1" Then GoTo 2 If Cells(r, 1).Value <> Empty Then If Cells(r, 12).Value = sh.Name Then Range(Cells(r, 1), Cells(r, 12)).Copy QQ = sh.Cells(1000, 1).End(xlUp).Row + 1 sh.Range("A" & QQ).PasteSpecial xlPasteValues End If End If Next Next Application.DataEntryMode = False Application.ScreenUpdating = True 2 End Sub تقبلوا خالص تحياتي بيانات اعدادى1.rar

وبرجاء الاطلاع علي الرابط التالي لتغيير الاسم الي العربية ( طبقا لسياسة وشروط المنتدي ) ولزيادة التواصل .... برجاء الاطلاع علي الموضوع http://www.officena....showtopic=41520 ============== الادارة ==============

السلام عليكم الاخ الكريم / Mr.reda بارك الله فيك بعد اذن اخي الحبيب / سليم حاصبيا ... جزاه الله خيرا قم باستخدام الكود التالي في زر التسجيل لتنفيذ المطلوب Private Sub CommandButton1_Click() Dim LR, LR1 As Long Dim Adr As String Dim r, c As Integer Dim ws, ws2 As Worksheet '================= SAMA = MsgBox("ÓíÊã ÊÓÌíá ÇáÈíÇäÇÊ ÇáãæÌæÏÉ ÈÇáÝÇÊæÑÉ ¿åá ÇäÊ ãÊÃßÏ ãä ÇÌÑÇÁ åÐå ÇáÚãáíÉ", vbYesNo) If SAMA = vbYes Then If Me.TxtInvNo = "" Or Me.TxtIndate = "" Or Me.TxtMonthCod = "" _ Or Me.ComDocNo = "" Or Me.ComDocType = "" Or Me.TxtcustNo = "" _ Or Me.Comcustn = "" Or Me.Comcustn = "" Or Me.txtstoNo = "" Or Me.ComStoN = "" Then 'Exit Sub MsgBox "Çßãá ÇáÈíÇäÇÊ ÇáÛíÑ ãÓÌáÉ ÇÚáí ÇáÝÇÊæÑÉ ÇæáÇ", vbMsgBoxRight, "äÞÕ Ýí ÇáÈíÇäÇÊ !!!" Exit Sub Else '============= 'saleH ÎÇÕ ÈÇáÌÒÁ ÇáÚáæí æÊÑÍíáå Çáí Set ws = Worksheets("saleH") LR = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row ws.Cells(LR, 1).Value = Me.TxtInvNo.Value ws.Cells(LR, 2).Value = Me.TxtIndate.Value ws.Cells(LR, 3).Value = Me.ComDocNo.Value ws.Cells(LR, 4).Value = Me.ComDocType.Value ws.Cells(LR, 5).Value = Me.txtstoNo.Value ws.Cells(LR, 6).Value = Me.ComStoN.Value ws.Cells(LR, 7).Value = Me.TxtcustNo.Value ws.Cells(LR, 8).Value = Me.Comcustn.Value ws.Cells(LR, 9).Value = Me.TxtGtotal.Value ws.Cells(LR, 10).Value = Me.Txtsaletax.Value ws.Cells(LR, 11).Value = Me.txtGtax.Value ws.Cells(LR, 12).Value = Me.txtDam.Value ws.Cells(LR, 13).Value = Me.TXTNETTOTAL.Value ws.Cells(LR, 14).Value = Me.txtTafkit.Value ws.Cells(LR, 15).Value = Me.TxtMonthCod.Value '================================ 'saleT ÎÇÕ ÈÇáÌÒÁ ÇáÓÝáí æÊÑÍíáå Çáí Set ws2 = Worksheets("saleT") With ws2 LR1 = .Cells(.Rows.Count, "A").End(xlUp).Row + 1 End With For r = 1 To 15 Adr = Cells(r, 1).Address(0, 0) If Len(Trim(Me.Controls(Adr))) Then For c = 1 To 8 Adr = Cells(r, c).Address(0, 0) ws2.Range("A" & LR1).Cells(r, c).Value = Me.Controls(Adr).Value Next End If Next sama_Clear '===================== End If MsgBox "!! Êã ÊÓÌíá ÈíÇäÇÊ ÇáÝÇÊæÑÉ.. ÈäÌÇÍ " Else MsgBox "!! áã íÊã ÊÓÌíá ÇáÈíÇäÇÊ" End If End Sub ارجو ان يفي بطلبك اخي الكريم تقبل خالص تحياتي Mall_sama.rar

جزاك الله خيرا

جاري التحميل ... جزاك الله خيرا

السلام عليكم الاخ الكريم / عبد الغني1 بارك الله فيك لزيادة الافادة للجميع ... تم الرد علي موضوعك وان شاء الله متابعته ... علي الرابط التالي ( نفس الرابط خاصتك ) http://www.officena.net/ib/index.php?showtopic=54193&p=342087 تقبل خالص تحياتي

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

جزاكم الله خيرا

جزاكم الله خيرا

جزاكم الله خيرا