بارك الله فيك استاذى الكريم وجزاك الله كل خير
بالتأكيد دائما نتعلم طالما اننا عايشين فلا يوجد من هو كبير على التعلم
وطبعا من الأفضل الا تبخل بعلم تعلمته فلابد من نشر العلم
يمكنك متابعة هذا الرابط فمثل هذه البرامج تكون بمقابل وليس مجانية
https://www.officena.net/ib/topic/76248-برنامج-شركة-ايجار-سيارات/?tab=comments#comment-488293
او عليك استخدام خاصية البحث فى المنتدى ولكن اكثر فى قسم الأكسيس
بارك الله فيك وشرفتنا فى المنتدى
وعليكم السلام الرابط لا يعمل كما ترى
File Not Found
The file you were looking for could not be found, sorry for any inconvenience
Possible causes of this error could be:
The file expired
The file was deleted by its owner
The file was deleted by administration because it didn't comply with our Terms of Use
وعليكم السلام , اهلا بك اخى الكريم فى المنتدى
عليك بوضع هذا الكود فى حدث الصفحة التى تقوم بالكتابة عليها
Private Sub Worksheet_Change(ByVal Target As Range)
Cells.Select
Selection.Rows.AutoFit
Selection.Columns.AutoFit
Range("A1").Select
End Sub
وذلك عن طريق كليك يمين فى الأسف على اسم الصفحة ثم View Code ستفتح لك نافذة اخرى عليك لصق هذا الكود بها
بارك الله فيك وموفق ان شاء الله