محمد توبه

https://www.facebook.com/learn.excel07/posts/731329126891228?ref=notif&notif_t=notify_me

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

استاذى / حماده الكود يعمل معى بشكل جيد فيما عدا هذه الجزئيه KH = 0 For s = 1 To 15 ' عدد الصفوف For r = 1 To 11 ' عدد الاعمده sh.Cells(lr + s, r + 4) = Me.Controls.Item(KH + r - 1).Value Next KH = KH + 11 وجزاك الله خيرا على تعبك معى وجعله فى ميزان حسناتك

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

ارجو توضيح الخطأ فى الكود على العلم ان الفورم يحتوى على 20 صف و11 عمود قمت بوضعهم داخل اطار frame On Error Resume Next Dim sh As Worksheet Set sh = Sheets("purchases") Dim KH As Integer Dim s As Long, r As Long lr1 = sh.Range("e10000").End(xlUp).Row + 1 sh.Range("p" & lr1).Value = TextBox74.Value sh.Range("q" & lr1).Value = TextBox75.Value sh.Range("r" & lr1).Value = TextBox76.Value sh.Range("s" & lr1).Value = TextBox77.Value sh.Range("t" & lr1).Value = TextBox78.Value sh.Range("u" & lr1).Value = TextBox79.Value sh.Range("v" & lr1).Value = TextBox80.Value sh.Range("w" & lr1).Value = TextBox81.Value sh.Range("x" & lr1).Value = TextBox82.Value sh.Range("y" & lr1).Value = TextBox83.Value lr = sh.Cells(Rows.Count, "e").End(xlUp).Row KH = 0 For s = 1 To 20 ' عدد الصفوف For r = 1 To 11 ' عدد الاعمده sh.Cells(lr + s, r + 4) = Me.Controls.Item(KH + r - 1).Value Next KH = KH + 10 With sh .Range("e" & Rows.Count).End(xlUp).Offset(0, -4).Value = TextBox71.Value .Range("e" & Rows.Count).End(xlUp).Offset(0, -3).Value = TextBox72.Value .Range("e" & Rows.Count).End(xlUp).Offset(0, -2).Value = TextBox73.Value .Range("e" & Rows.Count).End(xlUp).Offset(0, -1).Value = ComboBox31.Value End With form.rar

اساتذتى الافاضل كيف اجعل قيمه التيكست بوكس تساوى ناتج الاله الحاسبه تلقائيا

اضف اولا زر امر واضف اليه هذا الكود dim sh as worksheet dim sh1 as worksheet (set sh= sheets("sheet1" (set sh1= sheets("sheet2" lr=sh1.range("b100").end(xlup).row then "حساب"=[if sh.range[a1 [sh1.range("b" & lr).value = sh.range[b2 else exit sub end if يرجى من اساتذتى بالمنتدى الاستاذ حماده عمر و الاستاذ عبد الله المجرب مراجعه الكود لتصحيح ما به من اخطاء

من excel option اختار save as من القائمه اللى هتظهرلك اختار فى نوع الملف ( excel workbook enable macro ) اختار المكان اللى عايز تحفظ الملف فيه وجرب وان شاء الله يشتغل معاك كويس

جزاك الله خيرا وجعله الله فى ميزان حسناتك

بارك الله فيك أ/ عبد الله المجرب دائما سباق للخير جعله الله فى ميزان حسناتك

sub_auto open() userform2.show sheets("sheet1").active end sub

بسم الله ماشاء الله موضوع اكثر من رائع جعله الله فى ميزان حسناتكم وزادكم الله من علمه

يرجى فك ضغط الملف وترك الفولدر cr على الديسك توب لضمان سلامه مسار الكود

محاوله منى ان ارد ولو واحد بالمئه مما قدمه لى هذا المنتدى الرائع ومشرفيه واعضائه العظماء وايضا تكمله الى ما بدأه الاستاذ ابو القبطان فى هذا الرابط http://www.officena.net/ib/index.php?showtopic=29984&hl= وكان طلب التكمله طلب منى ومن الاستاذ حماده عمر وقد وفقنى الله للوصول الى الاكواد الخاصه بذلك cr.rar

استاذ /طارق جزاك الله خيرا على المحاوله وجعله الله فى ميزان حسناتك

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

اخى العزيز هذا افضل شرح على الاطلاق للترحيل من خلال فاتورة بفورم من عمل الاستاذ / حماده عمر http://www.officena.net/ib/index.php?showtopic=46420&hl= ستجد ان شاء الله ما يرضيك واكثر

اخى الكريم قم بارفاق ملف يوضح طلبك وهتلاقى ان شاء الله ما يرضيك واكثر من خبراء الاكسيل بالمنتدى

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

استاذ / حماده عمر عندى استفسار من حضرتك هل من الممكن اجراء عمليه حسابيه يدويه داخل التكست بوكس مثل التى من الممكن اجراءها داخل الخليه جزاك الله خيرا

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

اصدار اكسيل 2007 هو الافضل . من وجهه نظرى ان الامكانيات متشابهه الى حد كبير ولكن هى تعود الى التعود

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

كود لفتح الفورم ملئ الشاشه منقول من اساتذه المنتدى Private Sub UserForm_Activate() With Application Me.Top = .Top Me.Left = .Left Me.Height = .Height Me.Width = .Width End With End Sub

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