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

[yara ahmed]

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

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

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

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

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

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

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

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

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

مع الشكر

يارا .xlsm

[سليم حاصبيا]

الكود المناسب

Option Explicit
Sub My_formula()
With Range("H4:H48")
  .Formula = "=IF(E3="""","""",$B$2)"
  .Value = .Value
End With
End Sub

 

[yara ahmed]

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

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

[سليم حاصبيا]

هل الأعمدة تبدأ  من N   أو من O  ????

[yara ahmed]

تبدأ من nوتنتهى فى r

مشكور يالغالي

[سليم حاصبيا]

الحل 

=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 ahmed]

الله ينور عليك يا باشا

انا عايزة كود بزر يضيف هذه المعادلة النطاق من e3:e50

ربنا يكرمك يارب ويديك الصحة والعافية

[سليم حاصبيا]

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

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

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

Yara_Formula_to_Vba.xlsm

[yara ahmed]

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

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

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

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

[سليم حاصبيا]

 في سطر الــ Address يجب كتابة  "F2"  و ليس "f2" لأن لهذا الأمر أهمية 

[سليم حاصبيا]

أجب أن الفت نظرك ان هذا الماكرو يجب ان يوصع في Module  الصفحة  و ليس قي Module  مستقل

[yara ahmed]

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

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

تم تعديل سبتمبر 28, 2020 بواسطه yara ahmed