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

مساعدة فى ضبط كود كتابة كلمة اذا كانت الخلية المقابلة ممتلئة


yara ahmed
إذهب إلى أفضل إجابة Solved by سليم حاصبيا,

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

اخواتى حبايبى

احتاج الى ان يعمل هذا الكود كتابة ما بالخلية b2 الى العمود b بدأ من الخلية b3 شرط ان يكون مكتوب فى الخلية E3

وهكذا اذا كتبنا فى E4 تكتب فى b4

اخى استاذ سليم العبقرى الممتاز جدااااااااااااا اهدانى هدية جميلة هى تلك المعادلة

=IF(E3="";"";$B$2)

حاولت ان احوله لكود بزر

Sub test()
 [C1].Formula = "=IF(E3="""","""",$B$2)"
End Sub

طبعا ولا حاجة حصلت ههههههههههه مش عارفة ليه

وكمان حاولت وضعها فى حدث اذا حدث تغير يعمل الكود ليعمل بدون زر بس محصلش حاجة

مع الشكر

يارا .xlsm

رابط هذا التعليق
شارك

استاذ سليم الجميل سليم حاصبيا

والنبى عايزة المعادلة دى كمان بس تغير العمود 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))

مع الشكر من القلب

تم تعديل بواسطه yara ahmed
رابط هذا التعليق
شارك

الحل 

=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))

لاحظي الصورو

 

Yara_pic.png

  • Like 1
رابط هذا التعليق
شارك

  • أفضل إجابة

تم معالجة الأمر

مجرد ما تختارين القيمة المناسبة من الحلية  G1  ينفذ الماكرو فوراً

الخلية  G1  تحتوي غلى فائمة متسدلة (رؤوس الأعمدة)  من  N  الى R

Yara_Formula_to_Vba.xlsm

  • Like 1
رابط هذا التعليق
شارك

استاذى واخى سليم حاصبيا

معلش حاولت اغير القائمة المنسدلة من 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

اجريت التعديلات صح بس لايعمل بمجرد الاختيار يجب ربط الماكرو سليم بزر ليعمل

حبى وتقديرى وتحياتى وعميق شكرى لشخصك المحترم الكريم

رابط هذا التعليق
شارك

تمام فى الصفحة والله هو يعمل تمام ولكن بزر مربوط بالماكرو slim لايعمل بتغير القائمة المنسدلة

كل الشكر والله للغالى استاذ سليم الباشا فى الاكسيل وفى كل حاجة والله باشا فعلا

تم تعديل بواسطه yara ahmed
  • Like 1
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



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

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

Important Information