احمد حبيبه قام بنشر أكتوبر 30, 2018 مشاركة قام بنشر أكتوبر 30, 2018 السلام عليكم ورحمة الله وبركاته الاخوه الاعزاء المطلوب : لما اكتب فى العمود c سدد يكتب اليا فى الاعمده من d الى o صفر والاعمده من p الى R يكتب فيها لا ... الرجاء عمل ذلك بكود وربطه بزر ويا ريت بلاش معادلات كود.rar رابط هذا التعليق شارك More sharing options...
احمد حبيبه قام بنشر أكتوبر 30, 2018 الكاتب مشاركة قام بنشر أكتوبر 30, 2018 للرفع رابط هذا التعليق شارك More sharing options...
ابراهيم الحداد قام بنشر أكتوبر 31, 2018 مشاركة قام بنشر أكتوبر 31, 2018 السلام عليكم ورحمة الله ضع هذا الكود فى حدث الصفحة Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column <> 3 Or Target.Row < 7 Then Exit Sub Dim C As Range For Each C In Range("C7:C" & Range("C" & Rows.Count).End(xlUp).Row) If C.Value = "سدد" Then C.Offset(0, 1).Resize(1, 12).Value = "0" C.Offset(0, 13).Resize(1, 3).Value = "لا" End If Next End Sub 1 رابط هذا التعليق شارك More sharing options...
Ali Mohamed Ali قام بنشر أكتوبر 31, 2018 مشاركة قام بنشر أكتوبر 31, 2018 وعليكم السلام بالتأكيد كالعادة استاذنا الكبير ابراهيم كود ممتاز بارك الله فيك وجعله فى ميزان حسناتك 2 رابط هذا التعليق شارك More sharing options...
احمد حبيبه قام بنشر نوفمبر 5, 2018 الكاتب مشاركة قام بنشر نوفمبر 5, 2018 في ٣١/١٠/٢٠١٨ at 02:34, ابراهيم الحداد said: السلام عليكم ورحمة الله ضع هذا الكود فى حدث الصفحة Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column <> 3 Or Target.Row < 7 Then Exit Sub Dim C As Range For Each C In Range("C7:C" & Range("C" & Rows.Count).End(xlUp).Row) If C.Value = "سدد" Then C.Offset(0, 1).Resize(1, 12).Value = "0" C.Offset(0, 13).Resize(1, 3).Value = "لا" End If Next End Sub أخرى العزيز أشكرك جدا جدا .... لكن لى طلب اخر أريد ان ان يعمل الكود أيضا بنفس الاليه لو غيرنا كلمه (سدد) الى كلمه (انهى ) او كلمة (خالص) يتم تنفيذ نفس المطلوب واشكرك جدا على تفهمك ودعمك رابط هذا التعليق شارك More sharing options...
Ali Mohamed Ali قام بنشر نوفمبر 5, 2018 مشاركة قام بنشر نوفمبر 5, 2018 تفضل بعد اذن استاذى الكبير ابراهيم له منا كل المحبة والإحترام Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 3 Or Target.Row < 7 Then Exit Sub Dim C As Range For Each C In Range("C7:C" & Range("C" & Rows.Count).End(xlUp).Row) If C.Value = "سدد" Or C.Value = "انهى" Or C.Value = "خالص" Then C.Offset(0, 1).Resize(1, 12).Value = "0" C.Offset(0, 13).Resize(1, 3).Value = "لا" End If Next End Sub 1 رابط هذا التعليق شارك More sharing options...
احمد حبيبه قام بنشر نوفمبر 5, 2018 الكاتب مشاركة قام بنشر نوفمبر 5, 2018 32 دقائق مضت, ali mohamed ali said: تفضل بعد اذن استاذى الكبير ابراهيم له منا كل المحبة والإحترام Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 3 Or Target.Row < 7 Then Exit Sub Dim C As Range For Each C In Range("C7:C" & Range("C" & Rows.Count).End(xlUp).Row) If C.Value = "سدد" Or C.Value = "انهى" Or C.Value = "خالص" Then C.Offset(0, 1).Resize(1, 12).Value = "0" C.Offset(0, 13).Resize(1, 3).Value = "لا" End If Next End Sub أخرى العزيز على ... تسلم ايدك حل رائع لكن هل فى الإمكان ربط الكود بزر وليس فى حدث الصفحة أشكرك جدا جدا رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان