طلب بعض التعديلات على الكود فى الملف المرفق

[أبو العاصم]

السلام عليكم ورحمة الله وبركاته

الملف المرفق عبارة عن دليل للحسابات ومرفق معه نموذج قيد يومية

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

ولى عليه عدة طلبات إن إتسع وقت المساعدين المتطوعين فى هذا الصرح وهى

1- فى العامود F أطلب كود يقوم بعمل ترقيم تسلسلى كلما قمت بعمل فلتر حسب رقم القيد لترتيب الحركات دخل القيد

كود يحل محل المعادلة الموجودة فى العامود

2- فىالعامود E عامود الرمز لا يستجيب إلا عند كتابة الرمز أما عند النسخ بـ (paste values ) أو ( ctrl +d)

لا يقوم بالبحث عن الحساب إلا بعد عمل F2+enter للخلية والمطلوب تعديل ذلك بحيث يقرأ بمجرد لصق الاختصار

وهناك بعض الأسئلة بعد إنجاز المطلوب بارك الله فيكم

كلمة سر الـ VBA 123

والسلام عليكم ورحمة الله وبركاته

نموذج قيد يومية.rar

[أبو العاصم]

أعان الله الإخوة

[أبو العاصم]

يسر الله لكم وأعانكم

[الـعيدروس]

اخي ادلي بدلوي كود عمل مسلسل

حسب مااطلعت على المرفق يعمل المسلسل من خلية F13

هذا الكود

Sub MSLSL_alidroos()

On Error Resume Next

Application.ScreenUpdating = False

Dim SEN_ALI As Integer

Dim DYKOUN As Integer

SEN_ALI = InputBox("ادخل بداية المسلسل المراد علمأ ان الملسل يبداء من خلية F13", "أوفسينا أروع صرح تعليمي")

If SEN_ALI = False Then

Exit Sub

Else:

DYKOUN = InputBox("ادخل اخر مسلسل تريدة", "أوفسينا أروع صرح تعليمي")

If DYKOUN = False Then Exit Sub

COUNT_ALI = DYKOUN - 1

[f13].Select

Range("f13").FormulaR1C1 = SEN_ALI

For Num = 1 To COUNT_ALI

ActiveCell.Offset(1, 0).Select

ActiveCell.FormulaR1C1 = SEN_ALI + 1

SEN_ALI = SEN_ALI + 1

Next Num

End If

Application.ScreenUpdating = True

End Sub

تحط الرقم الاول والرقم الاخير

وهذا مرفق

عمل مسلسل.rar

[أبو العاصم]

جزاك الله خيرا لو قمت باجابة الطلب الثانى والأول غير ضرورى أكون شاكرا