Solve the Excel file size problem Solving the problem of hanging| Reduce the size of the excel sheet

[@EGLTM]

لينك الكود مش شغال

[@mohamedsalahalden2931]

بارك الله فيك عشره على عشره

[@hemmatsami3572]

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

[@maisalghazaly9091]

شو عملتي عملت الطريقه الاولى والملف كبر حجمه اكثر ما قل

[@TheMahmoudstar]

جزاك الله خيرا . ثم الصلاة والسلام على سيدنا النبي واله وصحبه اجمعين

[@محمودفوزى-س7ض]

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

[@منوعات-ظ9ل8ط]

الله يجازيك خير

[@khalilalabdulhay9439]

الله ينور عليك

[@hamoudamohamed9616]

شكرا

[@smahaamr6867]

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

[@ZOKATEC]

تواصل معي علشان اعرف مشكلتك

[@abdullahalmalki5488]

اذا سمحت كيف ممكن نتواصل معاك يا دكتور

[@عمرحمزه-ظ6خ]

ممكن تكتب الكود من غير مواقع وليناكات

[@mohamedeliwa4128]

🎉🎉🎉🎉🎉 شكرا

[@Alaa2025_Ha]

رابط ملف تحميل الكود لا يعمل أخي الكريم

[@kareemmohsen4443]

السلام عليكم شكرا جزيلا فين الكود

[@sameheisa5903]

الف شكر

[@ibrahimmohamed6788]

ممكن الكود لو سمحت

[@rashidmerah7711]

السلام عليكم با اخي اريد ان اطرح عليك سؤال فيما يخص فتح ملف ذات الحجم الكبير لم استطع فتحه قمت بتحويل من ملف ويندف الى اكسل ولكن لم استطع

[@ZOKATEC]

ارسل الملف

[@mohammedelsharawy7101]

فى رساله بتيجى بتقول (استكمال هذه المهمة بالموارد المتاحه،اختر بيانات أقل Excel تعذر على ،او اغلق تطبيقات اخرى) ومش بيسجل

[@ZOKATEC]

شغال بالكود و لا بالصيغة

[@djamelbek7506]

بارك الله فيك أخي ولكن أين برنامج لكي أنسخه لم أجده?

[@ZOKATEC]

www.upload-4ever.com/h9ui82927x65

[@mahmoudtohamy5939]

معلش حضرتك فين الكود؟

[@ZOKATEC]

الرابط تحت الفيديو bit.ly/LESSSIZE

[@mohamednagah6625]

@@ZOKATEC مش شغال

[@islamyoussef7374]

ممكن ملف الكود

[@Learn-and-all]

نفس المشكله برضه

[@Agirvan-QM]

الأستاذ الكريم لدي سؤال عن ملف إكسل حجمه 12 ميغا عمل الملف بطيء رغم أنني قمت بنقله إلى أكثر من لابتوب وشغلت الأكواد و لكنه يعاني من نفس البطء حتى يكون الأمر واضحاً أكثر.. هناك كود من عدة كلمات نستطيع من خلالها عند فتح الملف في كل مرة يقوم بالانتقال تلقائياً إلى الصفحة التي قمنا بتحديدها في الكود عن طريق الأمر Select ومنذ ذلك الحين والبرنامج عندي يعاني من الثقل رغم أنني قمت بحذف الكود عندما لاحظت ثقله ولكن رغم ذلك بقي البطء موجوداُ فيه ولم أجد حلاً لذلك إلى الآن.. وعند القيام بأي ترحيل أو أي تغيير أو حتى الانتقال بين الخلايا يعطي رسالة أسفل الشريط إلى اليسار مضمونها: يتم الآن الحساب: (4 معالج (معالجات)) ما الحل هنا ؟

[@ZOKATEC]

تواصل مع علي الواتس اب اللي علي القناة

[@Agirvan-QM]

@@ZOKATEC لم أجد الرقم.. لو أرسلته هنا أستاذي الكريم

[@ZOKATEC]

01229295347

[@Agirvan-QM]

@@ZOKATEC قمت بحفظ الرقم ولكن لم يظهر لدي الواتس اب

[@AliMohamed-ig7ll]

