2saad

شكرا علي رد حضرتك بس أنا وضعت معادلة في الملف المرفق الجديد في في عمود الفصل في ورقة saad ولما برحل البيانات الي data بيترحل عمود الفصل خطأ الملف المرفق مرة ثانيةAHMAD - MH-2.xlsm

معلش فيه خطأ صغير في هذا الكود ..ارجو تصحيحه ...المطلوب بالمرفق AHMAD - MH-2.xlsm

معلش حضرتك لقلة خبرتي ...وهذا لشرح المطلوب الملف المرفق مكون من ورقتين عمل saad و data وعند الضغط عل زر الترحيل الموجود في الورقة data يتم ترحيل البيانات من الأعمدة المحددة من ورقة العمل saad الي ورقة العمل data المشكلة ان الكود ده يمسح البيانات المرحلة القديمة ويحل محلها الجديدة في النطاق المحدد بالكود sh.Range("C10:L1000").ClearContents وكمان يمسح باقي البيانات في الأAHMAD.xlsmعمدة الأخري M و N و O انا عايزه يمسح النطاق المحدد فقط يعني من C10:L1000 وباقي البيانات الموجودة في الأعمدة M و N و O تكون ثابتة لا تمسح

اخواني اعضاء المنتدي الكرام بعد سلام الله عليكم ورحمة الله وبركاته عايز اعرف ايه الخطأ اللي في الكود ده في الجزئية دي بالتحديد ( sh.Range("C10:L1000").ClearContents ) كلما انفذ الكود عندي يمسح حتي اللي بعد L1000 يعني يمسح M و N و O..... وشكرا لكم جميعا Sub استدعاء_كنترول4_الي_ملف_نصف_العام_صف_رابع() Dim arr As Variant Dim temp As Variant Dim cr As Variant Dim lr As Long Dim i As Long Dim j As Long Dim C As Long Dim WS As Worksheet Dim sh As Worksheet Dim myArray, targt, targt2 Set Main = Sheets("كنترول4") Set sh = Sheets("ملف وتحريري نصف العام صف رابع") targt = sh.Range("M5").Value & "*" targt2 = sh.Range("M6").Value & "*" 'targt = "ذك*" 'targt2 = "نا*" '= = = = = = = = = = = = ' شيت الهدف والمدى المطلوب مسحه sh.Range("C10:L1000").ClearContents ' عدد الصفوف في ورقة المصدر lr = Main.Cells(Rows.Count, 4).End(xlUp).Row 'متغير اسم ورقة المصدرومدى البيانات بها arr = Main.Range("A10:R" & lr).Value ReDim temp(1 To UBound(arr, 1), 1 To UBound(arr, 2)) 'ارقام الاعمده المطلوب نقلها cr = Array(2, 4, 5, 7, 9, 10, 11, 12, 15) j = 1 For i = LBound(arr, 1) To UBound(arr, 1) '================== 'اذا أردت ان يستدعي بيانات بدون شرط 'ماعليك الا ان تجعل السطر البرمجي الموجود 'اسفل هذا السطر لا يعمل '================== 'رقم عمود الذي سيتم البحث فيه 'If arr(i, 😎 Like targt & "*" _ And arr(i, 89) Like targt2 & "*" Then '================== temp(j, 1) = j For C = LBound(cr) To UBound(cr) temp(j, C + 2) = arr(i, cr(C)) Next C j = j + 1 '================== '================== Next i With sh 'خليه بدايه اللصق في شيت الهدف .Range("C10").Resize(j - 1, UBound(temp, 2)).Value = temp End With End Sub

السلام عليكم ورحمة الله وبركاته إخواني أعضاء المنتدي الكرام..عندي ملف مرفق فيه كود لتحويل ة الي ه وتحويل أ الي ا وتحويل ي الي ى محتاج ازود عليه ازالة المسافة بين كلمة ( عبد ) والاسم الذي ياتي بعدها..هل هذا ممكن ؟وشكرا لكم جميعا كود تغيير الحروف أ الي ا وة الي ه وى الي ي.rar

تمام بارك الله فيك علي المجهود الرائع

مش عارف اقول لحضرتك ايه بارك الله فيك وأكثر الله من أمثالك وجعله في ميزان حسناتك علي هذا المجهود الرائع وليس بغريب علي هذا المنتدي العريق بس انا نفسي أعرف أزاي الصورة بتترحل الي الشهادة هل عن طريق معادلة ولا ايه؟ ولا حضرتك وضعت اطار ( shape ) في المكان اللي انا عايز تترحل اليه الصور في الشهادات ؟ عايز افهم لو تكرمت معلش انا بتعب حضرتك معاي

أخواني أعضاء المندي الكرام الذين تعلمت منهم الكثير والكثير بارك الله فيهم وجعله في ميزان حسناتهم لو سمحتم عندي شيت به بيانات تلاميذ ونموذج 3شهادات والكود يعمل جيدا ولكني اريد ان ارفق بكل شهادة صورة للطالب بناء علي رقم الجلوس في الخلية q9 ، q26 ، q43 فمحتاج كود لذلك وشكرا لكم جميعاشهادات صف ثالث.rar

اخواني اعضاء المنتدي الكرام بعد سلام الله عليكم ورحمة الله وبركاته محتاج كود لجلب الصور من فولدر مهما تغير مكانه علي الجهاز او علي جهاز اخر ولكم جزيل الشكر ووافر الاحترام

شكرا جزيلا وجعله الله في ميزان حسناتك

لو سمحتم انا علي كنترول شيت مدرسي ومحتاج التحقق من صحة البيانت المدخلة الشرط : لو الطالب حصل علي أكبر من 4 يعطيني رسالة خطأ في القيمة المدخلة ولو الطالب كان غائب تكتب ( غ ) ولا يعطيني رسالة خطأ ولكم جزيل الشكر ووافر الاحترام 0

تفضل __سجل المدرسة2022.xls

شكرا لرد حضرتك عملت اللي حضرتك قلت عليه ولم يحدث شئ

السلام عليكم .. لابد من التحية عند بدء أى مشاركة,,,محتاج كود يحدث البيانات تلقائيا بمعني عندما اعدل في (ملف نصف العام صف رابع ) تتغير البيانات تلقائيا في (شيت صف رابع ) ولكم جزيل الشكر ووافر اللحتراماعمال سنة.xlsm

إخواني أعضاء المنتدي الكرام الذي تعلمت منه الكثير بعد سلام الله عليكم ورحمة الله وبركاته هذا البرنامج من عمل أحد اعضاء المنتدي الكرام وهم مخصص لتوزيع التلاميذ علي الفصول حسب (مذكر ومؤنث ) كما في القائمة المنسدلة ( N5 ) ارجو التعديل علي الكود بحيث يرحل البيانات علي حسب الفصل كما في القائمة المنسدلة ( O5) يعني كلما اضغط علي الفصل يعطيني التلاميذ الموجودين بالفصل وشكراتوزيع الفصول باختيار النوع وبتساوي الدرجات1.xls

شكرا جزيلا استاذنا الفاضل

اعضاء المنتدي الكرام بعد سلام الله عليكم ورحمة الله وبركاته الملف المرفق محتاج اجمع الشيتات ( كي جي1 و1 و2 ) في في شيت (مجمع الصفوف) والكود موجود ولكن فيه خطأ ومحتاج لتصحيح الخطأ ولكم جزيل الشكر ووافر الاحتراممجمع الصفوف.xlsm

بارك الله فيك واكثر الله من امثالك ..بس لي ملحوظة ...عند الترحيل في عمود الفصل مكتوب ارقام وليس اسم الفصل

شكرا لرد حضرتك ولكن لم ينفع

السادة اعضاء المنتدي الذي تعلمنا منه كثيرا بعد سلام الله عليكم ورحمة الله وبركاته..نرجو من حضراتكم تصحيح الخطأ في هذا الكود المرفق ... ولكم جزيل الشكر ووافر الاحترام انتبه من فضلك ... مشاركة مكررة .. تــــم بالفعل حذف المشاركة الأخرى هذا هو الكود وهذه رسالة الخطأ الذى تظهر , يجب عليك التوضيح هكذا Sub Test() Dim a, ws As Worksheet, sh As Worksheet, s As String, i As Long, ii As Long, k As Long Application.ScreenUpdating = False Set ws = ThisWorkbook.Worksheets("مجمع الشيتات") Set sh = ThisWorkbook.Worksheets("قوائم الفصول") With ws a = .Range("C10:P" & .Cells(Rows.Count, 3).End(xlUp).Row).Value a = Application.Index(d, Evaluate("ROW(4:" & UBound(d, 4) & ")"), [{3,4,5,7,9,11,12,15,16}]) ReDim b(1 To UBound(a, 1), 1 To UBound(a, 2)) s = sh.Range("F4").Value sh.Range("C10").CurrentRegion.Offset(1).ClearContents If IsEmpty(s) Then Exit Sub sh.Columns(3).NumberFormat = "@" sh.Columns(8).NumberFormat = "@" For i = LBound(a, 1) To UBound(a, 1) If a(i, 7) = s Then k = k + 1 b(k, 1) = k For ii = 3 To UBound(a, 2) b(k, ii) = a(i, ii) Next ii End If Next i If k > 0 Then sh.Range("C10").Resize(k, UBound(d, 4)).Value = b End With End Sub مجمع الشيتات.rar

بارك الله فيك وأكثر الله من امثالك

اخواني اعضاء المندي الكرام بعد سلام الله عليكم ورحمة الله وبركاته اريد ان اعرف ما الخطأ في كود الترحيل هذا ولكم جزيل الشكر ووافر الاحترامالصف الأول.xlsm

شكرا جزيلا يا استاذ ابراهيم ..وربنا يجزيك خير

اخواني اعضاء المنتدي الكرام بعد سلام الله عليكم ورحمة الله وبركاته اريد التعديل علي هذا الكود بحيث نضيف عليه السن في اول اكتوبر وهو من عمل الاخ الفاضل الاستاذ ابراهيم ...وشكرا جزيلا الرقم _القومى.xlsm

لو سمحتم محتاج اعرف ايه المقصود ( e5 ) في هذا الكودتوزيع اللجان.xls