رامي الخبيري

ممكن استخدام الكود ده Sub Merge_Sheets() 'Insert a new worksheet Sheets.Add 'Rename the new worksheet ActiveSheet.Name = "ProfEx_Merged_Sheet" 'Loop through worksheets and copy the to your new worksheet For Each ws In Worksheets ws.Activate 'Don't copy the merged sheet again If ws.Name <> "ProfEx_Merged_Sheet" Then ws.UsedRange.Select Selection.Copy Sheets("ProfEx_Merged_Sheet").Activate 'Select the last filled cell ActiveSheet.Range("A1048576").Select Selection.End(xlUp).Select 'For the first worksheet you don't need to go down one cell If ActiveCell.Address <> "$A$1" Then ActiveCell.Offset(1, 0).Select End If 'Instead of just paste, you can also paste as link, as values etc. ActiveSheet.Paste End If Next End Sub

حل مبدئي لحين مساعدة الأخوة المتخصصين 1.xlsx

حل مبدئي لحين وصول مساعدة الأخوة المتخصصين 2.xlsx

ارفق نموذج للملف حتى يتمكن الأخوة من المساعده

مرفق عن طريق pivot table المناطق السكنية 2019.xlsx

ممكن عن طريق pivot table

الحل منقول للأمانة :- Sub Button2_Click() Dim intChoice As Integer Application.FileDialog(msoFileDialogOpen _ ).InitialFileName = "D:TempFolder to Start" intChoice = Application.FileDialog(msoFileDialogOpen).Show If intChoice <> 0 Then End If End Sub

الحل منقول للأمانة :- Sub Example() Dim intChoice As Integer 'Select the start folder Application.FileDialog(msoFileDialogOpen _ ).InitialFileName = "D:TempFolder to Start" 'make the file dialog visible to the user intChoice = Application.FileDialog(msoFileDialogOpen).Show 'determine what choice the user made If intChoice <> 0 Then 'your code here End If End Sub

شكرا للجميع .... وجدت حل Worksheets("sheet1").Range("a1").Value = Sheets(Sheets.Count).Range("a1").Value جزاكم الله خيرا ...

السلام عليكم .. أريد - بعد إذن حضراتكم - معادلة أو كود تمكنني من الأتي : قيمة الخلية A1 مثلاً في Sheet1 = قيمة الخلية A1 في أخـــــــــر شيت يتم إضافته ( و يتم تحديث القيمة تلقائياً مع كل شيت جديد يتم إضافته ) أحببت أن أرفق شيت لكن شعرت بأن الكلام أعلاه كافي لإيصال المعلومة .. أرجو المساعدة ..

عد الفواتير.zip

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

up..

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

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

السلام عليكم و رحمة الله و بركاته الطلب بسيط إن شاء الله أريد طباعة شيت 1 عدة مرات و في كل مرة يتم ملأ المحتوى ببيانات من شيت 2 بالترتيب حتى يتم الإنتهاء من جميع بيانات شيت 2 مرفق مثال TEST.zip و لكم وافر التحية

=$A$1=1 حدد المدى المطلوب ثم استخدم التنسيق الشرطي و ضع هذه المعادلة ,,, مرفق ملف للتوضيح Book1.zip

سلمت يداك أستاذنا الكبير . . . و ما زلت أصر على الإستفادة منك

=IF($B$8=$D$8;D9;IF($B$8=$E$8;E9;""))

=INDEX($D$9:$E$30;ROW()-8;MATCH($B$8;$D$8:$E$8;0)) مع التحية

أخي محمود . . . تحياتي لك أستاذي الفاضل . . أنا عارف إنها معادلة بدائية . . . بس بحاول أجرب إني أساعد ملحوظة : أنا أشتغلت على المرفق الأول أخوك رامي

=CONCATENATE("+0",LEFT(O7,1),".",MID(O7,2,O7)) ممتاز أخي محمود ,بارك الله فيك و لإثراء الموضوع

بعد إذن أستاذي رجب جاويش أنا أعمل تحت إشرافه ,, تفضل أخي _____.rar

تستاهلها يا كبير . . نفع الله بك . . تحياتي اخوك رامي

تحياتي لك أخي الكريم رجب و جزاك الله خيرا على كلماتك المشجعة . . .