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

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


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





سؤال عند حماية الورقة لايقوم بنقل البيانات

السلام عليكم ورحمة الله وبركاته , التحية والإحترام للمشرفين والاعضاء عندي ملف وعملت فيه نقل بيانات والامور تمام ولكن عند ..



06-04-2020 03:35 مساء
ابوبكر المتولي
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 02-04-2020
رقم العضوية : 18741
المشاركات : 23
الجنس : ذكر
تاريخ الميلاد : 13-11-1972
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 30
 offline 

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

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

تفضل أخي الكريم الصورة التالية فيها شرح لما يمكن أن تقوم به لحل المشكلة

2aL2B_Protect Unprotect Worksheet
 
 


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

TA6FP_Insert Code Into Excel-Egy Forum

 
 
 


07-04-2020 12:23 مساء
مشاهدة مشاركة منفردة [3]
ابوبكر المتولي
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 02-04-2020
رقم العضوية : 18741
المشاركات : 23
الجنس : ذكر
تاريخ الميلاد : 13-11-1972
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 30
 offline 
look/images/icons/i1.gif سؤال عند حماية الورقة لايقوم بنقل البيانات
Sub clear_Contents_in_Multiple_Sheets()

 A = MsgBox("do you copy the data  ? To continue choose (Yes). To cancel, choose (No)", 36, "Attention")
    If A = vbYes Then
    With ActiveSheet
 On Error Resume Next
Worksheets("reportinfo").Range("D3:D6,D7,D8,D10,D13,B8,B10,B11").SpecialCells(xlCellTypeConstants).ClearContents
Worksheets(" العطل ونقصان القيمة ").Range("F4:F6,C10:C15,l15,F17,B18,C18:C21,L4:M5,L10:L11").SpecialCells(xlCellTypeConstants).ClearContents
Worksheets("معلومات الحادث").Range("H4:H16").SpecialCells(xlCellTypeConstants).ClearContents
Worksheets("الاصلاحات ").Range("B4:B28,E4:E28").SpecialCells(xlCellTypeConstants).ClearContents
Worksheets("مسبب").Range("H4:H13").SpecialCells(xlCellTypeConstants).ClearContents
Worksheets("المتضررة").Range("G4:G21,D23:D28").SpecialCells(xlCellTypeConstants).ClearContents
Worksheets("الفاتورة").Range("H4:H9,G14:G15,L13,i13").SpecialCells(xlCellTypeConstants).ClearContents

Worksheets("الفاتورة ").Range("C5:C29,F4:F29,G4:G29,H4:H29").SpecialCells(xlCellTypeConstants).ClearContents
 On Error GoTo 0

 
   Call MsgBox("Done", mBox, "Attention")
    End With
    Cancel = False
    End If
 End Sub

هذ الكود الاول كود مسح البيانات
هذا الكود الثاني كود ترحيل البيانات لغيت العربي يلي فيه 

Sub Button1_Click()

 On Error Resume Next

Application.ScreenUpdating = False
azsh = Sheet16.Range("k500").End(xlUp).Row + 1
C = WorksheetFunction.CountIfs(Sheet16.Range("B5:B" & azsh), Sheet6.Range("B5") _
, Sheet16.Range("C5:C" & azsh), Sheet6.Range("C5"), Sheet16.Range("D5:D" & azsh) _
, Sheet6.Range("D5"), Sheet16.Range("E5:E" & azsh), Sheet6.Range("E5"), _
Sheet16.Range("F5:F" & azsh), Sheet6.Range("F5"), Sheet16.Range("G5:G" & azsh), _
Sheet6.Range("G5"), Sheet16.Range("H5:H" & azsh), Sheet6.Range("H5"), _
Sheet16.Range("I5:I" & azsh), Sheet6.Range("I5"), Sheet16.Range("J5:J" & azsh), _
Sheet6.Range("J5"), Sheet16.Range("K5:K" & azsh), Sheet6.Range("K5"))
If C > 0 Then
MsgBox ("This data has already been migrated"), vbDefaultButton1, "Wrg"
Exit Sub
End If
Sheet6.Range("b5:l5").Copy
Sheet16.Cells(azsh, 2).PasteSpecial Paste:=xlPasteValues
Application.ScreenUpdating = True
MsgBox "Done"
Sheet6.Range("b5:l5").SpecialCells(xlCellTypeConstants).ClearContents
Application.ScreenUpdating = True

azsh = Sheet16.Range("h500").End(xlUp).Row - 1
Sheet6.Range("b10:h10").Copy
Sheet18.Cells(azsh, 2).PasteSpecial Paste:=xlPasteValues
MsgBox "Done"
Sheet6.Range("b4:h4").SpecialCells(xlCellTypeConstants).ClearContents
Application.CutCopyMode = False
On Error GoTo 0
Application.ScreenUpdating = True
End sub

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

هل جربت وضع الكود بين السطرين كما أشرت لك ، من فضلك أرني محاولتك وما الخطأ الذي يظهر معك وفي أي سطر؟

07-04-2020 12:54 مساء
مشاهدة مشاركة منفردة [5]
ابوبكر المتولي
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 02-04-2020
رقم العضوية : 18741
المشاركات : 23
الجنس : ذكر
تاريخ الميلاد : 13-11-1972
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 30
 offline 
look/images/icons/i1.gif سؤال عند حماية الورقة لايقوم بنقل البيانات
Sub clear_Contents_in_Multiple_Sheets()

 A = MsgBox("do you copy the data  ? To continue choose (Yes). To cancel, choose (No)", 36, "Attention")
    If A = vbYes Then
    With ActiveSheet
 On Error Resume Next
Worksheets("reportinfo").Range("D3:D6,D7,D8,D10,D13,B8,B10,B11").SpecialCells(xlCellTypeConstants).ClearContents
Worksheets("ÇáÚØá æäÞÕÇä ÇاáÞíãÉ").Range("F4:F6,C10:C15,l15,F17,B18,C18:C21,L4:M5,L10:L11").SpecialCells(xlCellTypeConstants).ClearContents
Worksheets("ãÚáæãÇÊ ÇáÍÇÏË ").Range("H4:H16").SpecialCells(xlCellTypeConstants).ClearContents
Worksheets("ÇáÇÕáÇÍÇÊ ").Range("B4:B28,E4:E28").SpecialCells(xlCellTypeConstants).ClearContents
Worksheets("ãÓÈÈ").Range("H4:H13").SpecialCells(xlCellTypeConstants).ClearContents
Worksheets("ÇáãÊÖÑÑÉ").Range("G4:G21,D23:D28").SpecialCells(xlCellTypeConstants).ClearContents
Worksheets("ÇáÝÇÊæÑÉ").Range("H4:H9,G14:G15,L13,i13").SpecialCells(xlCellTypeConstants).ClearContents

Worksheets("ÇáÞØÚ ").Range("C5:C29,F4:F29,G4:G29,H4:H29").SpecialCells(xlCellTypeConstants).ClearContents
 On Error GoTo 0

 
   Call MsgBox("Done", mBox, "Attention")
    End With
    Cancel = False
    End If
 End Sub


مشيت حسب التعليمات ولم تنجح ادراج الكود بالعربي , بالاول قمت بتحديد الكود من عندي ثم لصقته على الصفحة ثم قمت بتحديده وضغطت على ادراج كود 

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




الكلمات الدلالية
سؤال ، حماية ، الورقة ، لايقوم ، بنقل ، البيانات ،


 










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

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