ترحيل البيانات إلى نفس الشيت

[sweetest_lady]

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

 

يعطيكم العافية على المجهود الذي تبذلونه

أنا سويت ملف أحتاجه ك قاعدة بيانات ولكن أحتاج بعض المساعدة منكم في الكود

تم إنشاء الكود ولكن بحاجة لتعديل

أبغي أسوي ترحيل للبيانات في نفس الشيت

جدول لإدخال البيانات ومن ثم إضافة هذه البيانات في الجدول بالأسف في نفس الشيت

يعني كل ما أضيف معلومات بالجدول اللي فوق في الشيت تنضاف المعلومات تحت في الجدول الكبير

بالإضافة إلى إضافة الرقم التسلسلي تلقائي في الشيت

أتمنى إنكم فهمتوا علي

 

 

samples.xlsm

تم تعديل ديسمبر 15, 2019 بواسطه sweetest_lady

[Ali Mohamed Ali]

وعليكم السلام-تفضل

 

samples1.xlsm

[sweetest_lady]

شكراً بحجم السماء

طيب كيف أدخل التاريخ بشكل تلقائي في الاكسل بدون ما أضطر إني أكتب كل مرة في الشيت

[سليم حاصبيا]

جرب هذا الماكرو

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

[sweetest_lady]

أ،ا حطيت معادلة التاريخ

ولكن بعد أن أدخل البيانات يختفي التاريخ

يرجى التكرم بالاطلاع على معادلة التاريخ

وشكراً

samples1.xlsm

ما ضبط الكود أستاذ سليم

[سليم حاصبيا]

لا يجب ادراج اي شيء العامود D  من الجدول الثاني

بل يمكن ادراج التاريخ في الخلية( D7) او ( D8) او في الثنتين معاً والكود ينقلها الى مكانها الصحيح في الجدول الثاني

مع العلم انه يجب تنسيق العامود D من الجدول الثاني كتاريخ

[sweetest_lady]

طيب ممكن تجيك على الملف بعد إذنك

وتشوف الكود بحيث إني كل مرة أدخل البيانات يطلع التاريخ أنا اللي صار معاي إن التاريخ يطلع مرة واحدة فقط عند أول إدخال للبيانات فقط ومن ثم يختفي

samples1.xlsm

[سليم حاصبيا]

تم التعديل على الكود (التاريخ والترقيم يدخل اوتوماتيكياً في الجدول الاول) لذلك لا داعي لادراجهما

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

[sweetest_lady]

شكرا جزيلاً

آخر خدمة أدري غلبتك معايا

أنا أبغي لمن أدخل البيانات يطلع لي الوقت تلقائيا (تمت إضافة عمود للوقت) + فصل التاريخ عن الوقت

يعني وقت إدخال البيانات يكون تلقائي ووقت استلام يكون يدوي

إن شاء الله فهمت علي أستاذي

samples_NEW.xlsm

[sweetest_lady]

صبـاح الخير

لقد قمت بحل مشكلة التاريخ وعمل الكود لكن لم أستطع تخمين كود الوقت التلقائي عند إدخال البيانات

هذا آخر تحديث لملف العمل

وعذراً على الازعاج

samples.xlsm

[سليم حاصبيا]

انا صراحة لا افهم لماذا هذا الاصرار على نقل البيانات من الصف السابع الى الصف حيث 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

 

 

[sweetest_lady]

شكراً على رحابة صدرك أستاذ

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

لهذا السبب ربما تجد أخطاء في كتابة الكود لدي

وبصراحة لم أفهم ما هو قصدك هنا بالنسبة للخلااياا

ولكن أستاذي بالنسبة للكود الأخير لم أعرف أين أضيفه لأن سبق وتمت كتابة كود في

Private Sub insertbutton_Click() كيف أضيف هذا الكود في

أكرر جزيل شكري وامتناني لكم

 

[سليم حاصبيا]

يتم ادراجه مكان الكود القديم 

اليك الملف مع الكود

samples_New (2).xlsm