Ali Mohamed Ali

ممكن ترسل لنا ملف العمل به كل أسئلتك وتوضيحاتك وان شاء الله تجد الحل ؟

حاول أستاذ علي تجرب هذا الكود Public Sub CopyrangeA() Dim firstrowDB As Long, lastrow As Long Dim arr1, arr2, i As Integer firstrowDB = 1 arr1 = Array("BJ", "BK") arr2 = Array("A", "B") For i = LBound(arr1) To UBound(arr1) With Sheets("SheetA") lastrow = Application.Max(3, .Cells(.Rows.Count, arr1(i)).End(xlUp).Row) .Range(.Cells(1, arr1(i)), .Cells(lastrow, arr1(i))).Copy Sheets("SheetB").Range(arr2(i) & firstrowDB).PasteSpecial xlPasteValues End With Next Application.CutCopyMode = False End Sub وممكن هذا الكود كمان Sub CopyPaste() Sheet1.Range("A:A").Copy Sheet2.Activate col = 1 Do Until Sheet2.Cells(1, col) = "" col = col + 1 Loop Sheet2.Cells(1, col).PasteSpecial xlPasteValues End Sub أو ربما ذلك Sub CopyPaste() Sheet1.Range("A:A").Copy Sheet2.Activate col = 1 Do Until Sheet2.Cells(1, col) = "" col = col + 1 Loop Sheet2.Cells(1, col).PasteSpecial xlPasteValues End Sub وأخر كودجميل Sub PasteSpecial_ValuesOnly() Worksheets("Sheet1").Range("A1:Z100").Copy 'PasteSpecial Values Only Worksheets("Sheet2").Range("A1").PasteSpecial Paste:=xlPasteValues 'Clear Clipboard (removes "marching ants" around your original data set) Application.CutCopyMode = False End Sub

تفضل جرب هذا ظ…ط³ط§ط¹ط¯ط©.rar

جزاك الله كل خير وبارك الله فيك دائما تبهرنا أستاذنا الكبير بأكوادك وأعمالك إلى التقدم والرقى دائما

جرب هذا برنامج محلات تجارية.rar

جرب هذا -لكن بالأكسيس وليس بالإكسيل 856793561_.mdb

يا ريت لو ممكن الحل بالمعادلات

شكرا جزيلا لك أخى سليم بس أنا عايز صفحة البحث (المرحل إليها) تأخذ البيانات من ورقتين وتبدأ من تحت رأس الجدول الأولى: من ورقة حركة الموردين والثانية: من ورقة حركة النقدية وبارك الله فيك

هذا الكود من اعمال الأستاذ زيزو العجوز ولكن أريد معرفة العطل الواقع عليه لأنه لا يقوم بالترحيل السلام عليكم ممكن المساعدة فى اتمام هذا البحث.rar

جرب هذا لعله المطلوب md.rar

شاكر لك أستاذنا الكبير زيزو وكل تقديرى للأستاذ العزيز سليم حاصبيا بارك الله لكما وهذا هو الملف بعد الإصلاح لتعم الإفادة للأخرين ويعمل الكود الأن بكل بساطة transfer.rar

ممكن بعد إذن أستاذنا الكبير زيزو سوف أرسل لك الملف ثانية بعد وضع الكود به ولكنه لا يعمل أرجو عمل اللازم من فضلك-بارك الله فيك ورعاك وأشكرك على سرعة الرد transfer.rar

للرفع-أرجو مساعدة الأستاذ بن علية حاجى والأستاذ سليم حاصبيا والأساتذة الخبراء

تفضل أخى العزيز معادلة تنقل مبلغ السلفة على اساس شرطين ( التاريخ + الرقم ).rar

السلام عليكم ورحمة الله وبركاته أرجو من الأخوة الزملاء والخبراء الأعزاء فى هذا المنتدى الكبير التكرم على مساعدتى فى هذه المعادلة المطلوب داخل الملف transfer.rar

هناك مشكلة فى هذا الملف من فضلك ارسله مرة أخرى

تفضل أخى تحويل التاريخ الى اسم الشهر.rar

بعد إذن أخى صديق هذا حل بمعادلة أخرى بسيطة وصغيرة طلب معادلة جلب بيانات.rar

من فضلك ارسل الملف

تفضل أخى لعله المطلوب تجربة.rar

جرب هذا لعله المطلوب ظ„ظ„ط±ظپط¹ ظ…ظ† ظپط¶ظ„ظƒظ….rar

وعليكم السلام ورحمة الله جرب هذا لعله المطلوب برنامج الشؤون 2.rar

ممكن تجرب هذا ربط القوائم المنسدلة.rar

هناك العديد من البرامج سأرسل لك الأن مجموعة منهم وكلمة السر هى :123 برنامج شئون الموظفين.rar وهذا برنامج أخربرنامج شؤون الموظفين.rar

وعليكم السلام ورحمة الله وبركاته هل بالنسبة للصفوف المخفية مهمة بالنسبة لك أم يمكن تجاهلها أو إلغائها ؟