حمادة عمر

كود راائع اخي الحبيب / سليم حاصبيا جزاك الله خيرا

اخي الكريم / زمزم تقبل خالص تحياتي

السلام عليكم الاخ الكريم / محمد رزق بارك الله فيك لاثراء الموضوع ... وبعد حل اخي الحبيب / أبوعيد ... جزاه الله خيرا اليك حل آخر ولكن باستخدام الاكواد تقبلوا خالص تحياتي -ترحيل بشروط Book20.rar

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

شاهدي الرابط التالي http://www.officena.net/ib/index.php?showtopic=47252&hl=

بارك الله فيك اخي الكريم / خزاني

بارك الله فيك اخي الحبيب / اسلام الشيمي تقبل خالص تحياتي

في انتظار الرد ممن لديه اوفيس 2013

جاري التحميل .... وبالفعل هدية فوق الوصف سلمت يداك

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

رائع اخي الحبيب / طلعت محمد حسن جعلك الله دائما في عون الجميع تقبل خالص تحياتي

شكرا اخي الكريم لردك واهتمامك انا اعمل في مصلحة حكومية ونعمل علي شبكة علي مستوي الجمهورية ولكن كل فرع به شبكته الداخلية والتي يصل اليها النت ععن طريق راوتر ثم سويتش من علي خط ارضي بالفعل فاحتاج لارسال فاكسات الي اي فرع آخر ... ولو امكن الارسال من الكمبيوتر الي أجهزة الفاكس العادية ايضا ... يصبح الموضوع اروع واروع تقبل خالص تحياتي

اتقدم بالتهنئة للأخ / سليم حاصبيا بالترقية الي

شاهد الرابط التالي اخي الكريم دورة شرح الفيجول بيسك للتطبيقات VBA

السلام عليكم الاخ الفاضل / حسام مصطفي بارك الله فيك لتنفيذ طلبك اخي الكريم ... استبدل الكود السابق بالكود التالي .... Private Sub CommandButton1_Click() Dim I As Integer Dim File As String Dim LR As Long Dim all_ws As Workbook '----------------------------- Set ws = Worksheets("æÑÞÉ1") Application.ScreenUpdating = False Application.DisplayAlerts = False '----------------------------- ws.Range("A11:Y10000").ClearContents For I = 1 To 110 If Cells(I, 27) = "" Then Exit For TextBox1.Value = Cells(I, 27).Value File = ActiveWorkbook.Path & "\" & TextBox1.Value Workbooks.Open File Sheets("ÇÚãÇá ÓäÉ").Range("A11:Y1000").Copy '----------------------------- Windows("ÊÌãíÚ.xls").Activate ws.Select LR = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row ws.Cells(LR, 1).Select ws.Paste Range("a11").Select Application.ScreenUpdating = True Application.DisplayAlerts = True Next I For Each all_ws In Application.Workbooks If Not all_ws.Name = ThisWorkbook.Name Then all_ws.Close (True) Next all_ws Unload Me End Sub ومعك دائما في اي استفسار تريده تقبل خالص تحياتي

السلام عليكم الاخت الاستاذة الفاضلة / أم عبد الله بارك الله فيكي مرورك فقط علي موضوع يشرف اي موضوع فهو مرور طيب ورائع وكريم تقبلي خالص تحياتي

السلام عليكم الاخ الكريم / Islam_4a بارك الله فيك تقبل خالص تحياتي