عبدالفتاح في بي اكسيل

اقرأي التعليق جيدا اضيفي ورقة جديدة وانظري كيف ستكون الورقة

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

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

اختي الكريمة لو تناولت كل نقطة لوحدها لوجدتي تفاعل اكثر من الاعضاء ولماذا لا تضعي النقاط على صورة نتائج عند اصدار ورقة جديدة كيف تكون بصراحة نقاط عديدة وبعضها غير واضح .

جرب هذا الماكرو لعله يفيدك Sub ActivateWordTransferData() 'تحديد المدى كما في ورقة الاكسيل مع مراعاة اسم الورقة Worksheets("Sheet1").Range("c1:g200").Copy Dim wdapp As Object, wddoc As Object Dim strdocname As String On Error Resume Next Set wdapp = GetObject(, "Word.Application") If Err.Number = 429 Then Err.Clear Set wdapp = CreateObject("Word.Application") End If wdapp.Visible = True 'مكان ملف الوورد في الدرايف strdocname = "C:\Users\alhagag\Desktop\ww.docx" If Dir(strdocname) = "" Then MsgBox "The file " & strdocname & vbCrLf & "was not found " & vbCrLf & "C:\ww\.", vbExclamation, "The document does not exist." Exit Sub End If wdapp.Activate Set wddoc = wdapp.Documents(strdocname) If wddoc Is Nothing Then Set wddoc = wdapp.Documents.Open(strdocname) wddoc.Activate wddoc.Range.Paste wddoc.Save wdapp.Quit Set wddoc = Nothing Set wdapp = Nothing Application.CutCopyMode = False End Sub

اخي عبدالله عندي فضول عندما يتم حدف البيانات المكررة هل يتم تكرار البيانات في كل الاوراق ام في نفس الورقة والحدف يتم على اساس اقدم تاريخ او احدث تاريخ او اقدم ادخال او احدث ادخال ام لا يوجد فرق ؟

على اي اساس يتم حدف البيانات المكررة هل هناك عمود محدد يتم الاستناد عليه لم لا تزود الاساتذة بكامل احتياجاتك

لماذا لا تقوم بدمجهم في نفس الملف لا اعتقد ان هناك حاجة لنقلها من ملف لاخر

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

بعد اذن استاذ محمد اخي مصطفى هل جربت تغيير اعدادات التاريخ من الويندوز قد تكون هي السبب مع هذا مشكلة غريبة لماذا مع الرقم 12 يجب ان تكون المشكلة بتنسيق التاريخ بالكامل عند كتابة اي يوم عموما هذه محاولة Private Sub TextBox1_AfterUpdate() Dim sdate As Date sdate = DateValue(Val(Me.TextBox1.Value) & "/" & Month(Date)) TextBox1.Value = Format(sdate, "yyyy/mm/dd") End Sub

تاكد من ان هذا الخيار غير مؤشر عليه من خيارات ملف اكسيل قد تكون المشكلة منه

ملفك يجب اعادة تنسيقه خصوصا الغاء دمج الخلايا هذه الاكواد تعمل معي ان لم تعمل معك بسبب الخلايا المدمجة ثم انك ارفقت ملف دون ان توضح اي شيء هل علينا فك الغاز لحل هكذا مواضيع بعد هذه المقدمة هذاين كودين للطباعة والترحيل مع مراعة تسمية الاوراق بالانجليزي الفاتورة INVOICE والورقة المرحل اليها DATA Sub CCTO() Dim LR As Long, i As Long, cls cls = Array("a10", "b11", "b13", "b14") With Sheets("data") LR = WorksheetFunction.Max(2, .Range("A" & Rows.Count).End(xlUp).Row + 1) For i = LBound(cls) To UBound(cls) .Cells(LR, i + 1).Value = Sheets("invoice").Range(cls(i)).Value Next i End With With Sheets("INVOICE") .Range("A10").ClearContents .Range("A16:A25").ClearContents .Range("B11").ClearContents .Range("B13").ClearContents .Range("B14").ClearContents .Range("B16:B25").ClearContents End With End Sub Sub PPRINT() ActiveSheet.PageSetup.PrintArea = "$A$1:$E$31" ActiveSheet.Range("A1:E31").PrintOut End Sub

لايمكن عمل فرز اوفلتر والشيت محمي يتم فك الحماية ثم الفلترة وتقوم بالحماية بعد الفلترة

جرب بنسخ جميع بياناتك في ملف جديد لعل المشكلة من الملف

غير واضح السؤال😕

ارفق ملف وضع النتيجة المتوقعة حتى تجد المساعدة

اخي الكريم على الرغم انه ليس لدي تجربة في مشاركة الملفات ولكن من الكود لا يوجد دليل الملف الذي تم مشاركته عموما جرب هذا السطر ActiveWorkbook.SaveAs FileName, , , , , , xlShared يجب الاعلان عن متغير لدليل الملف ثم تقوم بتعيينه

جرب هذا الملف بحث.xlsm

جرب هذا الكود كبداية Sheets("Sheet1").Range("A1:d200").Printout

اخي الكريم انا استخدم اوفيس 2019 وقمت بمراجعة القيم في معادلتك مطابقة تماما وتعمل بدون مشاكل ساترك المجال للاساتذة الاخرين قد يجدون لك حل

لتجد تفاعل من الاعضاء يرجى شرح شروط هذه الدالة ما هي الشروط الواجب توافرها حتى تعطى قيم صحيحة

طلب غير مفهوم على الاطلاق ولماذا وضع الارقام في مربعات نص بدل الخلايا ؟🤔

اذا كانت بياناتك قليلة فاستخدم معادلة المصفوفة بالضغط ctrl+shift+enter =IF(ISNUMBER(MATCH($A4&C$1,sheet1!$A$1:$A$7&sheet1!$B$1:$B$7,0)),"يوم المبيت","") اما اذا اردت كود فلا حاجة للحلقات التكرارية Sub ctr() With Range("B2:G6") .Formula = "=IF(ISNUMBER(MATCH($A2&B$1,SHEET1!$A$1:$A$7&SHEET1!$B$1:$B$7,0)),""يوم المبيت"","""")" .FormulaArray = .FormulaR1C1 .Formula=.value End With End Sub

قم بادراج موديول في الملف التجميعي وضع الكود به عندما تقوم بتحديد الملفات من المستعرض ثم الضغط على فتح سيقوم بسحب البيانات منها دون فتح الملفات

جرب هذا الكود بمجرد كتابة الرقم سيتم الفرز تلقائيا Private Sub Worksheet_Change(ByVal Target As Range) Dim SR As Long If Intersect(Target, Range("F:F")) Is Nothing Then Exit Sub With Worksheets("Sheet1") SR = .Cells(.Rows.Count, "F").End(xlUp).Row .Range("B4:F" & SR).Sort Key1:=.Range("F4"), Order1:=xlDescending, Header:=xlYes End With End Sub SORT.xlsm