نجوم المشاركات

أخى الكريم المنتدى تعليمى من المقام الأول وليس لتقديم البرامج الجاهزة .... عليك بإنشاء ما تريد بنفسك واذا تعثرت فى جزئية فعليك برفعها هنا والتنويه اليها وشكراً !!!

انتبه من فضلك فقد نبهنا كثيراً على هذه المشكلة وتم تناولها وشرحها بالمنتدى ... فكان عليك استخدام خاصية البحث بالمنتدى قبل رفع مشاركتك ... تفضل مشكلة في اللغة العربية

اخوي سامي انا راجعت الجداول وجدت برنامجك هو عبارة عن برنامج عهدة بمعنى تسجيل كل جهاز والموظف المسؤول عنه اذا كان هذا صحيح فجدول الاجهزة يجب ان يكون مكتمل بجميع بيانات الجهاز الاسم والشركة والموديل والماركة ... الخ عند تسجيل الجهاز في عهدة الموظف يتم رصد الرقم المعرف للجهاز فقط راح تقول لي : الاجهزة كثيرة ونريد عند تسجيل بيانات الجهاز يوجد بيانات مختلفة في كل جهاز مثل الموديل والماركة ونريد نسهل على المستخدم هنا اقول اترك جدولي الموديل والماركة على حالهم منفصلين من اجل تختار منهم عند تسجيل الجهاز واذا فيه بيانات مشابهة اعمل لها جدول منفصل ايضا ، وهذه الجداول هي الجداول الخدمية

السلام عليكم ورحمة الله استخدم هذا الكود Sub AdSh_Data() Dim ws As Worksheet, C As Range Dim x As Byte, WF As Object Dim LR As Long, Sh As Worksheet Set ws = Sheets("ورقة1") Set WF = Application.WorksheetFunction LR = ws.Range("A" & Rows.Count).End(3).Row For Each C In ws.Range("A1:A" & LR) x = WF.CountIf(ws.Range("A1:A" & C.Row), C) On Error Resume Next If x = 1 Then If Len(Sheets(C).Name) = 0 Then Sheets.Add(after:=Sheets(Sheets.Count)).Name = C.Value End If End If Next 88: For Each Sh In ThisWorkbook.Worksheets For Each C In ws.Range("A1:A" & LR) If Sh.Name = C.Value Then p = p + 1 Sh.Range("A" & p).Resize(, 8) = ws.Cells(C.Row, 1).Resize(, 8).Value End If Next p = 0 Next End Sub

السلام عليكم ما رأيك بـ s = InputBox("Start form?") e = InputBox("To?") For i = s To e ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Users\Ahmed\Desktop\" & i & ".pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ False Next

الحقول الذي لا تتم عليها عمليات حسابية ( جمع / طرح / مقارنة ) الافضل جعلها نصية حتى لو كانت البيانات ارقام مثل رقم الهاتف ورقم الهوية ونحو ذلك

تفضل اتمني ان يكون المطلوب . حفظ باسم pdf.accdb

اساتذة وخبراء هذا المنتدي الجميل اريد الترحيل من اكسيل الي الوورد وحفظ ملف الوورد بأسم خلية b1 علي نفس المسار المحدد داخل الملف شكراً لمن اراد مساعدتي وجزاكم الله خيراً الملف55555.xls

هذا الكود يوضع في ال userform