حسونة حسين

السلام عليكم ورحمة الله وبركاته وبها نبدأ

@دم الغزال

استبدل هذا السطر

Application.SendKeys ("{ESC 2}")

بهذا السطر

Application.CutCopyMode = False

وان استمر الخطأ ارفق ملف للعمل عليه

هذا الموضوع مخالف لقوانين المنتدي

××××××××

اكثر من طلب في موضوع واحد.

يجب أن يكون عنوان المشاركة يدل على محتواها
××××××××
يغلق
××××××××
الإدارة

وعليكم السلام ورحمه الله وبركاته

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

تفضل

برنامج-حضانة

سجل-قيد-التلاميذ-لجميع-المراحل-رياض-أطفال-ابتدائي-إعدادي

برنامج-تسجيل-بيانات-لروضة-أطفال-الاصدار-الثانى

اخي @ss20_a2

قبل كلمه 

Function

ضع 

Ptrsafe

لتصبح هكذا

Declare PtrSafe Function

تفضل اخي

عدل هذا السطر

If (X.Row < 600 And X.Column < 12) Then

الى

If (X.Row >= 100 and X.Row <= 120 And X.Column < 4) Then

وعليكم السلام ورحمه الله وبركاته

اخي @ابوعلي الحبيب

الكود الخاص بك في المشاركه الاولي ليس به اي مشكله  لكن تأكد ان المسار الذي تحفظ به الصورة موجود

وهذا كود اخر بسيط سوف يقوم بإنشاء المسار ان لم يكن موجود ويحفظ الصورة

Option Explicit
Private Declare PtrSafe Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal DirPath As String) As Boolean
Sub Export_Range_As_Picture()
    Dim Ws As Worksheet, StrToFolder2 As String
    Dim oRng As Range, sPath As String, oChart As ChartObject

    Set Ws = ActiveSheet
    Application.ScreenUpdating = False
    StrToFolder2 = "D:\pic\"
    MakeSureDirectoryPathExists StrToFolder2
    sPath = StrToFolder2 & Ws.Range("a1").Value & "." & "jpg"
    Set oRng = Ws.Range("A3:H17")
    oRng.CopyPicture xlScreen, xlPicture
    Set oChart = Ws.ChartObjects.Add(Left:=0, Top:=0, Width:=oRng.Width * 1, Height:=oRng.Height * 1)
    With oChart
        .Activate
        .Chart.Paste
        .Chart.Export Filename:=sPath
        .Delete
    End With
    Application.ScreenUpdating = True
End Sub

الحمد لله تم المطلوب اخى @ehabaf2

وعليكم السلام ورحمه الله وبركاته

جرب هذا التعديل اخي @ehabaf2

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim X As Range
    For Each X In Target
        '  600 هو اخر سطر لعمل الكود
        'L  هو العامود  column 12
        If (X.Row < 600 And X.Column < 12) Then
            If ActiveSheet.ProtectContents = True And X.Value <> "" Then X.Offset(0, 1).Select
        End If
    Next
End Sub

عدم التعديل فى اسطر محددة.xlsb

السلام عليكم ورحمة الله وبركاته وبها نبدأ

لطفا ارفق ملف 

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

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

بالنسبه لطلبك الأول هو موجود فعليا في البند رقم ٢٣

23. ممنوع نهائيا وبشكل قاطع تكرار الموضوع نفسه أو فتح موضوع جديد للمطالبة برد في موضوع سابق، كما يمنع منعا باتا ذكر أكثر من سؤال في نفس الموضوع، وهذا لكي يسهل البحث والحصول على المعلومة على من بعدك

بالنسبه لطلبك الثانى هو موجود فعليا في البند رقم ١٩

19. تجنب نشر بيانات حقيقية يخشى نشرها ويمكن أن تطلب حذفها لاحقاً

هذا الموضوع مخالف لقوانين المنتدي

××××××××

موضوع مكرر
××××××××
يغلق
××××××××
الإدارة

السلام عليكم ورحمة الله وبركاته وبها نبدأ

لطفا ارفق ملف

اخي @2saad

كل موضوع له طلب واحد

تم غلق الموضوع 

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

 Portable Ontrack EasyRecovery Technician 16.0.0.2 Multilingual

السلام عليكم ورحمة الله وبركاته وبها نبدأ 

الشيت محمي فك الحمايه عن الشيت اولا

هذا الموضوع مخالف لقوانين المنتدي

××××××××

يخالف حقوق الملكية الفكرية
××××××××
يغلق
××××××××
الإدارة

تفضل

454545(2).xlsx

تفضل اخى 

العدد ٩١

New ورقة عمل Microsoft Excel.xlsx

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

تم غلق الموضوع لانه مكرر

رابط الموضوع 

تم غلق الموضوع للتكرار

رابط الموضوع 

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

تم غلق الموضوع

لتكرار المواضيع

موضوعك الاول هنا

موضوعك الثاني هنا

موضوع الثالث هذا الموضوع

وكلهم لنفس الطلب

السلام عليكم ورحمة الله وبركاته وبها نبدأ اي موضوع

لطفا ارفق ملف

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

تفضل اخي

تم تحديث الموضوع

اطلع عليه ستجد حل مشكلتك ان شاء الله

تم اضافه مرفق في المشاركه الاساسيه لمعالجة مشاكل التشغيل التي تقابل الإخوة الاعضاء