نفس المشكله عندي

[@mohamedidrissikacemi3833]

يا عم Alet+ F11 اختصار مبيشتغلش في جميع الأجهزة اعمل ايه علشان ادخل الكود

[@ZOKATEC]

ممكن حضرتك توصله من التاب "developer "

[@husseinhassaballa292]

كود تحميل الملف مش بيحمل

[@taaatoo]

الرابط لا يعمل

[@AliMohamed-ig7ll]

مش عاوز ينزل كود تقليل ااحجم

[@abohesam1882]

اذا مابترد عل تعليقات ليه بتنزل وتتفلسف عل ناس وتستهبل كل. بتعملو عمل وهمي هاد لافي كود ولا في شي لحد يسدقو بلحه

[@ZOKATEC]

Sub ExcelDiet() Dim j As Long Dim k As Long Dim LastRow As Long Dim LastCol As Long Dim ColFormula As Range Dim RowFormula As Range Dim ColValue As Range Dim RowValue As Range Dim Shp As Shape Dim ws As Worksheet Application.ScreenUpdating = False Application.DisplayAlerts = False On Error Resume Next For Each ws In Worksheets With ws 'Find the last used cell with a formula and value 'Search by Columns and Rows On Error Resume Next Set ColFormula = .Cells.Find(What:="*", After:=Range("A1"), LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious) Set ColValue = .Cells.Find(What:="*", After:=Range("A1"), LookIn:=xlValues, _ LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious) Set RowFormula = .Cells.Find(What:="*", After:=Range("A1"), LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious) Set RowValue = .Cells.Find(What:="*", After:=Range("A1"), LookIn:=xlValues, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious) On Error GoTo 0 'Determine the last column If ColFormula Is Nothing Then LastCol = 0 Else LastCol = ColFormula.Column End If If Not ColValue Is Nothing Then LastCol = Application.WorksheetFunction.Max(LastCol, ColValue.Column) End If 'Determine the last row If RowFormula Is Nothing Then LastRow = 0 Else LastRow = RowFormula.Row End If If Not RowValue Is Nothing Then LastRow = Application.WorksheetFunction.Max(LastRow, RowValue.Row) End If 'Determine if any shapes are beyond the last row and last column For Each Shp In .Shapes j = 0 k = 0 On Error Resume Next j = Shp.TopLeftCell.Row k = Shp.TopLeftCell.Column On Error GoTo 0 If j > 0 And k > 0 Then Do Until .Cells(j, k).Top > Shp.Top + Shp.Height j = j + 1 Loop If j > LastRow Then LastRow = j End If Do Until .Cells(j, k).Left > Shp.Left + Shp.Width k = k + 1 Loop If k > LastCol Then LastCol = k End If End If Next .Range(.Cells(1, LastCol + 1), .Cells(.Rows.Count, .Columns.Count)).EntireColumn.Delete .Range("A" & LastRow + 1 & ":A" & .Rows.Count).EntireRow.Delete End With Next Application.ScreenUpdating = True Application.DisplayAlerts = True msgbox " ?? ???????? ?? ????? " End Sub

[@yaserelgohary1164]

حجم الملف كبر معايا .. مقلش 😀

[@maisalghazaly9091]

وانا كمان 😅شو السببب؟؟؟

[@emadelkhamy]

الطريقه جربتها ومش صح

[@ZOKATEC]

تواصل معي علشان اعرف مشكلتك

[@ashrafemam1937]

ملف الكود فيه فيروس

[@ZOKATEC]

ملف الكود مجرد note مكتوب في أكواد excel vba

[@ashrafemam1937]

@@ZOKATEC عند تتبع خطوات التحميل دخلنى احمل ملف لما بحملة برنامج الحماية قال ان الملف خطر ويحتوى على فيروس trojan

[@ZOKATEC]

@@ashrafemam1937 هات ايميلك أرسلم الملف

[@عدنانالتويجي-ج1خ]

عندي نفس مشكلتك . لوسمحة كيف يمكننى الحصول على الكود

[@321kamana]

الكود به خطا

[@ZOKATEC]

تأكد من اللغة

[@hussainalsunbul2419]

......