ibra9

مرحبا 

VBA ارغب في كود

 Out look اكسل يحتوي جدول به بيانات ارسال ايميل بواسطة

 ويحرر الرسالة بناءا على آخر سطر به بيانات الارسال

 toffy1980@gmail.com للتواصل

واتس 00966531050406

‫‫جدول المهام - نسخة - نسخة.xlsm

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

للتواصل toffy1980@gmail.com

الملف المرحل إليه.xlsx الملف المرحل منه.xlsx

السادة / المشرفين والأعضاء                          المحترمين

السلام عليكم ورحمة الله

أرجو المساعدة في كود ترحيل من الشيتات (صيانة 1 و 2  و 3 ) من المدى  A47  إلى F51 إلى شيت (ملاحظات) من خلية B7 إلى B36

مع مراعاة :

- مسح البيانات أولا من الشيت المرحل إليه (ملاحظات)

- تجاهل وعدم نسخ الخلايا أو السطور الفارغة من شيتات (صيانة 1 و 2 و3)

- في حال كان مدى النسخ (صيانة 1و2و3) يوجد به بعض السطور فارغة وتحتها سطور تحوي بيانات يتم رفع البيانات للسطور الفارغة  .

- اللصق في أول سطر فارغ  في شيت (ملاحظات)

مرفق ملف العمل

وشكرا للجميع

Tarheel.xlsm

شكرا من القلب للأستاذ/ محمد صالح

السادة / أعضاء المنتدى المحترمين

السلام عليكم ورحمة الله

(منقول) (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

thank you so much 👌

احتاج كود بوجود 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