السلام عليكم استاذ ياسر
شكراً على التعديل ""اوفيس 2003 يعز علينا بشكل كبير ..
اريد تعديل ان نشاء الله بسيط الكود اصبح يعمل في صفحة ادخل وعند نقل مربعات الادخال الي صفحة الايصال اصبحة غير مربوطة حاولت اضافة كلمة
Sheets("ايصال").Select
ولكن غير صحيحة ............. مجرد محاول
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Target.Address = "$K$13" Then
///////////////////////
Sheets("ايصال").Select
//////////////////////
Shapes("Check Box 41").OLEFormat.Object.Value = True
Shapes("Check Box 42").OLEFormat.Object.Value = False
Shapes("Check Box 43").OLEFormat.Object.Value = False
ElseIf Target.Value = "بريد" Then
Shapes("Check Box 41").OLEFormat.Object.Value = False
Shapes("Check Box 42").OLEFormat.Object.Value = True
Shapes("Check Box 43").OLEFormat.Object.Value = False
ElseIf Target.Value = "بنفسة" Then
Shapes("Check Box 41").OLEFormat.Object.Value = False
Shapes("Check Box 42").OLEFormat.Object.Value = False
Shapes("Check Box 43").OLEFormat.Object.Value = True
End If
End If
End Sub