Emad Sabry

هو بحث ايضا لما تدخل حرف الالف مثلا وتدوس على سهم هيظهرلك كل اللى بيبدأ اسمائهم بالالف

تم تعديل كل المطلوب وهذا هو الكود المستخدم لترحيل B1الى العمود K بدون تكرار والكود من ابداع الاستاذ @رجب جاويش ولكن قمت بتعديله ليناسب خلية واحدة بنفس الشيت وليناسب باقى متطلباتك Sub ragab() Dim cl As Range, LR As Integer Dim Sh As Worksheet, R_N As Integer Set Sh = Sheet1 X = [B1] LR = Sh.[K5000].End(xlUp).Row + 1 Range("B1").Copy For Each cl In Sh.Range("K2:K" & LR) If cl = X Then R_N = cl.Row Sh.Cells(R_N, 11).PasteSpecial xlPasteValues GoTo 1 End If Next Sh.Cells(LR, 11).PasteSpecial xlPasteValues 1: Application.CutCopyMode = False End Sub وتم تفعيله بمجرد تغيير الخلية فى B1 عن طريق الكود التالى فى sheet1 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$B$1" Then Call ragab End If End Sub وتم تعديل data validation لتظهر لك الاسم عند كتابة اول حرف وتم الغاء الرسالة التى تظهر لك عند فتح الشيت برنامج المحاسب.xlsm

هو كان صح انت بتقول بينقص وحدة فى كل مرة فلما يوصل لصفر بالتالى هتفتح صندوق جديد وبالتالى هيكون الحالى 6 صناديق مش 7 فالمشكلة مش فى التواريخ

هتاخد فولدر الفواتير وتروح بيه لبارتيشن e وتحطه paste ودا الملف اللى هتستدعى بيه الفاتورة هيظهرلك الملف بتاعها عدل براحتك وبعدين دوس حفظ و اقفل الملف وخلى بالك من الاسم مينفعش تكتب مثلا فى برنامج المحاسبة محمد يوسف وتيجى تكتب اسمه فى ملف الفاتورة الخاص به محمد يوسف يعنى تدوس فى واحدة مسطرة واحدة والتانية تدوس مرتين على المسطرة بين محمد ويوسف هيظهرلك خطأ ودا الكود اللى تم استخدامه Sub استدعاء_فاتورة_من_الفواتير() Dim Filename As String Filename = Range("B1").Value Workbooks.Open ("e:\الفواتير\" & Filename & ".xlsm") End Sub برنامج المحاسب.xlsm

ممكن تستخدم الكود دا فى مديول Function SumCells(Rng As Range) Application.Volatile Dim Cell As Range On Error Resume Next For Each Cell In Rng.Cells SumCells = SumCells + Evaluate(Replace(Replace(Cell.Text, vbLf, "+"), "$", vbNullString)) Next Cell End Function وهتقول فى عملية الجمع الدالة الاتية =SumCells(D4:D10) تجربة.xlsm

سؤالك مش مفهوم

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

3.xlsm

استخدم المعادلة بالشكل التالى غير اسم مصطفى لمصطفى درويش واستخدمها بالشكل التالى :- =INDIRECT("'"&B3&"'!H249")

استخدم المعادلة دى فى الخلية G9 الخاص بالقروش وانزل بيها اوتوفيل =ROUND(MOD(($F9*$J9)+($E9*$J9)/100,1),2)*100

هو شغال معايا تمام وبيعمل شيتات جديدة عادى عمتا لو عاوز العمود 2 أعمل insert لعمود جديد يكون هو عمود B ويكون خاص بالهايبر

أنا معايا شغالة تمام بنفس الطريقة وكل الشيتات بتفتح على الشيت الخاص بها اعمل نفس الطريقة مرة اخرى وهتعمل كليك يمين مثلا على شيت لجان وتختار assign macro هتظهرلك شاشة عند macro name ادخل الاسم التالى paste ثانية.xlsm!OpenSheet2 ويعدين ok ملحوظة الماكرو مش مصمم انه يدخلك على صفحة معينة هو مصمم انك علشان تدخل الصفحة المرتبطة بالماكرو تكتب رقم سرى

الكود الخاص بالهايبر لينك محتاج عمود لوحده لأنك كل ما تزود عدد الشيتات بيزداد العدد فى الهايبر لينك علشان كدا ادخل على الكود هتلاقى r=3 ,c=2 غير ال c وخلى بدل ال 2 فى c رقم 18 هتللاقى الهايبر ظهرلك فى العمود R

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

انا قلتلك مش من هنا ملكش دعوة ب file انا بقولك من عند شيت سرى

2222.xlsm

زيادة مدى.xlsm

عليك بالبحث اولا فى المنتدى https://www.officena.net/ib/topic/49169-شرح-تحويل-ملف-الاكسل-الى-exe-ثم-تغيير-الايقونة-ثم-setup-شوقي-ربيع/

على ما اعتقد كدا بقه مظبوط ؟ شرح المطلوب 111.xlsm

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

طلباتك كتير ا/محمد بس عمتا تفضل شرح المطلوب.xlsm

هتيجى عند سرى دوس كليك يمين واختار assign macro هيظهرك شاشة فيها كلام متظلل اللى هو دا ثانية.xlsm!OpenSheet2 خده كوبى .. وبعدين روح لكل شيت عاوز فيه باسورد ودوس كليك يمين واختار assign macro ودوس paste وبعدين ok

مينفعش تعمل مسافة فى الاسم بدل المسافة استخدم ال low dash _ أو dash -

بعد اذن استاذ على دوس على file واختار save as هتظهرك شاشة هتلاقى من تحت tools دوس عليها واختار general option هتظهرلك شاشة أول حاجة مكتوب password to open ودا اللى انت عاوزه اللى تحتيخ password to modify بمعنى يكتب الباسور للفتح ودا الاول وعلشان يعدل اى محتوى لازم يكتب باسورد تانى وبعدين تعيد الباسوردات و اوك ملحوظة ممكن تعمل بتاع الفتح فقط من غير moodify

هو التفاف عادى جدا مع التحكم فى عرض العمود فتقدر تنزل كلمة او كلمتين تحت بالتحكم فى عرض العمود تكبيره وتصغيره