sweetest_lady قام بنشر ديسمبر 15, 2019 مشاركة قام بنشر ديسمبر 15, 2019 (معدل) السلام عليكم ورحمة الله وبركاته يعطيكم العافية على المجهود الذي تبذلونه أنا سويت ملف أحتاجه ك قاعدة بيانات ولكن أحتاج بعض المساعدة منكم في الكود تم إنشاء الكود ولكن بحاجة لتعديل أبغي أسوي ترحيل للبيانات في نفس الشيت جدول لإدخال البيانات ومن ثم إضافة هذه البيانات في الجدول بالأسف في نفس الشيت يعني كل ما أضيف معلومات بالجدول اللي فوق في الشيت تنضاف المعلومات تحت في الجدول الكبير بالإضافة إلى إضافة الرقم التسلسلي تلقائي في الشيت أتمنى إنكم فهمتوا علي samples.xlsm تم تعديل ديسمبر 15, 2019 بواسطه sweetest_lady رابط هذا التعليق شارك More sharing options...
Ali Mohamed Ali قام بنشر ديسمبر 15, 2019 مشاركة قام بنشر ديسمبر 15, 2019 وعليكم السلام-تفضل samples1.xlsm 2 1 رابط هذا التعليق شارك More sharing options...
sweetest_lady قام بنشر ديسمبر 15, 2019 الكاتب مشاركة قام بنشر ديسمبر 15, 2019 شكراً بحجم السماء طيب كيف أدخل التاريخ بشكل تلقائي في الاكسل بدون ما أضطر إني أكتب كل مرة في الشيت رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر ديسمبر 15, 2019 مشاركة قام بنشر ديسمبر 15, 2019 جرب هذا الماكرو Private Sub CommandButton1_Click() insertbutton_Click End Sub '+++++++++++++++++++++++++++++++++ Sub insertbutton_Click() Dim x%, y%, nextRow%, rg_to_copy As Range Set rg_to_copy = Me.Range("b6").CurrentRegion x = rg_to_copy.Rows.Count If x = 1 Then Exit Sub y = rg_to_copy.Columns.Count nextRow = Me.Cells(Rows.Count, 2).End(3).Row + 1 Set rg_to_copy = rg_to_copy.Offset(1).Resize(x - 1) Me.Range("B" & nextRow). _ Resize(x - 1, y).Value = rg_to_copy.Value rg_to_copy.ClearContents End Sub الملف مرفق samples_BUTTON.xlsm 1 رابط هذا التعليق شارك More sharing options...
sweetest_lady قام بنشر ديسمبر 15, 2019 الكاتب مشاركة قام بنشر ديسمبر 15, 2019 أ،ا حطيت معادلة التاريخ ولكن بعد أن أدخل البيانات يختفي التاريخ يرجى التكرم بالاطلاع على معادلة التاريخ وشكراً samples1.xlsm ما ضبط الكود أستاذ سليم رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر ديسمبر 15, 2019 مشاركة قام بنشر ديسمبر 15, 2019 لا يجب ادراج اي شيء العامود D من الجدول الثاني بل يمكن ادراج التاريخ في الخلية( D7) او ( D8) او في الثنتين معاً والكود ينقلها الى مكانها الصحيح في الجدول الثاني مع العلم انه يجب تنسيق العامود D من الجدول الثاني كتاريخ رابط هذا التعليق شارك More sharing options...
sweetest_lady قام بنشر ديسمبر 16, 2019 الكاتب مشاركة قام بنشر ديسمبر 16, 2019 طيب ممكن تجيك على الملف بعد إذنك وتشوف الكود بحيث إني كل مرة أدخل البيانات يطلع التاريخ أنا اللي صار معاي إن التاريخ يطلع مرة واحدة فقط عند أول إدخال للبيانات فقط ومن ثم يختفي samples1.xlsm رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر ديسمبر 16, 2019 مشاركة قام بنشر ديسمبر 16, 2019 تم التعديل على الكود (التاريخ والترقيم يدخل اوتوماتيكياً في الجدول الاول) لذلك لا داعي لادراجهما Private Sub insertbutton_Click() Fil_data End Sub '========================= Sub Fil_data() Dim nextRow As Long With Sheets("sheet1") nextRow = .Range("C10000").End(xlUp).Row + 1 .Range("B" & nextRow).Resize(, 8).Value = .Range("B7").Resize(, 8).Value .Range("D" & nextRow) = Date + Time .Range("B7") = Application.Max(Range("B14:b10000")) + 1 .Range("C7").Resize(, 7) = vbNullString .Range("D7") = Date + Time End With End Sub الملف مرفق samples_NEW.xlsm 1 رابط هذا التعليق شارك More sharing options...
sweetest_lady قام بنشر ديسمبر 16, 2019 الكاتب مشاركة قام بنشر ديسمبر 16, 2019 شكرا جزيلاً آخر خدمة أدري غلبتك معايا أنا أبغي لمن أدخل البيانات يطلع لي الوقت تلقائيا (تمت إضافة عمود للوقت) + فصل التاريخ عن الوقت يعني وقت إدخال البيانات يكون تلقائي ووقت استلام يكون يدوي إن شاء الله فهمت علي أستاذي samples_NEW.xlsm رابط هذا التعليق شارك More sharing options...
sweetest_lady قام بنشر ديسمبر 17, 2019 الكاتب مشاركة قام بنشر ديسمبر 17, 2019 صبـاح الخير لقد قمت بحل مشكلة التاريخ وعمل الكود لكن لم أستطع تخمين كود الوقت التلقائي عند إدخال البيانات هذا آخر تحديث لملف العمل وعذراً على الازعاج samples.xlsm رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر ديسمبر 17, 2019 مشاركة قام بنشر ديسمبر 17, 2019 انا صراحة لا افهم لماذا هذا الاصرار على نقل البيانات من الصف السابع الى الصف حيث Lastrow خلية خلية و من ثم مسح البيانات من الصف السابع خلية خلية ايضاً افترض انه عندنا 100 خلية ( ان لم اقل 1000) في كل صف فهل نتفع هذه الطريقة ؟؟؟ (كتابة 100 سطر للنقل و 100 سطر للمسح) اكيد كلا وجدت الدالة Resize لعمل ذلك بخظوة واحدة اليك هذا المثال :(الرقم 9 في الكود )هو عدد الخلايا في الصف السابع Private Sub insertbutton_Click() Dim nextRow As Long With Sheets("sheet1") nextRow = .Range("C10000").End(xlUp).Row + 1 .Range("c" & nextRow).Resize(, 9).Value = _ .Range("c7").Resize(, 9).Value .Range("c7").Resize(, 9).Value = vbNullString End With End Sub 1 رابط هذا التعليق شارك More sharing options...
sweetest_lady قام بنشر ديسمبر 19, 2019 الكاتب مشاركة قام بنشر ديسمبر 19, 2019 شكراً على رحابة صدرك أستاذ أنا لست خبير في مجال الكودنغ ولغة البرمجة ولكنني في مرحلة تعلم وتطبيق منكم ومن مواقع أخرى يعني ليست لدي خلفية في كيفية كتابة الكود لهذا السبب ربما تجد أخطاء في كتابة الكود لدي وبصراحة لم أفهم ما هو قصدك هنا بالنسبة للخلااياا ولكن أستاذي بالنسبة للكود الأخير لم أعرف أين أضيفه لأن سبق وتمت كتابة كود في Private Sub insertbutton_Click() كيف أضيف هذا الكود في أكرر جزيل شكري وامتناني لكم رابط هذا التعليق شارك More sharing options...
أفضل إجابة سليم حاصبيا قام بنشر ديسمبر 19, 2019 أفضل إجابة مشاركة قام بنشر ديسمبر 19, 2019 يتم ادراجه مكان الكود القديم اليك الملف مع الكود samples_New (2).xlsm رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان