عاشق الاسلام قام بنشر أغسطس 1, 2014 مشاركة قام بنشر أغسطس 1, 2014 السلام عليكم اخواني واساتذتي الاعزاء في هذا الصرح الشامخ : قمت بتصميم فورم ترحيل البيانات الى الشيت كما هو واضح في الملف المرفق ولكن كيف امنع تكرار البيانات في كل الصفوف بحيث عندما تتطابق كل المعلومات تظهر رسالة تكرار المعلومات .ولكم مني وافر الاحترام والتقدير. مساعدة1.rar رابط هذا التعليق شارك More sharing options...
عاشق الاسلام قام بنشر أغسطس 2, 2014 الكاتب مشاركة قام بنشر أغسطس 2, 2014 اساتذتي الاعزاء في هذا الصرح الشامخ ارجو المساعدة. رابط هذا التعليق شارك More sharing options...
أفضل إجابة عبدالله المجرب قام بنشر أغسطس 2, 2014 أفضل إجابة مشاركة قام بنشر أغسطس 2, 2014 السلام عليكم إستبدل كود زر الحفظ في البورم بهذا Private Sub CommandButton1_Click() Dim iRow As Long, Cl As Range, Abu_Ahmed As Boolean Dim ws As Worksheet T = [B10000].End(xlUp).Row Set ws = Worksheets("ورقة1") iRow = ws.Cells(Rows.Count, 2) _ .End(xlUp).Offset(1, 0).Row '================================================================================== For Each Cl In Range("B2:B" & [B10000].End(xlUp).Row) If Cl = Me.TextBox2.Value Then If Cl.Offset(0, 1) = Me.TextBox3.Value And Cl.Offset(0, 2) = Me.TextBox4.Value And _ Cl.Offset(0, 3) = Val(Me.TextBox5.Value) Then Abu_Ahmed = True: GoTo 1 End If Next 1 If Abu_Ahmed Then MsgBox "البيانات موجودة مسبقاً": GoTo 2 Else ws.Cells(iRow, 2).Value = Me.TextBox2.Value ws.Cells(iRow, 3).Value = Me.TextBox3.Value ws.Cells(iRow, 4).Value = Me.TextBox4.Value ws.Cells(iRow, 5).Value = Me.TextBox5.Value End If '===================================================================================== Me.TextBox2.Value = "" Me.TextBox3.Value = "" Me.TextBox4.Value = "" Me.TextBox5.Value = "" Me.TextBox2.SetFocus 2 End Sub رابط هذا التعليق شارك More sharing options...
عاشق الاسلام قام بنشر أغسطس 2, 2014 الكاتب مشاركة قام بنشر أغسطس 2, 2014 السلام عليكم إستبدل كود زر الحفظ في البورم بهذا Private Sub CommandButton1_Click() Dim iRow As Long, Cl As Range, Abu_Ahmed As Boolean Dim ws As Worksheet T = [B10000].End(xlUp).Row Set ws = Worksheets("ورقة1") iRow = ws.Cells(Rows.Count, 2) _ .End(xlUp).Offset(1, 0).Row '================================================================================== For Each Cl In Range("B2:B" & [B10000].End(xlUp).Row) If Cl = Me.TextBox2.Value Then If Cl.Offset(0, 1) = Me.TextBox3.Value And Cl.Offset(0, 2) = Me.TextBox4.Value And _ Cl.Offset(0, 3) = Val(Me.TextBox5.Value) Then Abu_Ahmed = True: GoTo 1 End If Next 1 If Abu_Ahmed Then MsgBox "البيانات موجودة مسبقاً": GoTo 2 Else ws.Cells(iRow, 2).Value = Me.TextBox2.Value ws.Cells(iRow, 3).Value = Me.TextBox3.Value ws.Cells(iRow, 4).Value = Me.TextBox4.Value ws.Cells(iRow, 5).Value = Me.TextBox5.Value End If '===================================================================================== Me.TextBox2.Value = "" Me.TextBox3.Value = "" Me.TextBox4.Value = "" Me.TextBox5.Value = "" Me.TextBox2.SetFocus 2 End Sub شكرا ياأخي واستاذي الغالي هذا ماكنت ابحث عنه وان شاء الله يكون في ميزان حسناتك والله يبارك فيك وتقبل مني وافر التقدير والاحترام. رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر أغسطس 2, 2014 مشاركة قام بنشر أغسطس 2, 2014 حياك الله اخي الكريم تمت الاجابة رابط هذا التعليق شارك More sharing options...
Xima Alfadni قام بنشر نوفمبر 6, 2014 مشاركة قام بنشر نوفمبر 6, 2014 السلام عليكم هل يمكن شرح هذا الجزء ولا سيما الجزء الاول حتى كلمة Else For Each Cl In Range("B2:B" & [B10000].End(xlUp).Row) If Cl = Me.TextBox2.Value Then If Cl.Offset(0, 1) = Me.TextBox3.Value And Cl.Offset(0, 2) = Me.TextBox4.Value And _ Cl.Offset(0, 3) = Val(Me.TextBox5.Value) Then Abu_Ahmed = True: GoTo 1 End If Next 1 If Abu_Ahmed Then MsgBox "البيانات موجودة مسبقاً": GoTo 2 Else ws.Cells(iRow, 2).Value = Me.TextBox2.Value ws.Cells(iRow, 3).Value = Me.TextBox3.Value ws.Cells(iRow, 4).Value = Me.TextBox4.Value ws.Cells(iRow, 5).Value = Me.TextBox5.Value End If وشكرا رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان