أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
ashraf_hertlion hassona229-- لا تميز خلال هذه الفترة YasserKhalil مطلوب تعديل الكود للطباعة اكسيل اسئله واجابات


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





اريد حماية خلايا مع وجود كود ترحيل فى الشيت

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


موضوع مغلق

الصفحة 1 من 2 < 1 2 > الأخيرة »


23-08-2020 02:54 مساء
moonlight
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 12-04-2018
رقم العضوية : 5471
المشاركات : 44
الدولة : egypt
الجنس : ذكر
تاريخ الميلاد : 23-7-1977
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 47
 offline 

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

اسم المستخدم فى الشيت المرفق / emad


كلمة المرور / 1977
 
 
  شيت فاتورة مبيعات A.rar   تحميل rar مرات التحميل :(7)
الحجم :(269.358) KB



أفضل إجابة مقدمة من ali mohamed ali وهي:
السلام عليكم ... على ما أعتقد هذا ما يقصده الأستاذ ياسر , ليصبح الكود كالتالى :

Sub save()
'
' save Macro
' save
'
    Sheets("
ملخص مبيعات").Select
    Range("A6:I12").Select

Sheets("ملخص مبيعات").Unprotect
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Sheets("
فاتورة").Select
    Range("I8:Q14").Select
    Selection.Copy
    Sheets("
ملخص مبيعات").Select
    Range("A6").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets(
فاتورة").Select
    ActiveWindow.SmallScroll ToRight:=5
    Range("C8:C12").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("E8:E12").Select
    Selection.ClearContents
    Range("G13").Select
    Selection.ClearContents
    Range("D4:G4").Select
    Selection.ClearContents
    Range("D5:G5").Select


   Sheets("ملخص مبيعات").Protect
  Selection.ClearContents
End Sub

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
عرض الإجابة




23-08-2020 03:36 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif اريد حماية خلايا مع وجود كود ترحيل فى الشيت
وعليكم السلام أخي الكريم
يجب أن يحتوي الكود في هذه الحالة على سطرين أحدهما في بداية الكود ليقوم بفك الحماية عن ورقة العمل التي سيتم الترحيل إليها ، والسطر في نهاية الكود لإعادة الحماية مرة أخرى.

24-08-2020 10:29 صباحا
مشاهدة مشاركة منفردة [2]
moonlight
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 12-04-2018
رقم العضوية : 5471
المشاركات : 44
الدولة : egypt
الجنس : ذكر
تاريخ الميلاد : 23-7-1977
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 47
 offline 
look/images/icons/i1.gif اريد حماية خلايا مع وجود كود ترحيل فى الشيت
مشكور استاذ ياسر على الاستجابة السريعة معلش السطر الاول فى الكود اللى حضرتك بتقول عليه سطر فاضى ولا يكتب فيه شىء يفك الحماية ولو فى حاجة تكتب ارجو المساعدة علشان انا عملت الكود من فيديو اخ كان شارح عمل كود عن طريق تسجيل الماكرو وانا عملت الشرح على الشيت بتاعتى والحمد لله مشى الحال معايا لذا ارجو المساعدة فى هذه الجزئية جزاك الله خيرا

24-08-2020 01:25 مساء
مشاهدة مشاركة منفردة [3]
ali mohamed ali
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1769
الدولة : مصر
الجنس : ذكر
الدعوات : 2
يتابعهم : 0
يتابعونه : 68
قوة السمعة : 9642
عدد الإجابات: 47
 offline 
look/images/icons/i1.gif اريد حماية خلايا مع وجود كود ترحيل فى الشيت
السلام عليكم ... على ما أعتقد هذا ما يقصده الأستاذ ياسر , ليصبح الكود كالتالى :

Sub save()
'
' save Macro
' save
'
    Sheets("
ملخص مبيعات").Select
    Range("A6:I12").Select

Sheets("ملخص مبيعات").Unprotect
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Sheets("
فاتورة").Select
    Range("I8:Q14").Select
    Selection.Copy
    Sheets("
ملخص مبيعات").Select
    Range("A6").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets(
فاتورة").Select
    ActiveWindow.SmallScroll ToRight:=5
    Range("C8:C12").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("E8:E12").Select
    Selection.ClearContents
    Range("G13").Select
    Selection.ClearContents
    Range("D4:G4").Select
    Selection.ClearContents
    Range("D5:G5").Select


   Sheets("ملخص مبيعات").Protect
  Selection.ClearContents
End Sub

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  شيت فاتورة مبيعا1ت A.xlsm   تحميل xlsm مرات التحميل :(3)
الحجم :(282.031) KB

توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله

24-08-2020 01:34 مساء
مشاهدة مشاركة منفردة [4]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif اريد حماية خلايا مع وجود كود ترحيل فى الشيت
جزاك الله خيراً أخي العزيز علي ومشكور على التفاعل المثمر.

26-08-2020 05:33 مساء
مشاهدة مشاركة منفردة [5]
moonlight
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 12-04-2018
رقم العضوية : 5471
المشاركات : 44
الدولة : egypt
الجنس : ذكر
تاريخ الميلاد : 23-7-1977
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 47
 offline 
look/images/icons/i1.gif اريد حماية خلايا مع وجود كود ترحيل فى الشيت
جزاكم الله جميعا ً خير الجزاء 

30-08-2020 05:10 مساء
مشاهدة مشاركة منفردة [6]
moonlight
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 12-04-2018
رقم العضوية : 5471
المشاركات : 44
الدولة : egypt
الجنس : ذكر
تاريخ الميلاد : 23-7-1977
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 47
 offline 
look/images/icons/i1.gif اريد حماية خلايا مع وجود كود ترحيل فى الشيت
السلام عليكم
عاوز المساعدة من السادة الافاضل  فى مشكلة فى الشيت  لما حاجة ترجع من البيع ازاى ارجعها فى الشيت بحيث يزيد المخزون ويقل الربح بالقطعة المرتجعة ولكم جزيل والتقدير


الصفحة 1 من 2 < 1 2 > الأخيرة »


الكلمات الدلالية
ترحيل ، اريد ، حماية ، خلايا ، وجود ، الشيت ،


 










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

الساعة الآن 07:09 مساء