جلال الجمال_ابو أدهم قام بنشر سبتمبر 15, 2014 مشاركة قام بنشر سبتمبر 15, 2014 تحياتى للجميع مرفق ملف دليل حسابات من مستويين و المطلوب فيه عند ادراج حساب فرعى جديد يتم الاتى :- يتم ادراج تلقائى لرقم الحساب الفرعى الجديد بعد اخر تسلسل موجود تحت الحساب الرئيسى عند ترحيل البيانات يتم ادراج الحساب الفرعى الجديد فى تسلسله ضمن الحسابات الموجودة تحت الحساب الرئيسى فى دليل الحسابات يتم ازاحة باقى الصفوف الاخرى الى اسفل وهكذا لباقى الحسابات كود تكويد دليل الحسابات.rar رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر سبتمبر 17, 2014 مشاركة قام بنشر سبتمبر 17, 2014 السلام عليكم هذه المحاولة بالمعادلات =IFERROR(VLOOKUP($B4;ورقة2!$A$2:$B$6;2;0)&TEXT(SUMPRODUCT(N(LEFT($C$3:C3;5)=""&VLOOKUP($B4;ورقة2!$A$2:$B$6;2;0)))+1;"0000");"") المرفق 2010 كود تكويد دليل الحسابات.rar 1 رابط هذا التعليق شارك More sharing options...
جلال الجمال_ابو أدهم قام بنشر سبتمبر 17, 2014 الكاتب مشاركة قام بنشر سبتمبر 17, 2014 اخى الفاضل و معلمى / عبدالله باقشير بارك الله فيك و زادك الله من علمه و اشكرك على المعادلة الرائعة و التى استفدت منها كثيرا و كان لى محاولة فى الفرز و الترتيب عن طريق الكود و نجحت فى تنفبذها و لكن بقى لى ادراج رقم الحساب الفرعى تلقائيا و مرفق الملف بعد التعديل مع تحياتى لشخصكم الكريم Copy of كود ادخال مع ترتيب الصفوف1.rar رابط هذا التعليق شارك More sharing options...
أفضل إجابة عبدالله باقشير قام بنشر سبتمبر 17, 2014 أفضل إجابة مشاركة قام بنشر سبتمبر 17, 2014 وعليكم السلام ضع هذه المعادلة في الخلية C2 =IFERROR(LEFT(VLOOKUP(B2;ورقة2!$A$2:$B$4;2;0);4)&TEXT(SUMPRODUCT(N(LEFT($C$3:$C$100;4)=LEFT(VLOOKUP($B2;ورقة2!$A$2:$B$4;2;0);4)))+1;"000");"") وهذا تعديل للكود مع الفرز 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 المرفق 2010 تحياتي Copy of كود ادخال مع ترتيب الصفوف1.rar رابط هذا التعليق شارك More sharing options...
جلال الجمال_ابو أدهم قام بنشر سبتمبر 18, 2014 الكاتب مشاركة قام بنشر سبتمبر 18, 2014 استاذنا المحترم / عبدالله باقشير بارك الله فيك و الله ينور عليك دائما حلولك رائعة شاكر فضلك _ مع تحياتى رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.