اذهب الي المحتوي
أوفيسنا

ibra9

عضو جديد 01
  • Posts

    9
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

2 Neutral

عن العضو ibra9

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    accountant
  • البلد
    KSA
  • الإهتمامات
    every thing

اخر الزوار

بلوك اخر الزوار معطل ولن يظهر للاعضاء

  1. مرحبا VBA ارغب في كود Out look اكسل يحتوي جدول به بيانات ارسال ايميل بواسطة ويحرر الرسالة بناءا على آخر سطر به بيانات الارسال toffy1980@gmail.com للتواصل واتس 00966531050406 ‫‫جدول المهام - نسخة - نسخة.xlsm
  2. مطلوب برمجة كود لترحيل بيانات من ملفات اكسل مغلقة على نفس الدرايف وليس فولدر للتواصل toffy1980@gmail.com الملف المرحل إليه.xlsx الملف المرحل منه.xlsx
  3. السادة / المشرفين والأعضاء المحترمين السلام عليكم ورحمة الله أرجو المساعدة في كود ترحيل من الشيتات (صيانة 1 و 2 و 3 ) من المدى A47 إلى F51 إلى شيت (ملاحظات) من خلية B7 إلى B36 مع مراعاة : - مسح البيانات أولا من الشيت المرحل إليه (ملاحظات) - تجاهل وعدم نسخ الخلايا أو السطور الفارغة من شيتات (صيانة 1 و 2 و3) - في حال كان مدى النسخ (صيانة 1و2و3) يوجد به بعض السطور فارغة وتحتها سطور تحوي بيانات يتم رفع البيانات للسطور الفارغة . - اللصق في أول سطر فارغ في شيت (ملاحظات) مرفق ملف العمل وشكرا للجميع Tarheel.xlsm
  4. السادة / أعضاء المنتدى المحترمين السلام عليكم ورحمة الله (منقول) (Compile Error Next without for) اتمنى أجد المساعدة في تصحيح الخلل في كود الملف المرفق حيث تظهر رسالة Option Explicit Sub test() Dim ws As Worksheet Dim lr As Integer Application.ScreenUpdating = False Sheets("البيان المجمع").Range("a4:e10000").ClearContents For Each ws In ThisWorkbook.Worksheets If ws.Name <> "البيان المجمع" Then If ws.Name <> "ملاحظات" Then With ws .Activate lr = .Cells(Rows.Count, 1).End(xlUp).Row .Range("a4:e" & lr).Copy With Sheets("البيان المجمع") .Range("a" & .Cells(Rows.Count, 1).End(xlUp).Row + 1).PasteSpecial xlPasteValues End With End With End If Next Sheets("البيان المجمع").Activate: Range("a1").Select Application.CutCopyMode = False Application.ScreenUpdating = True End If End Sub وشاكرا مقدما تم ارفاق الملف112.xlsm
  5. احتاج كود بوجود 3 شيك بوكس في نفس السطر عند اختيار واحد منهم يتكنسل من الاثنين الباقيين تلقائيا والعكس بالنسبة للباقيين الثاني والثالث أيضا علما أنا عوز يكون شيك بوكس ولا أريد شيك بوتون شكرا جزيلا أ/ محمد صالح على ردك عندي هذا الكود البسيط ولكن في الملف المرفق يعمل على كل شيك بوكس على حده .. ولكن احتاج لكود بحيث يكون على 3 شيك بوكس في كود واحد Sub CheckBox1_Click() If Range("e9").Value = True Then Range("f9").Value = False End If End Sub Sub CheckBox2_Click() If Range("f9").Value = True Then Range("e11").Value = False End If End Sub ورقة عمل Microsoft Excel جديد __.xlsx
×
×
  • اضف...

Important Information