جلال الجمال_ابو أدهم

اخى / صلاح شاكر مرورك تحياتى

73 _ هديتى مدونة_مينى كود_اسكتش_متجدد _ جلال الجمال_ابو أدهم

اخى الكريم ابن مصر الف مليون مبروك و تمنياتى لك بمزيد من الرقى

4 _ كود ادخال ترحيل بيانات بطريقة رأسية _ برنامج التكويد و دليل الحسابات مرفق التطبيق العملى تحياتى و لا تنسونى من صالح الدعاء مرفق الملف مع الشرح كود ادخال ترحيل بيانات بطريقة رأسية برنامج التكويد_مينى كود_adham.rar

3 _ كود ادخال ترحيل بيانات بطريقة رأسية مع ترتيب الصفوف تصاعدى و بشرط عدم مسح خلية بها معادلة تكويد Sub AddText() With sheet1 .Range("B" & Rows.Count).End(xlUp).Offset(1, 0).Resize(1, 12).Value = .Range("B2").Resize(1, 12).Value .Range("B2,D2:M2").ClearContents With .Range("B3:M100") .Sort .Columns(2), xlAscending End With End With End Sub ورقة تنفيذ الكود sheet1 نطاق سطر الادخال للبيانات (A2:M2) يمكن تعديله بناء على البيانات المطلوب ادخالها بعد الضغط على زرار الترحيل سيتم ترحيل سطر الادخال بطريقة رأسية مع مسح البيانات و ابقاء صيغة المعادلة_التكويد بالخلية C2 يتم ازاحة و ترتيب الصفوف تصاعديا طبقا لمعلومية الرقم بالعمودC مرفق التطبيق العملى تحياتى و لا تنسونى من صالح الدعاء كود ادخال ترحيل بيانات بطريقة رأسية مع ترتيب الصفوف تصاعدى و بشرط عدم مسح خلية بها معادلة تكويد_مينى كود_adham.rar

70 _ اهداء الى المنتدى--شرح كيفية عمل فاتوره على الكسيل بدون فورم _ استاذ / ابراهيم ابو ليلة 71 _ سلسلة : تعلم اكسل معي بالصوت والصورة _ استاذ / محمد نصرى 72 _ شرح مبسط عن msgbox فى لغة البرمجه VBA _ استاذ/ حسام عيسى

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

استاذنا / ابراهيم ابو ليلة شاكر كلماتك التى اعطتنى اكثر من عملى المتواضع

استاذ / ابراهيم ابو ليلة بارك الله فيك

استاذ / سلمان بارك الله فيك شاكر مرورك الكريم

استاذ / محمود الشريف بارك الله فيك شاكر مرورك الكريم

2 _ كود ادخال ترحيل بيانات بطريقة رأسية مع اضافة كود ترتيب الصفوف تصاعدى و يصبح كود الادخال و الترحيل Sub AddText() Dim Lrow As Single With sheet1 Lrow = .Range("A" & Rows.Count).End(xlUp).Row + 1 .Range("B" & Lrow & ":M" & Lrow) = .Range("B2:M2").Value .Range("B2:M2").Value = "" sortg_Click End With End Sub مع اضافة كود ترتيب تصاعدى التالى: Sub sortg_Click() Range("B3:m1000").Sort Key1:=Range("b2"), Header:=xlNo Range("b2").Select End Sub ورقة تنفيذ الكود sheet1 نطاق سطر الادخال للبيانات (A2:M2) يمكن تعديله بناء على البيانات المطلوب ادخالها بعد الضغط على زرار الترحيل سيتم ترحيل سطر الادخال بطريقة رأسية يتم ازاحة و ترتيب الصفوف تصاعديا طبقا لمعلومية الرقم بالعمودC مرفق التطبيق العملى تحياتى و لا تنسونى من صالح الدعاء كود ادخال و ترحيل بيانات_بطريقة رأسية_مع الترتيب_تصاعدى_كود مينىadham.rar

اخى ياسر خليل شاكر مرورك و ارجو ان تنول الفكرة رضاكم_تحياتى

استاذى / حمادة عمر _ الجموعى _ حسام عيسى تحياتى و شاكر مروركم الكريم

استاذ / حسام عيسى بارك الله فيك تمنياتى بالتوفيق دائما

1 _ كود ادخال ترحيل بيانات بطريقة رأسية ()Sub AddText Dim Lrow As Single With sheet1 Lrow = .Range("B" & Rows.Count).End(xlUp).Row + 1 .Range("B" & Lrow & ":K" & Lrow) = .Range("B3:K3").Value .Range("B3:K3").Value = "" End With End Sub ورقة تنفيذ الكود sheet1 نطاق سطر الادخال للبيانات (B3:K3) يمكن تعديله بناء على البيانات المطلوب ادخالها بعد الضغط على زرار الترحيل سيتم ترحيل سطر الادخال بطريقة رأسية مرفق التطبيق العملى تحياتى و لا تنسونى من صالح الدعاء كود ادخال و ترحيل بيانات_بطريقة رأسية_كود مينىadham.rar

هديتى مدونة_مينى كود_اسكتش من بحثى المتواضع بالانترنت رأيت عمل محفظة اكواد جاهزة مع التطبيق العملى للاستفادة لذلك .... سيتم وضع اكواد بسيطة ( جاهزة و منفصلة ) للاستفادة منها عند انشاء الملفات و البرامج و هى اكواد مرفوعة و لطفا..... لعدم ذكر الاشخاص أو المواقع المرفوع منها الكود لأن الفكرة هنا هو عرض الكود و التطبيق العملى بصورة ميسرة و لأنى ليس خبير بالاكواد(سيترك الشرح للاساتذة) سيرفق بالكود التطبيق العملى له بعد تعديله من رؤيتى المتواضعه للاكواد و ارجو ان تروق لاعضاء المنتدى الفكرة و نسألكم صالح الدعاء تحياتى

تفضل اخى مرفق الملف تحياتى سندات_دينار و فلس V.3.3.rar

اخى محمود الشريف بارك الله فيك تحياتى

بارك الله فيك و بالتوفيق دائما

اخى / الجموعى بارك الله فيك تحياتى

للاخ الكريم / ياسر خليل بارك الله فيك و ترقية مستحقة مع تمنياتى لك بدوام الصحة و تعلمنا مما علمك الله تعالى تحياتى

69 _ افتح الباب وادخل لعالم البرمجة (متخافوش يا أحباب من اللي ورا الباب) _ الاستاذ / ياسر خليل

اخى ياسر خليل بارك الله فيك و تمنياتى لك بالتوفيق دائما

اخى _ بارك الله فيك و بداية موفقة تحياتى