المساعده فى تعديل كود

[dozens]

اريد عند الضغط ع اسم اى شخص مرتين يقوم بتسجيله مرتين فى العمود c مثال عند الضغط على اسم جون مره يقوم بتسجيله عند الضغط عليه مره اخرى لا يسجله لكن عند الضغط على باسم يقوم بتسجيله بعد جون انا اريد الضغط مرتين على الاسم يقوم بتسجيله مرتين

New folder (3).zip

[أبو حنــــين]

السلام عليكم

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

LastRow = Cells(Rows.Count, "c").End(xlUp).Row + 1

If Target.Column = 11 Then

Cancel = True

Cells(LastRow, 3) = Target

Cells(LastRow + 1, 3) = Target

End If

End Sub

[dozens]

وعليكم السلام ورحمه الله للاسف الكود لا يعمل

[أبو حنــــين]

اخي الكود يعمل في اوفيس 2003 كما طلبت

عند الضغط مرتين على اي اسم من الاسماء الموجودة في العمود K يقوم بتسجيله مرتين في العمود C

001.rar

[dozens]

ليس هذا ما اريده انا يوجد لدى مربع تحرير و سرد به هذه الاسماء وهو combobox ف عند اختيار اى اسم يقوم بتسجيل ف العمود c لكن عند الاختيارعلى نفس الاسم مرتين يقوم بتسجيله مره واحده فقط مثال عند اختيار جون من مربع السرد يقوم بتسجيله ثم اختيار باسم يقوم ايضا بتسجيله اذا قمت باختيار باسم مره اخرى لا يقوم بتسجيله فى العمود c فما الحل

New folder (3).zip

تم تعديل أكتوبر 15, 2012 بواسطه kalkol

[عبدالله باقشير]

السلام عليكم

استخدم الحدث ComboBox1_Click

Private Sub ComboBox1_Click()

LastRow = Cells(Rows.Count, "c").End(xlUp).Row + 1

Cells(LastRow, 3).Value = ComboBox1

Me.ComboBox1.ListIndex = -1

End Sub

[أبو حنــــين]

أو استخدم هذا لعدم التكرار

Private Sub ComboBox1_Click()

LastRow = Cells(Rows.Count, "c").End(xlUp).Row + 1: For s = 1 To LastRow

If ComboBox1.Text = Cells(s + 1, 3).Value Then

ComboBox1.ListIndex = -1

Else: Cells(LastRow, 3).Value = ComboBox1.Text

End If: Next: ComboBox1.ListIndex = -1

End Sub

[dozens]

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

New folder.zip

[dozens]

يرجى الرد من الساده الاعضاء و سرعه الحل

[يوسف عطا]

الأخ المحترم

kalkol

الرجاء عدم الإلحاح على الأساتذة فهم متطوعون لمساعدة كل من يحتاج المساعدة وفق لظروف وقتهم ومشغولياتهم أعانهم الله عليها

ويكتفى بكلمة للرفع مرة كل يوم أو يومين للتذكرة وتنشيط الموضوع

ولك تحياتى وتقديرى

ابو حنين بك

لك تحياتى القلبية

خبور خير بك

لك تحياتى القلبية

دمتم بود أخوتى الأفاضل جميعاً

تم تعديل أكتوبر 17, 2012 بواسطه يوسف عطا

[dozens]

السلام عليكم و رحمه الله

الف الف شكر استاذ يوسف على النصيحه ولكنى لا اعلم هذا و لك كل تحياتى و تقديرى

[dozens]

للرفع

[dozens]

هو المطلوب لا يمكن فعله اى ليس هناك حل لهذا