اذهب الي المحتوي
أوفيسنا

هل يمكن عمل متغيرات فى ورقة عملاء


الردود الموصى بها

السلام عليكم

ارجو من السادة الافاضل مساعدتى فى عمل ملف خاص بالعملاء 

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

وهل يمكن اخفاء خلايا فقط دون عمود او صف لاننى اريد اخفاء خلايا فقط التى لااستخدمها فى الملف واظهارها حين استدعائها

ثالثا اريد ترقيم حين الكتابة فى خلايا معينة 

ارجو الشرح للاستفادة من الاخوة الافاضل

واريد عمل ورقة لجميع العملاء بحسابهم

وشكرا

 

test.rar

رابط هذا التعليق
شارك

السلام عليكم ورحمة الله

 

أخي الكريم، تم التعديل على الملف بعد إزالة الحماية عليه.... وتجد بعض الشرح في الملف المرفق...

 

أخوك بن علية

 

test.rar

رابط هذا التعليق
شارك

السلام عليكم ورحمة الله

 

أخي الكريم، معذرة على عدم العمل على المطلوب الأخير "واريد عمل ورقة لجميع العملاء بحسابهم" (لأني لم ألاحظه إلا بعد إرسال ردي السابق) وبإذن الله سأحاول إدراج هذه الورقة والعمل عليها في رد آخر إن لم يقم أحد إخوتي بذلك...

 

أخوك بن علية

رابط هذا التعليق
شارك

 

السلام عليكم

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

 

Sub Insert_Agent()

If [F2] = "" Then Exit Sub
On Error GoTo Ms
      Sheets("copy").Copy After:=Sheets(Sheets.Count)
      With ActiveSheet
      .Name = [F2]: .[F2] = "": End With
      Sheets("copy").Select
     [F2] = ""
If Err.Number = 55 Then
Ms:
Application.DisplayAlerts = False
MsgBox "إسم هذا العميل موجود مسبقا يرجى تغيير الإسم", vbCritical, "خطأ"
ActiveSheet.Delete
End If

End Sub

 

 
 
تم تعديل بواسطه أبو حنين
رابط هذا التعليق
شارك

السلام عليكم

شكرا اخى العزيز على مجهودك الرائع

هل يمكن تسمية الشيت بنفس اسم العميل وانا منتظر ردك الكريم

وهل يمكن اخفاء خلايا فقط دون الصفوف او الاعمدة

فى الشيت اريد اخفاء الخلايا من o20 الى w20  الى o74 , w74  لانى ممكن ماستخدمهمش فى الورقة الا فى حين طلبة عن طريق ماكرو

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

رابط هذا التعليق
شارك

السلام عليكم ورحمة الله

 

أخي الكريم، أولا أشكر أخي الحبيب أبو حنين على تعديله للكود وجازاه الله عني خير الجزاء، وأذكّره أيضا أن له كل الحقوق في التغيير والتعديل في كل تدخلاتي بالمعادلات أو الأكواد على السواء...  وقد قمت بتعديل آخر على الكود المعدل (لم أستطع وضعه في الرد لسبب النصوص بالعربية التي تظهر برموز أخرى غير مفهومة) لذا تم تطبيقه ووضعه مباشرة في الملف المرفق...

 

أخوكم بن علية

 

test.rar

رابط هذا التعليق
شارك

السلام عليكم

انتظرتك كثير اخى بن على واخى ابو حنين لتكملة موضوعى

ارفقت لكم الورقة وبها صفحة العملاء وارجوا استدعاء الاسماء وحسابهم فى هذة الورقة

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

ويوجد فى الملف المرسل زر استدعاء الاسماء لم اقدر اكملة

7878.rar

تم تعديل بواسطه masrawy_online
رابط هذا التعليق
شارك

  • 4 weeks later...
  • 2 weeks later...

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information