رضا على

ارجوا ان يكون هو المطلوب رزة1.xlsm

تفضل يا اخى wor1.xlsm

شكرا على المجهود وشكرا على الاهنمام هو المطلوب فعلاا

السلام عليكم ..لابد من التحية عند بدء أى مشاركة ,,,ادراج عدد صفوف خالية اسفل كل خلية اكبر من 2 اذا كانت الخلية a2 قيمتها اكبر من 2 ولتكن 4 يدرج اسفلها 4 صفوف خاليه وهكذا ومرفق كود لكن يدرج صف واحد فقط اضافة صفوف.xlsm

حركة خزينة الإدارة العامة 2022-2023 (1).xlsx تمام كدة

ارجوا يكون المطلوب حركة خزينة الإدارة العامة 2022-2023.xlsx

انتبه من فضلك مشاركة مكررة والا ستحذف جميع المشاركات اضافة مخزون.xlsm

Private Sub Worksheet_Change(ByVal Target As Range) Dim ADR Dim ws: Set ws = Sheets("Sheet2") ADR = Range("e3") If Not Intersect(Target, Range("c3")) Is Nothing Then If Target > 0 Then Sheets("Sheet2").Range(ADR).Offset(1, 1) = Val(Sheets("Sheet2").Range(ADR).Offset(1, 1)) + Target Target = "" End If ElseIf Not Intersect(Target, Range("d3")) Is Nothing Then If Target > 0 Then Sheets("Sheet2").Range(ADR).Offset(1, 2) = Val(Sheets("Sheet2").Range(ADR).Offset(1, 2)) + Target Target = "" End If End If End Sub هذا الكود هو المطلوب بالضبظ لكن اريد ان احفظة كماكرو لكى اربطه بزر الاضافة لان الكود ينفذ بمجرد الخروج من الخلية واريد تنفيذة فقط بالضغط على زر الاضافه لكن فى المجمل اشكر ك بشدة ويكتبة فى ميزان حسناتكم

شكرااااااا لاهتمامكم بس عايز الاكواد تنفذ على زر الاضافه ويبقى شكرااااااا جداااااا

اريد ان يرحل الخلايا الى الشيت الاخر مع الجمع لدلاله رقم السلعة والشرح الافضل فى الملف كود للترحيل مع الجمع.xlsm

شكرا لردكم اريد عندما يتم التقسيم يحنفظ ببقيه البيانات فى الصفوف الاخرى الكود ازاح الاعداد لاسفل وانا موضح الحل والشكله بالملف تعديل ارقام.xlsm

الف مليون شكر وامتنان لمجهودكم الكريم الكود جبار وهو المطلوب بالضبط اتا اسف نسيت اسال مع الاحتفاظ بباقى الاعمدة كما بالملف ارقام.xlsm

ارجو المساعدة فى تقسيم الارقام التى تكون اكبر من 50 اللى مجموعات = 50 وادراج صفوف يعدد المجموعات ارقام.xlsx

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

اريد البحث بطريقة معينة بدلاله رقم بعمود ويتم ادراج صفوف الرقم فى صورة غمود يكما هو موضح داخل الملف فواتير.xlsm