تصحيح كود

[saad abed]

Private Sub checkbox1_Click()
'On Error Resume Next
If CheckBox1.Value = True Then
With sheet3.ListBox3
.AddItem
.List = Sheets("data").Range("s2:s20").Value
End With
CheckBox1.Value = False
sheet3.ListBox3.List = ""
End If
End Sub

الهدف من الكود كلما كان شيك بوكس رقم1 ترو اصبح مجال لست بوكس من مجال معين

شيك بوكس رقم2 ترو اصبح مجال لست بوكس من مجال معين

شيك بوكس رقم3 ترو اصبح مجال لست بوكس من مجال معين

حتى شيك بوكس رقم6 ترو اصبح مجال لست بوكس من مجال معين

الكود يعطى خطا عند

.AddItem
.List = Sheets("data").Range("s2:s20").Value

 

 

[saad abed]

Private Sub saad1_Click()
'On Error Resume Next
If saad1.Value = True Then
With sheet3.ListBox2
.AddItem
.List = Sheets("data").Range("s2:s20").Value
End With
Else: saad1.Value = False
Me.ListBox2.Clear
End If
End Sub
'============================
'============================
Private Sub saad2_Click()
If saad2.Value = True Then
With sheet3.ListBox2
.AddItem
.List = Sheets("data").Range("v2:v20").Value
End With
Else: saad2.Value = False
Me.ListBox2.Clear
End If
End Sub
'============================
'============================
Private Sub saad3_Click()
If saad3.Value = True Then
With sheet3.ListBox2
.AddItem
.List = Sheets("data").Range("t2:t20").Value
End With
Else: saad3.Value = False
Me.ListBox2.Clear
End If
End Sub
'============================
'============================
Private Sub saad4_Click()
If saad4.Value = True Then
Me.ListBox2.Clear
With sheet3.ListBox2
.AddItem
.List = Sheets("data").Range("u2:u20").Value
End With
Else: saad4.Value = False
Me.ListBox2.Clear
End If
End Sub
'============================
'============================
Private Sub saad5_Click()
If saad5.Value = True Then
Me.ListBox2.Value = ""
With sheet3.ListBox2
.AddItem
.List = Sheets("data").Range("w2:w20").Value
End With
Else: saad5.Value = False
Me.ListBox2.Value = ""
End If
End Sub
'============================
'============================

اشكركم تم التصحيح

وعمل بشكل صحيح