Ali Mohamed Ali

جرب هذا وبعد هذه العملية يمكن نقل أى أسماء مباشرة من الإكسيل إلى التليفون مهما كان عددها نقل اسماء من الاكسل الى الهاتف.rar

جرب هذا excel.rar

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

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

هل ينفع معك هذا الملف ؟ علامات.xlsm

وهذا حل ثالث لإثراء الموضوع برجاء مراجعه معادله VLOOKUP.xlsx

ممكن ترسل الملف لكى يتسنى لنا المساعدة

السلام عليكم ممكن تجرب هذا الملف-فملفك لم يعمل أو يفتح معى به مشكلة وكلمة السر : 1234 Str2003.rar

جزاك الله كل خير وزادك من علمه ووفقك لما يحب ويرضاه

0

من فضلك ارسل الملف واشرح طلبك وفكرتك عليه حتى يتسن للزملاء مساعدتك؟

ممكن تجرب هذا برنامج العهدة لمصروفات التشغيل.rar

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

حاول أستاذ علي تجرب هذا الكود 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

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