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

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


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





ظهور رسالة عند فتح ملف

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



04-02-2020 09:13 مساء
صلاح الصغير
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 55
المشاركات : 354
الجنس : ذكر
تاريخ الميلاد : 13-10-1973
يتابعهم : 1
يتابعونه : 4
قوة السمعة : 297
عدد الإجابات: 1
 offline 

السلام عليكم 
عند فتح الملف المرفق تظهر رسالة خطا
اقوم بعمل اوك و تظهر رسالة اخرى اقوم بعمل اغلاق و يتم فتح الملف و العمل عليه عادى جدا
اريد معرفة سبب هذه الرسائل 
و هل اذا انا بفتح الملف ده من ملف اخر عن طريق كود 
هل يمكن تلافى هذه الرسالة فى حدث فتح ملف العمل
معلومة الملف لشركة efinance لقاعدة بيانات موظفين 
بعتذر بشدة مش هاقدر ارفعه
و شكرا
 
  message 2.png   تحميل png message 2.png مرات التحميل :(2)
الحجم :(331.064) KB
  message 1.png   تحميل png message 1.png مرات التحميل :(0)
الحجم :(106.315) KB
 


04-02-2020 09:16 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10439
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 0
يتابعونه : 533
قوة السمعة : 36372
عدد الإجابات: 252
 offline 
look/images/icons/i1.gif ظهور رسالة عند فتح ملف
وعليكم السلام
حاول حفظ المصنف باسم آخر في مسار آخر ، لربما يكون هناك مشكلة في الملف بسبب فتحه على جهاز آخر مسطب عليه نسخة أوفيس مختلفة

04-02-2020 09:20 مساء
مشاهدة مشاركة منفردة [2]
صلاح الصغير
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 55
المشاركات : 354
الجنس : ذكر
تاريخ الميلاد : 13-10-1973
يتابعهم : 1
يتابعونه : 4
قوة السمعة : 297
عدد الإجابات: 1
 offline 
look/images/icons/i1.gif ظهور رسالة عند فتح ملف
فعلا استاذ ياسر هو ده اللى انا بعمله
يس هل يمكن عمل ذلك من خلال كود فى ملف اخر
يعنى لما افتح الملف من ملف تانى عن طريق كود هل يمكن تجنب هذه الرسالة
و لما افتح ابقى احفظه
و شكرا

04-02-2020 09:28 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10439
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 0
يتابعونه : 533
قوة السمعة : 36372
عدد الإجابات: 252
 offline 
look/images/icons/i1.gif ظهور رسالة عند فتح ملف
جرب استخدام السطر التالي في أول الكود لديك
Application.DisplayAlerts=False

ولا تنسى أن تضع في نهاية الكود نفس السطر مع تغيير القيمة False إلى True

04-02-2020 09:47 مساء
مشاهدة مشاركة منفردة [4]
صلاح الصغير
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 55
المشاركات : 354
الجنس : ذكر
تاريخ الميلاد : 13-10-1973
يتابعهم : 1
يتابعونه : 4
قوة السمعة : 297
عدد الإجابات: 1
 offline 
look/images/icons/i1.gif ظهور رسالة عند فتح ملف
اليك الكود
Sub Put_Val()
'
Dim Arr()
Dim Arr_Target()
Dim Arr_Col_7()
Dim WB As Workbook
Dim Rng As Range
'================================================================

ScreenOff
Path = ThisWorkbook.Path & "\"
Set WB = Workbooks.Open(Filename:=Path & [C5])
'ÓØÑ ÈÏÇíÉ ÌÏæá ãáÝ ÇáãÕÏÑ
End_Row = Cells(Rows.Count, "c").End(xlUp).Row
'äØÇÞ ãáÝ ÇáãÕÏÑ ãä ÈÏÇíÉ ÚãæÏ ÇáÑÈØ (ÇáÑÞã ÇáÞæãì)
Arr = Range("c2:e" & End_Row)
WB.Close False
Set WB = Nothing
'================================================================

Set WB = Workbooks.Open(Filename:=Path & [C6])

'ÈÏÇíÉ ÚãæÏ ãáÝ ÇáåÏÝ
End_Row = Cells(Rows.Count, "A").End(xlUp).Row
'äØÇÝ ãáÝ ÇáåÏÝ
Arr_Target = Range("A2:g" & End_Row)
For x = LBound(Arr) To UBound(Arr)
    For Row = LBound(Arr_Target) To UBound(Arr_Target)
        If Arr_Target(Row, 1) = Arr(x, 1) Then
