هل من طريقة أو كود استخدمه في الفورم يحل محل علامة يساوي في الإكسيل

[Muner]

السلام عليكم ورحمة الله وبركاته أخواني الأعزاء تحية طيبة مباركة لدي سؤال : هل من طريقة أو كود يحل محل ما نستخدمه في شيت الإكسيل يعني ما في الخلية A1 في شيت ١ يساوي  ما في الخلية A1 في شيت ٢ لكن عن طريق الفورم . 

فورم.xlsm

[عبدالفتاح في بي اكسيل]

بناء  على  طلبك  ان  لم  اسيء  الفهم  الموضوع  ليس  بتلك  التعقيد 

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

Private Sub UserForm_Initialize()
Dim sh1, sh2 As Worksheet
Set sh1 = Sheets("sheet1")
Set sh2 = Sheets("sheet2")
TextBox1.Value = sh1.Range("b4").Value
TextBox2.Value = sh2.Range("b4").Value
End Sub

 

[Muner]

شكرا جزيلا أستاذي الفاضل عبدالفتاح وشكرا على سرعة الرد أيضا جزاك الله خيرا ،ربما أنا لم استطع أن اوصل الفكرة بالشكل الصحيح فقصدي عن طريق الفورم ما اكتبه في الفورم يترحل أو بنتقل إلى خلايا معينة مثلا ، فما في التكست الأول يترحل إلى الخلية B4  في الشيت الأول ، وما في التكست الثاني يترحل إلى D5 في نفس الشيت أو حتى في الشيت الآخر وهكذا كل تكست بكس يترحل إلى خلية معينة في نفس الشيت أو في الشيت الثاني .

أرجو أن الفكرة وصلت ان شاء الله 

أعذروني أنا ضعيف في صياغة وفهم الأكواد لكن في تصميم الفوورم لدي بعض المعلومات فلتعذروني اخوتي .

[عبدالفتاح في بي اكسيل]

اخي  الكريم  هذا  موضوع  مختلف    لا يحتاج  الى  شخص  لديه  خبرة  كبيرة  حتى  يصيغ  السؤال  بشكل  جيد  .

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

اقتباس

فما في التكست الأول يترحل إلى الخلية B4  في الشيت الأول ، وما في التكست الثاني يترحل إلى D5 في نفس الشيت أو حتى في الشيت الآخر 

هذه مضيعة للوقت  في  المرة  الاولى  طلبت  نفس  الخلية B4  لكلتا  الورقتين  والان  تغير  الخلية . هل  علينا  ان  نقوم  بالتخمين ؟؟

قم بانشاء  زر  تحكم   وضع هذا  الكود  وامسح  الكود  السابق . هذا  الكود لورقة واحدة كما طلبت .

Private Sub CommandButton1_Click()
Dim sh1 As Worksheet
Set sh1 = Sheets("sheet1")
sh1.Range("B4").Value = TextBox1.Value
sh1.Range("D5").Value = TextBox2.Value
End Sub

 

  

[Muner]

عفوا أستاذي إذا تسببت في ازعاجك واضعت وقتك لكن كما قلت لك لم اعبر بشكل سليم  .

كان فكرتي هي ما نستخدمه في الإكسيل  هذه الخلية تساوي الخلية  لكن عن طريق الفورم تنتقل .

وعلى فكرة الزر موجود بس لم أعرف لماذا لم يكن موجود في الملف الذي ارسلته لكم . شكرا جزيلا لك جزاك الله خيرا