yara ahmed قام بنشر سبتمبر 27, 2020 مشاركة قام بنشر سبتمبر 27, 2020 اخواتى حبايبى احتاج الى ان يعمل هذا الكود كتابة ما بالخلية b2 الى العمود b بدأ من الخلية b3 شرط ان يكون مكتوب فى الخلية E3 وهكذا اذا كتبنا فى E4 تكتب فى b4 اخى استاذ سليم العبقرى الممتاز جدااااااااااااا اهدانى هدية جميلة هى تلك المعادلة =IF(E3="";"";$B$2) حاولت ان احوله لكود بزر Sub test() [C1].Formula = "=IF(E3="""","""",$B$2)" End Sub طبعا ولا حاجة حصلت ههههههههههه مش عارفة ليه وكمان حاولت وضعها فى حدث اذا حدث تغير يعمل الكود ليعمل بدون زر بس محصلش حاجة مع الشكر يارا .xlsm رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر سبتمبر 27, 2020 مشاركة قام بنشر سبتمبر 27, 2020 الكود المناسب Option Explicit Sub My_formula() With Range("H4:H48") .Formula = "=IF(E3="""","""",$B$2)" .Value = .Value End With End Sub 1 رابط هذا التعليق شارك More sharing options...
yara ahmed قام بنشر سبتمبر 27, 2020 الكاتب مشاركة قام بنشر سبتمبر 27, 2020 (معدل) استاذ سليم الجميل سليم حاصبيا والنبى عايزة المعادلة دى كمان بس تغير العمود Q الىR =CHOOSE(MATCH($G$1,$N$1:$Q$1,0), INDEX($N$2:$N$10,MOD(ROWS($A$1:A1)-1,COUNTA($N$2:$N$10))+1), INDEX($O$2:$O$10,MOD(ROWS($A$1:A1)-1,COUNTA($O$2:$O$10))+1), INDEX($P$2:$P$10,MOD(ROWS($A$1:A1)-1,COUNTA($P$2:$P$10))+1), INDEX($Q$2:$Q$10,MOD(ROWS($A$1:A1)-1,COUNTA($Q$2:$Q$10))+1)) مع الشكر من القلب تم تعديل سبتمبر 27, 2020 بواسطه yara ahmed رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر سبتمبر 28, 2020 مشاركة قام بنشر سبتمبر 28, 2020 هل الأعمدة تبدأ من N أو من O ???? 1 رابط هذا التعليق شارك More sharing options...
yara ahmed قام بنشر سبتمبر 28, 2020 الكاتب مشاركة قام بنشر سبتمبر 28, 2020 تبدأ من nوتنتهى فى r مشكور يالغالي رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر سبتمبر 28, 2020 مشاركة قام بنشر سبتمبر 28, 2020 الحل =CHOOSE(MATCH($G$1,$N$1:$R$1,0), INDEX($N$2:$N$10,MOD(ROWS($A$1:A1)-1,COUNTA($N$2:$N$10))+1), INDEX($O$2:$O$10,MOD(ROWS($A$1:A1)-1,COUNTA($O$2:$O$10))+1), INDEX($P$2:$P$10,MOD(ROWS($A$1:A1)-1,COUNTA($P$2:$P$10))+1), INDEX($Q$2:$Q$10,MOD(ROWS($A$1:A1)-1,COUNTA($Q$2:$Q$10))+1), INDEX($R$2:$R$10,MOD(ROWS($A$1:A1)-1,COUNTA($R$2:$R$10))+1)) لاحظي الصورو 1 رابط هذا التعليق شارك More sharing options...
yara ahmed قام بنشر سبتمبر 28, 2020 الكاتب مشاركة قام بنشر سبتمبر 28, 2020 الله ينور عليك يا باشا انا عايزة كود بزر يضيف هذه المعادلة النطاق من e3:e50 ربنا يكرمك يارب ويديك الصحة والعافية رابط هذا التعليق شارك More sharing options...
أفضل إجابة سليم حاصبيا قام بنشر سبتمبر 28, 2020 أفضل إجابة مشاركة قام بنشر سبتمبر 28, 2020 تم معالجة الأمر مجرد ما تختارين القيمة المناسبة من الحلية G1 ينفذ الماكرو فوراً الخلية G1 تحتوي غلى فائمة متسدلة (رؤوس الأعمدة) من N الى R Yara_Formula_to_Vba.xlsm 1 رابط هذا التعليق شارك More sharing options...
yara ahmed قام بنشر سبتمبر 28, 2020 الكاتب مشاركة قام بنشر سبتمبر 28, 2020 استاذى واخى سليم حاصبيا معلش حاولت اغير القائمة المنسدلة من g1 الى F2 الكود لايعمل بالاختيار بس ربطه بزر يعمل مش عارفة ايه السبب Option Explicit Sub Salim() Range("E3:E50").ClearContents If Range("f2") = vbNullString Then Exit Sub With Range("E3:E50") .Formula = _ "=IF(INDEX($N$2:$R$50,ROWS($A$1:A1), MATCH($f$2,$N$1:$R$1))=0,"""",INDEX($N$2:$R$50,ROWS($A$1:A1), MATCH($f$2,$N$1:$R$1)))" .Value = .Value End With End Sub Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Target.Address(0, 0) = "f2" And Target.Count = 1 Then Salim End If Application.EnableEvents = True End Sub اجريت التعديلات صح بس لايعمل بمجرد الاختيار يجب ربط الماكرو سليم بزر ليعمل حبى وتقديرى وتحياتى وعميق شكرى لشخصك المحترم الكريم رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر سبتمبر 28, 2020 مشاركة قام بنشر سبتمبر 28, 2020 في سطر الــ Address يجب كتابة "F2" و ليس "f2" لأن لهذا الأمر أهمية 2 رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر سبتمبر 28, 2020 مشاركة قام بنشر سبتمبر 28, 2020 أجب أن الفت نظرك ان هذا الماكرو يجب ان يوصع في Module الصفحة و ليس قي Module مستقل رابط هذا التعليق شارك More sharing options...
yara ahmed قام بنشر سبتمبر 28, 2020 الكاتب مشاركة قام بنشر سبتمبر 28, 2020 (معدل) تمام فى الصفحة والله هو يعمل تمام ولكن بزر مربوط بالماكرو slim لايعمل بتغير القائمة المنسدلة كل الشكر والله للغالى استاذ سليم الباشا فى الاكسيل وفى كل حاجة والله باشا فعلا تم تعديل سبتمبر 28, 2020 بواسطه yara ahmed 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان