عبد الفتاح كيرة

كيف يمكن إظهار قيمة ما بداخل القائمة فى هذه الخلية بالمعادلات و ليس بالأكواد ماذا تقصد بقيمة ما ؟

تفضل بالمرفقات ترحيل 3بيانات.zip

نشكرك أستاذ نادر بارك الله فيك

تفضل 4 أسطر فارغة بعد كل 35 صفا ترحيل -بيانات.zip

تفضل هذا ترحيل ناجحين لكن الورقة الأولى تحتاج تنظيم من جانبك Sub Macro1() ' ' Macro1 ماكرو ' Dim lastR As Long Dim x As Integer x = 1 lastR = Sheets("total").Range("b" & Rows.Count).End(xlUp).Row ' Application.ScreenUpdating = False Rows("12:12").Select Selection.AutoFilter ActiveSheet.Range("$A$12:$FT$" & lastR).AutoFilter Field:=73, Criteria1:="ناجح" lastR = Sheets("total").Range("b" & Rows.Count).End(xlUp).Row For i = 13 To lastR Step 35 Sheets("ناجح" & x).Cells.Clear Sheets("total").Range("$A$" & i & ":$FT$" & i + 35).SpecialCells(xlCellTypeVisible).Copy Sheets("ناجح" & x).Range("a13") x = x + 1 Next i Selection.AutoFilter Application.ScreenUpdating = True End Sub ترحيل بيانات kemas.zip

سبحان الله نفس عبارتك هذه قلتها لأستاذى خبور منذ أسابيع قليلة وهاهو يراقبنا من بعد إن شاء الله يقال لك امثال ذلك عما قريب وفقك الله

لا أفهم لماذا تضع فراغات بالمدى ؟ هذا كود لمسح أية فراغات من المدى Private Sub UserForm_Initialize() On Error Resume Next Dim mycol As Collection Dim myrng As Range Set mycol = New Collection For Each myrng In Range("a1:a300") mycol.Add myrng.Value, myrng.Text Next myrng For i = 1 To mycol.Count If mycol.Item(i) = "" Then mycol.Remove i Me.ComboBox1.AddItem mycol(i) Next i End Sub المرفقات yehia_test-kemas2.zip

تفضل يا أخى بدون تكرار yehia_test-kemas.zip

أستغفر الله يا أخى فكلنا هنا متعلمون بارك الله فيك

أخانا أبا أحمد ما شاء الله حل جيد يمكنك إضافة السطر التالى السطر رقم 8 Private Sub Kh_Start(iColumn As Integer) Dim RCount As Long, C As Integer C = Cells(iRow, Columns.Count).End(xlToLeft).Column + 2 With MyRng RCount = .Rows.Count Cells(iRow, C).Resize(RCount, 1).Value = _ .Cells(1, iColumn).Resize(RCount, 1).Value []Sheets(2).Range(Cells(iRow, C), Cells(iRow, C + 1)).MergeCells = True[ End With End Sub مع إلغاء الأسطر التى أضفتها shehadat-kemas.zip

السلام عليكم أخى وردالخال طبعا من الأفضل إرسال ملف لكن مبدئيا يبدو أن لديك لبسا فى فهم عمل الدالة فالدالة لا تطلب القيم من الأعمدة التى فى النطاق الدالة تفعل الآتى تبحث عن القيمة المطلوبة فى العمود الأول من النطاق فإذا وجدت القيمة فى العمود الأول تتحرك فى نفس الصف إلى عمود تحدده أنت انظر هذا الفديو

عليكم السلام و رحمة الله أحسنت أخى yamz

جرب المرفق 1-kemas.zip

الحمد لله أحبابنا كفونا مئونة الرد معذرة للانشغال بارك الله فيكم

شكرا أستاذ أحمد والله سطر عظيم من الكود إن شاء الله أستفيد منه كثيرا جزاك الله خيرا اقتراحك على السائل هو المنطقى فعلا

شكرا أستاذ أحمد

كيف يظهر مثلا اسم محمد و يوجد ثلاثة بنفس الاسم ؟

أستاذ نادر شكرا لكلامك الطيب و هذا من كريم أخلاقك بارك الله فيك

بارك الله فيك أخى

جزاك الله خيرا و سدد خطاك

أعتقد أن سبب بطء هذا الملف هو كثرة الوظائف function الموجودة بالكود ما دمت تعتمد على المعادلات لماذا لا تكتفى بها مع الاعتماد على الوظائف فى إكسل

مرحبا إخوتى الكرام أخى قصى دعوات مباركات جعل الله لك مثلها ووفقك لكل خير و جزاك عنى خيرا أخى خفيف الظل أحمد أبو عبد الله شكرا و الحمد لله أن الفكرة و صلت و شكرا على التذكير بالمباراة سأشاهدها بإذن الله أخى ولد المجرب شكرا لمرورك و كلامك الطيب أخى abo_alaa شكرا شكرا و ربنا ييسر الأمور لتنفيذ ما ذكرت أخى zz2 نفعك الله بها و بارك لك فيها == جزاكم الله خيرا جميعا

السلام عليكم هذا بقية لشرح عمل الشهادات بدالة vlookup و هو خاص بجزئية تكرار الشهادة فى صفحة واحدة شرح عمل الشهادات بدالة vlookup.zip

جارى رفع الفديو المطلوب أخ أحمد انتظرنا

الأخ أحمد أسد إن شاء الله قريبا