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

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

قام بنشر

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

عندى شيت قاعدة بيانات ( A) وشيت اخر عبارة عن استمارة (B) بمله الاستمارة عن طريق المعادلات ولكن شيت القاعدة وصل قرب نهايتة

هل يوجد حل ان اكمل البيانات فى شيت اخر ولنفترض ©

يعنى اريد قاعدة بيانات تكون شيت a وشيت c

قام بنشر

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

لذا إن تفضلت أخي الكريم بإرفاق ملف ربما تساهم في إفادة غيرك وأيضا يفيدك الغير بحل و جواب لسؤالك

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

قام بنشر (معدل)

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

اتمنى ان تكون فكرتى وصلت اليكم

لو فى حل او فكرة اخره ياريت حد يقولى

اشكركم

تم تعديل بواسطه goodlife
قام بنشر

اخى الكريم

رجاء توضيح سؤالك بصورة افضل لكى يتمكن الاعضاء من تحديد المشكلة وحلها على النحو الصحيح

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

الحل بسيط قم باضافة شيت اخر "" وانا اعلم جيدا انك لا تقصد هذا ""

فلذلك يجب التوضيح بصورة افضل او ارفاق الملف المطلوب التعديل عليه

قام بنشر

السلام عليكم

goodlife

ان كان المرفق به بيانات و مثال للمعادلة التي تريد تطبيقها علي الشيتان لكان افضل

و لكن عامتا هذه امثلة بسيطة لعلها تفيد

=SUM(Sheet2!A:A)+SUM(Sheet3!A:A) في حالة جمع عادي من شيتان

=IFERROR(VLOOKUP(A1,Sheet2!A:B,2,FALSE),VLOOKUP(A1,Sheet3!A:B,2,FALSE)) وهذه في حالة استخدم معادلة بحث

و هكذا سوف تضطر الي تكرار كا معدلاتك

تحياتي

قام بنشر

شاهدت المرفق يوجد ملف فقط

ارجو ارفاق الملفات التي تريد جلب القيم منها ومن اي مدى

كي تتضح الصورة

فهم السؤال نصف الاجابه

قام بنشر

السلام عليكم

فرضا خلية البحث هيا " A1 " في ورقة1

في المدى من " A:Z "


Option Explicit

Public Sub Ali_Serch_Sh()

Dim Mat_A

Dim Ws As Worksheet

Dim R As Range

Dim Msg_A As String, Fir_A As String

    Mat_A = Sheets("ورقة1").Range("A1").Value

    Msg_A = Mat_A & "    وجدت القيمة :" & Chr(10) & " =========================== " & Chr(10)

    For Each Ws In Worksheets

	    With Ws

	    If .Name = ActiveSheet.Name Then GoTo 1

		    Set R = .Columns("A:Z").Find(What:=Mat_A, LookIn:=xlValues, LookAt:=xlPart)

		    If Not R Is Nothing Then

			    Fir_A = R.Address

			    Do

				    Msg_A = Msg_A & "- في ورقة " & Ws.Name & ", في الخلية " & R.Address & Chr(10) & Chr(10)

				    Set R = .Columns("A:Z").FindNext(R)

			    Loop While Not R Is Nothing And R.Address <> Fir_A

		    End If

	    End With

1    Next Ws

    MsgBox Msg_A

End Sub

جرب الكود وبلغنى بالنتائج

قام بنشر

صباح الخير استاذ عباد اشكرك لتعبك جزاك الله خير

اخى انا سؤالى لما يخلص الشيت كله عايز ادخل باقى البيانات فى شيت تانى ولما اضع الرقم الوظيفى فى شيت الاستمارة يعطينى النتائج و ما يتقرر البيانات و جزاهم الله خير الاخوة هنا اعطونى حل ولكن انا بسأل ممكن يكون الحل دة بالكود

بمعنى ان الكود دة يلم شيت 1 و2 وما يقرر الاسم ويعطينى النتائج صحيحية

انا اسف ان مش عارف اوصلك الفكرة انا بس مش خبير فى الاكسيل

اشكرك مره تانية لتعبك

قام بنشر

السلام عليكم

هل تريد تنفيذ الكود مجرد التغير في قيمة خلية " B4 "

وهل المعادلات التي تريدها أكواد هي التي في الخلايا " B13 , B14 , K14 , D16 , D17 , D18 "

اذا هذا ماتريده ارفق الملف وبه بيانات في ورقة " 1 " و ورقة " 2 "

للتأكد من نتائج الكود

وإن شاء الله خير

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information