كود تسلسلى لتكويد دليل الحسابات

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

تحياتى للجميع

 

مرفق ملف دليل حسابات من مستويين

 

و المطلوب فيه عند ادراج حساب فرعى جديد يتم الاتى :-

 

 

1. يتم ادراج تلقائى لرقم الحساب الفرعى الجديد بعد اخر تسلسل موجود تحت الحساب الرئيسى
2. عند ترحيل البيانات يتم ادراج الحساب الفرعى الجديد فى تسلسله ضمن الحسابات الموجودة تحت الحساب الرئيسى فى دليل الحسابات
3. يتم ازاحة باقى الصفوف الاخرى الى اسفل
4. وهكذا لباقى الحسابات

كود تكويد دليل الحسابات.rar

[عبدالله باقشير]

السلام عليكم

 

هذه المحاولة بالمعادلات

=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

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

اخى الفاضل و معلمى / عبدالله باقشير

 

بارك الله فيك و زادك الله من علمه

و اشكرك على المعادلة الرائعة و التى استفدت منها كثيرا

 

و كان لى محاولة فى الفرز و الترتيب عن طريق الكود و نجحت فى تنفبذها

 

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

 

و مرفق الملف بعد التعديل

 

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

Copy of كود ادخال مع ترتيب الصفوف1.rar

[عبدالله باقشير]

وعليكم السلام

ضع هذه المعادلة في الخلية 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

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

استاذنا المحترم / عبدالله باقشير

 

بارك الله فيك و الله ينور عليك

 

دائما حلولك رائعة

 

شاكر فضلك _ مع تحياتى