رضا على

ارجوا ان يكون هو المطلوب

رزة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

بعد ادن الادمن الاجابة على حسب قهمى البسيط

بعد ادن الادمن الاجابة على حسب قهمى البسيط

BINOME2223.xlsx

شكرا لاهتمامكم وكان الله فى عونكم 

هذا هو المطلوب بالفعل

شكرا لاهتمامكم وكان الله فى عونكم 

انا كنت عايز يطبع صفحة كود الطالب 1 ثم ينتقل الى كود طالب 2 ويطبع ثم ينتقل الكود 3 ويطبع لحد اخر كود طالب فى شيت 1 وشكرا لكم

السلام عليكم أساتذتى الأفاضل ..نرجوا المساعدة فى كود طباعة سجلات الترحيل كما هو مبين بالملف

انتبه من فضلك .. تجنباً لإهدار وقت الأساتذة وبما انك تريد حل طلبك بالأكواد , فكان لزاما عليك رفع الملف بإمتداد Xlsm ... فقد تم اعادة رفع الملف بهذا الإمتداد

الطباعه.xlsm

الاجابه دى فوق الخيال  شكرااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااا

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

انا كنت محتاج ان الدوال تشتغل تلقائى اتا بشتغل على 2010 مش عارق السؤال دة طبيعى ولا....... 

اعنى لما انسخ الدالة تعمل لازم ادوس على fx واضغط على اوامر الداله لتعطى النتيجه

ايجاد حل لارقام جلوس صعبه كما هو موضح بالملف

ارقام جلوس.xlsm

انا عرفت اريط الخلايا محتاج كود للطباعه كل البيات المربوط

الارقام.xlsx

السلام عليكم -أريد ربط خلابا فى ورقتين وانشاء ورقة البيانات لكل صف

الارقام.rar

شكرااااا جزيلا

انتبه من فضلك فقد تـــم تعديل رفع الملف بإمتداد Xlsm , طالما انك تريد الحل بالأكواد

مشاركة مكررة .. فقد تـــم بالفعل حذف المشاركة الأخرى

اكواد.xlsm