Kodları döngü ile kısaltma

[işsiz123]

Merhabalar
Aşağıdaki kodları bir döngü ile kısaltabilir miyim? Kodlar C30 ve CheckBox30 a kadar gidiyor.

Sub fd()
If Sheets("TARİH").Range("C1").Value = "" Then
UserForm3.CheckBox1.Visible = False
Else
UserForm3.CheckBox1.Visible = True
End If
If Sheets("TARİH").Range("C2").Value = "" Then
UserForm3.CheckBox2.Visible = False
Else
UserForm3.CheckBox2.Visible = True
End If
If Sheets("TARİH").Range("C3").Value = "" Then
UserForm3.CheckBox3.Visible = False
Else
UserForm3.CheckBox3.Visible = True
End If
If Sheets("TARİH").Range("C4").Value = "" Then
UserForm3.CheckBox4.Visible = False
Else
UserForm3.CheckBox4.Visible = True
End If
If Sheets("TARİH").Range("C5").Value = "" Then
UserForm3.CheckBox5.Visible = False
Else
UserForm3.CheckBox5.Visible = True
End If
If Sheets("TARİH").Range("C6").Value = "" Then
UserForm3.CheckBox6.Visible = False
Else
UserForm3.CheckBox6.Visible = True
End If

.
.
.
.

.
..
.
.
.
..

If Sheets("TARİH").Range("C30").Value = "" Then
UserForm3.CheckBox30.Visible = False
Else
UserForm3.CheckBox30.Visible = True
End If
End Sub

 

[PLİNT]

Merhaba
Aşağıdaki gibi denermisiniz?

Sub fd()
Dim a As Long
For a = 1 To 30
If Sheets("TARİH").Range("C" & a).Value = "" Then
UserForm3.Controls("CheckBox" & a).Visible = False
Else
UserForm3.Controls("CheckBox" & a).Visible = True
End If
Next
End Sub

 

[işsiz123]

Merhaba
Aşağıdaki gibi denermisiniz?

Sub fd()
Dim a As Long
For a = 1 To 30
If Sheets("TARİH").Range("C" & a).Value = "" Then
UserForm3.Controls("CheckBox" & a).Visible = False
Else
UserForm3.Controls("CheckBox" & a).Visible = True
End If
Next
End Sub

Teşekkürler