جرب
Sub كتابة_الصدق_كل_20_صف()
Dim صف As Integer
Dim الصدق As String
الصدق = "الصدق"
' تحديد صفوف للكتابة فيها
For صف = 1 To ActiveSheet.Rows.Count Step 20
' كتابة الكلمة في الخلية A في الصف الحالي
Cells(صف, 1).Value = الصدق
Next صف
End Sub
السلام عليكم ورحمة الله اخوانى الافاضل
كل عام وانتم بخير
احتاج مساعدة بكود Vba للتجميع بدون تكرار
لدينا شيتان الاول به ثلاث اعمدة الاسم والرقم القومى والمبلغ
والشيت الثانى اسمه تجميع بدون تكرار
احتاج كود للبحث فى عمود الرقم القومى اذا كان مكرر يجمع المبلغ
بارك الله فيكم اخوانى الافاضل
كود تجميع .xlsx
السلام عليكم ورحمه الله اخوانى الافاضل
اتقدم لكم بخالص الشكر والتقدير
لدى مشكلة أن شاء الله اجد لها حل لديكم
لدى قاعدة بيانات تعمل بفضل الله وفضلكم تمام
أضعها على جوجل درايف لكى اعمل عليها من اى مكان
المشكلة هى أننى عندما اعمل لايتم حفظ البيانات الا بلغق القاعدة
ساعات كثيرة اعمل والانترنت يفصل اضطر اغلق الكمبيوتر ولا أجد البيانات حفظت واضطر إعادة العمل
احتاج لشى يجعل البيانات تحفظ والبرنامج لم يغلق حتى إذا انقطع النت وأغلقت البرنامج اجد ما تم إدخاله موجود ولا يضيع مجهودى.
ملحوظة لدى كود حفظ نسخة احتياطية بس هذا ليس ما احتاجه
احتاج حفظ البيانات المدخلة اول باول حتى لو النت قطع يحفظك البيانات حتى آخر لحظة كان بها نت أو شئ من هذا القبيل
شاكر لكم كرمكم
السلام عليكم اخوانى الافاضل
هل بالامكان ربط ملف اكسيل مصدر من اكسيس ب درايف جوجل بحيث يتم تصدير الملف له. كما وعدنا اخونا Ezril
برفعلك برنامج مباشر ربط link بالاكسل والغاء الربط مع استيراد وتصدير في اقرب وقت ابشر
الربط مع الاكسل لا يمكن تعديل ملف! ولكن تستطيع مع العكس ربط بالاكسس
كما وعدنا فى ما سبق بالانتظار
كل الشكر والتقدير والاحترام لك اخى فى الله استاذ محمد ايمن وايضا الشكر موصول ل اخى فى الله استاذ kkhalifa1960
كل الشكر والاحترام وخالص الدعاء من القلب
بارك الله فيكم اخوانى