Ali Mohamed Ali

بعد إذن الأستاذ محمد صالح جرب هذا الملف كود لجعل اللغة العربية في العامود الاول و اللغة الإنجليزية في العامود الثاني.xlsm

أستخدم ويندوز 7 وأوفيس 2007

أخى جرب هذا معادلة تلوين الخلية ذات القيمة الاكبر والقيمة الصغري.xlsx

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

تم الحل من قبل excel.rar

ممكن تجرب هذا ترحيل بيانات عدة خلايا الى ورقة اخرى.xlsx

تفضل لعله يكون المطلوب أمر ترحيل بيانات.xlsm

جرب هذا وبعد هذه العملية يمكن نقل أى أسماء مباشرة من الإكسيل إلى التليفون مهما كان عددها نقل اسماء من الاكسل الى الهاتف.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