محمد توبه

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

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