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

كيف ادخل بيانات فى شيت وترحل تلقائيا فى شيت اخر


sadouka

الردود الموصى بها

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

اريد شرح طريقة لكى ادخل البيانات فى شيت يوميه للعملاء والموردين

وترحل تلقائيا فى شيت تانى للعملاء والموردين به حساب لكل عميل منفردا

مع العلم بان نفس شكل الورقة فى شيت اليومية مطابق لشكلها فى شيت العملاء ولكن لكل عميل على انفراد ازاى اربط بين الشيتين

اريد الشرح ضرورى ولكم جزيل الشكر وجزاكم الله كل خير

رابط هذا التعليق
شارك

لا تعتبره تطفل ولكن مجرد فكرة ارجو ان يتسع صدركم لى وللاخ السائل

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

رابط هذا التعليق
شارك


Private Sub Worksheet_Change(ByVal Target As Range)

Application.EnableEvents = False

If Not Intersect(Target, Range("A1")) Is Nothing Then

Sheet2.Cells(Target.Row, 1) = Target.Value

Target = Null

Application.EnableEvents = True

End If

End Sub

رابط هذا التعليق
شارك

  • 2 weeks later...

السلام عليكم

الاخ الفاضل نزاهة والاخ الحبيب العام الجديد

اذا كنت تريد كود يلائم طلبك

ارفق مثال

وان شاء الله سوف تجد من يقوم بعمل اللازم وزيادة

وفقك الله

  • Like 1
رابط هذا التعليق
شارك

السلام عليكم

اخي خالد عامر

تنزيل اي مرفق لا يحتاج ميزة

بمجرد الإشتراك في المنتدى اضغط على اي مرفق يتم تنزيلة فورا كملف مضغوط

رابط هذا التعليق
شارك

السلام عليكم

الاخ الفاضل نزاهة والاخ الحبيب العام الجديد

اذا كنت تريد كود يلائم طلبك

ارفق مثال

وان شاء الله سوف تجد من يقوم بعمل اللازم وزيادة

وفقك الله

رابط هذا التعليق
شارك

السلام عليكم ارفقت ملف بالمطلوب

بعد ان عدلت بعض التعديلات علية

وبلاصل الملف من احد الاخوه الكرام في هذا المنتدى

المطلوب

ان يتم الترحيل تلقائي من الكشف الرئيسي

بعدالاضافة في الفورم

حسب الجنسية كل جنسية الى شيت المخصص بها

مع عدم مسح البيانات في الشيت الرئيسي

مع الشكر

المطلوب ترحيل تلقائي.rar

رابط هذا التعليق
شارك

السلام عليكم

هذا الكود


Sub ALIDROOS_JC_T()

Application.ScreenUpdating = False

Dim sh As Worksheet

For Each sh In ThisWorkbook.Worksheets

For R = 2 To 31

  If sh.Name = "الكشف الرئيسي" Then GoTo 2

   If Cells(R, 4).Value <> Empty Then

    If Cells(R, 4).Value = sh.Name Then

	  Range(Cells(R, 1), Cells(R, 11)).Copy

	  QQ = sh.Cells(1000, 1).End(xlUp).Row + 1

	  sh.Range("A" & QQ).PasteSpecial xlPasteValues

	  End If

	 End If

    Next

2

  Next

Application.CutCopyMode = False

Application.ScreenUpdating = True

End Sub

وهذا المرفق

المطلوب ترحيل _ALI.rar

رابط هذا التعليق
شارك

الاستاذ ( أبو نصار )

اشكر لك سرعة ردك وتفاعلك

ولكن كان قصدي

اضيف البيانات في الفورم

وعند الاضافة في الفورم تنزل في الكشف الرئيسي ثم او بنفس الوقت

يتم الترحيل تلقائي من الكشف الرئيسي حسب الشيت

اي بدون زر الترحيل

اريدة الكود الترحيل في الفورم مدمج مع كود زر الاضافة والتعديل والحذف

هل هذا ممكن ؟؟

يوجد مشكلة الان

اذا ضغطت عدة مرة على ترحيل تتكرر نفس البينات

هل ممكن نضيف شرط عدم تكرار نفس لبيانات كاملة بالصف

ولو تغير بعضها يقبل

واكرر شكري لك

تم تعديل بواسطه العام الجديد2012
رابط هذا التعليق
شارك

استبدل كود زر الاضافة بهذا الكود


Private Sub CommandButton1_Click()

Dim sh As Worksheet

Dim R As Integer, N As Integer, Endrow As Integer, ALI As Long

Set sh = Sheets(TextBox4.Value)

ALI = sh.Cells(Rows.Count, 1).End(xlUp).Row + 1

For R = 0 To 10

	If Me.Controls(myCon(R)).Text = "" Then N = N + 1

