رامي الخبيري

ممكن استخدام الكود ده 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..

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

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