'           ÇáÌÒÁ ÇáËÇäì ãä ÇáÓØÑ ÈÚÏ ÇáíÓÇæì ÑÞã ÚãæÏ Ýì ãáÝ ÇáãÕÏÑ ÇáãÑÇÏ ÌáÈå(ÇáãÑÊÈ)
            Arr_Target(Row, 7) = Arr(x, 3)
        End If
        If Not Arr_Target(Row, 7) > 0 Then Arr_Target(Row, 7) = 0
    Next
Next
Arr_Col_7 = ColumnVector(Arr_Target, 7)
Arr_Col_7 = One_Dimension_C(Arr_Col_7)
Arr_Col_7(0) = Cells(1, "G")
Set Rng = Range("G1").Resize(UBound(Arr_Col_7) + 1)
Rng = Application.Transpose(Arr_Col_7)
Application.DisplayAlerts = False
WB.Close True
Application.DisplayAlerts = True
'================================================================
ScreenOn
Set WB = Nothing
'
Application.DisplayAlerts = True
End Sub

Sub BANK_Val()
'
Dim Arr()
Dim Arr_Target()
Dim Arr_Col_11()
Dim WB As Workbook
Dim Rng As Range
'================================================================
ScreenOff
Path = ThisWorkbook.Path & "\"
Set WB = Workbooks.Open(Filename:=Path & [C5])
'ÓØÑ ÈÏÇíÉ ÌÏæá ãáÝ ÇáãÕÏÑ
End_Row = Cells(Rows.Count, "c").End(xlUp).Row
'äØÇÞ ãáÝ ÇáãÕÏÑ ãä ÈÏÇíÉ ÚãæÏ ÇáÑÈØ (ÇáÑÞã ÇáÞæãì)
Arr = Range("c2:e" & End_Row)
WB.Close False
Set WB = Nothing
'================================================================
Set WB = Workbooks.Open(Filename:=Path & [C6])
'ÈÏÇíÉ ÚãæÏ ãáÝ ÇáåÏÝ
End_Row = Cells(Rows.Count, "A").End(xlUp).Row
'äØÇÝ ãáÝ ÇáåÏÝ
Arr_Target = Range("A2:K" & End_Row)
For x = LBound(Arr) To UBound(Arr)
    For Row = LBound(Arr_Target) To UBound(Arr_Target)
        If Arr_Target(Row, 1) = Arr(x, 1) Then
'           ÇáÌÒÁ ÇáËÇäì ãä ÇáÓØÑ ÈÚÏ ÇáíÓÇæì ÑÞã ÚãæÏ Ýì ãáÝ ÇáãÕÏÑ ÇáãÑÇÏ ÌáÈå(ÇáãÑÊÈ)
            Arr_Target(Row, 11) = Arr(x, 3)
        End If
        If Not Arr_Target(Row, 11) > 0 Then Arr_Target(Row, 11) = 0
    Next
Next
Arr_Col_11 = ColumnVector(Arr_Target, 11)
Arr_Col_11 = One_Dimension_C(Arr_Col_11)
Arr_Col_11(0) = Cells(1, "K")
Set Rng = Range("K1").Resize(UBound(Arr_Col_11) + 1)
Rng = Application.Transpose(Arr_Col_11)
Application.DisplayAlerts = False
WB.Close True

'================================================================
ScreenOn
Set WB = Nothing
'
End Sub

 

05-02-2020 09:02 صباحا
مشاهدة مشاركة منفردة [5]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10439
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 0
يتابعونه : 533
قوة السمعة : 36372
عدد الإجابات: 252
 offline 
look/images/icons/i1.gif ظهور رسالة عند فتح ملف
حاول إضافة الأسطر بنفسك .. سطر في بداية الكود وسطر في نهاية الكود

05-02-2020 03:08 مساء
مشاهدة مشاركة منفردة [6]
صلاح الصغير
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 55
المشاركات : 354
الجنس : ذكر
تاريخ الميلاد : 13-10-1973
يتابعهم : 1
يتابعونه : 4
قوة السمعة : 297
عدد الإجابات: 1
 offline 
look/images/icons/i1.gif ظهور رسالة عند فتح ملف
طيب قبل سطور ال dim و لا بعدها لانى جربت و الله




الكلمات الدلالية
ظهور ، رسالة ،


 










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

الساعة الآن 09:08 صباحا