سؤال بخصوص ربط البيانات بين ورقتي عمل

[abueyas2]

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

اتمنى ان اجد لسؤالى الجواب كما عهدتكم

السؤال هو : لدي ورقة فيها بيانات وورقة اخرى تعتمد على بيانات الورقة الاولى

بالاضافة الى بيانات اخرى يتم ادخالها

مثلا في الورقة (NT) ارغب بمجرد كتابة رقم الطالبفي الخلية (B2)يتم تعبئة (C2) و

(D2) وفقا للبيانات في الورقة (info)

وكيف سيتغير الكود فيما لو اوضغته في فورم ادخال

ولكم كل الشكر والتقدير ؟

Q1.rar

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

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

صع هذا الكود في صفحة : NT

Private Sub Worksheet_Change(ByVal Target As Range)

Dim LastRow As Long, t As Integer

If Target.Column = 2 Then

	 LastRow = ورقة2.Range("B65535").End(xlUp).Row

	 For t = 1 To LastRow

		 If ورقة2.Cells(t, 2).Value = Target.Value Then

				 Target.Offset(0, 1) = ورقة2.Cells(t, 3)

			 Target.Offset(0, 2) = ورقة2.Cells(t, 4)

		 End If

	 Next

End If

If Target.Value = "" Then Target.Offset(0, 1) = ""

End Sub

[abueyas2]

الف شكر اخي الكريم

هل من الممكن احد يساعدني في عمل فورم ادخال .؟

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

هل الفورم يقوم بادخال البيانات في الصفحة NT او الصفحة Info

و لو ممكن ترسل ملف توضح فيك المطلوب و تبين فيه كيف تريد ان يكون شكل الفورم

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

هذا المثال لادخال المعلومات بدون فورم فهو من ورقة اسمها الواجهة

Q1.rar

[abueyas2]

شكرا لك اخي الكريم (أبو حنين )

ولكن لاحظ الطلب الاساسي ياليت لو يتم دمجه في صفحة الادخال بمعنى بمجرد ادخال رقم الطالب يتم تعبئة اسمه وبياناته وفقا لما هو موجود بصفحة (info) وبمجرد الانتهاء يتم التعبئة في صفحة ( NT)

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

اخي تم عمل المطلوب

Q2.rar

[abueyas2]

الف شكر اخي المبدع بارك الله فيك