اعمده مرتبطه بقيمه معينه فى عمود اخر

[احمد حبيبه]

السلام عليكم ورحمة الله وبركاته

الاخوه الاعزاء

المطلوب :

لما اكتب فى العمود  c  سدد يكتب اليا فى الاعمده من d الى o صفر والاعمده من p الى R يكتب فيها لا ...

الرجاء عمل ذلك بكود وربطه بزر ويا ريت بلاش معادلات

كود.rar

[احمد حبيبه]

للرفع

[ابراهيم الحداد]

السلام عليكم ورحمة الله

ضع هذا الكود فى حدث الصفحة

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

 

[Ali Mohamed Ali]

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

[احمد حبيبه]

في ‏٣١‏/‏١٠‏/‏٢٠١٨ 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

 

أخرى العزيز أشكرك جدا جدا .... لكن لى طلب اخر

أريد ان ان يعمل الكود أيضا بنفس الاليه لو غيرنا كلمه (سدد) الى كلمه (انهى ) او كلمة (خالص)

يتم تنفيذ نفس المطلوب

واشكرك جدا على تفهمك ودعمك

[Ali Mohamed Ali]

تفضل بعد اذن استاذى الكبير ابراهيم له منا كل المحبة والإحترام

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

 

[احمد حبيبه]

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

 

أخرى العزيز على ... تسلم ايدك

حل رائع لكن هل فى الإمكان ربط الكود بزر

وليس فى حدث الصفحة

أشكرك جدا جدا