جعل الماكر يتم تطبيقة على كل أكثر من خلية

[salman a]

السلام عليكم

سؤالي :

لدي ماكرو يقوم بتنفيذ العملية على الخلية A2 ويعطي النتيجة في الخلية B2

المطلوب جعل الماكر يتم تطبيقة على كل من A2 حتى الخلية A15

المطلوب تكرار الماكرو على باقي الخلايا

[salman a]

مرفق ملف من إعداد الأخ محمد حجازي

المطلوب جعل الكود يعمل على الخلايا بالصف 2

ثم الصف 3

ثم الصف 4

حتى الصف الخامس عشر مثلا

وليس فقط على الصف الثالث كما بالكود

file777.rar

تم تعديل أغسطس 25, 2006 بواسطه salman a

[علي السحيب]

يتم تعديل الكود إلى التالي:

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Ali
    If Target.Column <> 2 Or Target.Row < 3 Or Target.Row > 15 Or Cells(Target.Row, Target.Column - 1) = "لا" Or Cells(Target.Row, Target.Column - 1) = "" Then Exit Sub
    
    If Target.Column = 2 And Target.Row >= 3 And Target.Row <= 15 And Cells(Target.Row, Target.Column - 1) = "نعم" Then
       Cells(Target.Row, Target.Column + 1) = Cells(Target.Row, Target.Column + 1) + Cells(Target.Row, Target.Column)
    Exit Sub
    End If
    
Ali:
    If Err = 1004 Then
    Me.Activate
    Else
    Resume
    End If
End Sub

file1.rar

[salman a]

الأخ علي

السلام عليكم

أشكر لك تجاوبك

رجاء مراجعة الرابط حيث ان طلبي حسب ما أعتقد أكثر وضوحا

أنا لا اريد تغير عمل الكود .

أريد أن يعمل بطريقة LOOP

وعلى أكثر من صف تحياتي

http://www.officena.net/ib/index.php?showtopic=13479

>>>><<<<<<

تم تعديل أغسطس 26, 2006 بواسطه salman a