Arkadaşlar merhaba ben excelde bir takip listesi oluşturdum bu listede 1000 adet kaydım olacak ve her satırda bir adet checkbox bulunacak. Yani toplamda 1000 adet checkbox olacak. Satırdaki checkboxa tıklandığında o satırı yeşil yapıyorum. Bunu her bir checkbox için ayrı ayrı yapabiliyorum. Fakat aynı kodu 1000 defa yazmak istemiyorum o yüzden bir adet buton koydum sayfama seçilen checkboxlar seçildikten sonra bu butona tıklanacak ve seçili olan satırlar yeşil olacak olmayanlar kırmızı olacak. For içerisinde olur diye düşündüm fakat bir türlü for içindeki if ten sonra gelen checkbox satırının hatasını çözemedim denediğim kodu da buraya ekliyorum en kısa zamanda yardımlarınızı bekliyorum şimdiden teşekkürler.
Kod:
Private Sub CommandButton1_Click()
For i = 1 To 1000
If CheckBox & i.Value = True Then
Range("A&i+1:O&i+1").Interior.Color = vbGreen
Else
Range("A&i+1:O&i+1").Interior.Color = vbRed
End If
Next i
End Sub
Kod:
Private Sub CommandButton1_Click()
For i = 1 To 1000
If CheckBox & i.Value = True Then
Range("A&i+1:O&i+1").Interior.Color = vbGreen
Else
Range("A&i+1:O&i+1").Interior.Color = vbRed
End If
Next i
End Sub
