هل يمكن عمل الحدث changeـworksheet مرتين فى الورقة الواحدة

[فضل حسين]

الى خبراء واعضاء منتداى العزيز والعظيم

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

مرفق ملف موضح به المطلوب . وجزاكم الله كل خير

وفى انتظار ردودكم الجميلة

وشكرا

هل يمكن عمل حدث change مرتين.rar

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

السلام عليكم

استخدم مثلا الكود التالي:

Private Sub Worksheet_Change(ByVal Target As Range)

Dim RN As Range

On Error GoTo 1

Select Case Target.Address

	Case [D8].Address

		Set RN = Evaluate("موادـورقة1")

		C = WorksheetFunction.Match(CStr(Target), RN, 0)

		Target.Offset(1, 0).Resize(4, 1).Value = RN.Columns(C).Offset(1, 0).Resize(5, 1).Value

	Case [J8].Address

	   Set RN = Evaluate("موادـورقة2")

		C = WorksheetFunction.Match(CStr(Target), RN, 0)

		Target.Offset(1, 0).Resize(4, 1).Value = RN.Columns(C).Offset(1, 0).Resize(5, 1).Value

End Select

Set RN = Nothing

1:

End Sub

هل يمكن عمل حدث change مرتين.rar

[الحسامي]

السلام عليكم

ما شاء الله عليك اخي خبور وسلمت يمينك

ومن بعد اذنك ولاثراء الموضوع هنا فكرة اخرى

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, [d8,j8]) Is Nothing Then

Dim my_rng As Worksheet

Set my_rng = Sheets("sheet2")

If Target.Column = 4 Then Set my_rng = Sheets("sheet1")

XX = WorksheetFunction.Match(Target, my_rng.[b1:d1], 0) + 1

X = my_rng.Range("a5000").End(xlUp).Row

Target.Offset(1, 0).Resize(X, 1).Value = my_rng.Cells(2, XX).Resize(X, 1).Value

End If

End Sub

هل يمكن عمل حدث change مرتين.rar

[احمد حمور-ابوعبدالله]

اخي الحسامي

اشتقتلك يا زلمه وين انت من زمان ما شوفنا هالطله الحلوه

يا اخي انت ما الك نزله على العقبه

حابيين نشوفك

[saad abed]

اخواى خبور والحسامى

اجتماع العملاقة نستفيد منه كثيرا

سلمتم لنا جزاكم الله خيرا

سعد عابد

[الـعيدروس]

السلام عليكم

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

جزاكم الله خير على هذه الاكواد المذهله

التي تنير طريق امثالنا في مجال البرمجه

متمكنين جدا في صياغة الاكواد

جزاكم الله عنا كل كل خير

تقبلو مروري

[abouelhassan]

كل الشكر والاحترام اساتذة المنتدى الافاضل

احترامى

[خالد الشاعر]

^{استاذ خبور}

^{وحشتنا كثيراً}

^{اعمالك دائماً تعبر عن اتقان و خبرة كبيرة}

^{و استاذ حسامى}

^{تسلم ايدك خبرة كبيرة لا تقدر}

^{جزاكم الله خيراً}

[فضل حسين]

العلامة الكبير / خبور خير

فارس الاكسل العربى ( الحسامى باشا )

كل الحب والتقدير والاجلال والاعتزاز لشخصكم الكريم . فأنا بعتبر هذة المشاركة بمثابة لقاء العمالقة او لقاء السحاب .

والله مهما قلت لن نوفيكم حقكم لما تبذلونه من ابداع وفكر عالى . ويكفى ان اقول لكم انها حلول تكتب بحروف من نور .

واسمحوا لى بكل الحب والعرفان والاخلاص ان ادعو لكم ان تكون هذه الاعمال فى ميزان حسناتكم يوم القيامة .

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

الف شكر الف شكر الف شكر

تم تعديل ديسمبر 31, 2011 بواسطه فضل 1