Next

If N <> 0 Then MsgBox "ملف فارغ لا يمكن الأضافة": GoTo 1

Me.MousePointer = 11

With Sheets("الكشف الرئيسي")

	Endrow = .Range("A" & .Rows.Count).End(xlUp).Row + 1

	For R = 0 To 10

		.Cells(Endrow, R + 1).Value = Me.Controls(myCon(R)).Value

		If TextBox4.Value = sh.Name Then

		sh.Cells(ALI, R + 1).Value = Me.Controls(myCon(R)).Value

		End If

	Next R

End With

KH_A

ActiveWorkbook.Save

Me.MousePointer = 0

MsgBox "تمت الأضافة بنجاح"

1 End Sub

وهذا المرفق

المطلوب ترحيل _ALI_1.rar

تم تعديل بواسطه alidroos
  • Like 1
  • Thanks 1
رابط هذا التعليق
شارك

كل الشكر والتقدير الاستاذ ( أبو نصار ).

الله يعطيك الف عافية

واعتذر لو اطلت عليك

هل فيه امكانية

1- عدم قبول التكرار كامل في الصف لانه مازال يقبل تكرار نفس البيانات كاملة في الصف

2- التعديل يكون على الجميع فهو يعدل فقط في شيت الكشف الرئيسي ويبقى الشيت الاخر كما هو قبل التعديل

وجزاك الله خيرا

رابط هذا التعليق
شارك

و يكون ملف اكسل الاول به يومية العملاء والموردين والملف الثانى حسابات العملاء والموردين (كل عميل فى شيت لوحده)

اريد ادخال حركة اليومية فى الملف الاول فيتم الترحيل تلقائى فى حساب كل عميل بالملف الثانى

الملف الاول يتكون من (خانة اسم العميل -وجانب عملاء(دفعات-الكميه-السعر -القيمة)- البيان - الموردين (دفعات-كميه -سعر- القيمة))

الملف الثانى به مجموعه كبيرة من الشيتات بأسم كل عميل والشيت عباره عن(الرصيد-وجانب عملاء(دفعات -كميه -سعر -قيمه)- البيان -جانب موردين (دفعات- كميه -سعر -قيمه))وبه ايضا شيت خاص بالعملاء الغير دائمين يتكون من( اسم العميل والدفعات وجانب عملاء وموردين )

رابط هذا التعليق
شارك

اعتذر من اخي

لم يبقى الا نقطتين واطمع من الاستاذ ( أبو نصار ) اكمالهما

واعتذر لو اطلت عليك

هل فيه امكانية

1- عدم قبول التكرار كامل في الصف لانه مازال يقبل تكرار نفس البيانات كاملة في الصف

2- التعديل يكون على الجميع فهو يعدل فقط في شيت الكشف الرئيسي ويبقى الشيت الاخر كما هو قبل التعديل

وجزاك الله خيرا

رابط هذا التعليق
شارك

السلام عليكم

الاخ الفاضل sadouka

نرجو طرح موضوع جديد لطلبك ولن يقصر لجميع معك

الاخ الفاضل العام الجديد 2012

الشرط على ماذا

مثلا ( الاسم - رقم القيد - تاريخ الميلاد )

نرجو التوضيح

واما التعديل على الكل جرب المرفق

والسلام عليكم

المطلوب ترحيل _ALI_2.rar

رابط هذا التعليق
شارك

كل الشكر والتقدير للاستاذ ( أبو نصار )

انت مبدع

عند التعديل بتغيير الجنسية الى اخرى

لا يتم التعديل ولا الترحيل

فقط يكون التعديل في الكشف الرئيسي

ولو فيه امكانية اضافة زر للحذف في الفورم ويحذف من الجميع

والشرط عدم تكرار

رقم القيد و تاريخ الميلاد

ولك جزيل الشكر

تم تعديل بواسطه العام الجديد2012
رابط هذا التعليق
شارك

الاستاذ ( أبو نصار )

نفس المشكلة لم يتغير شي مع التعديل

عند التعديل بتغيير الجنسية الى اخرى

لا يتم التعديل ولا الترحيل ولا حذف السابق

فقط يكون التعديل في الكشف الرئيسي

ولو فيه امكانية اضافة زر للحذف في الفورم ويحذف من الجميع

اما التكرار فهذا المطلوب

جزاك الله خير

تم تعديل بواسطه العام الجديد2012
رابط هذا التعليق
شارك

السلام عليكم

جرب المرفق

واي تعديلات او اضافات انا موجود

وعذراً على التأخير تعرف شواغل الدنيا

المطلوب ترحيل _ALI_4.rar

  • Thanks 1
رابط هذا التعليق
شارك

زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information