for döngülü if yapısı

[osmanfenerli1907]

merhaba
aşağıdaki kodu kullanırken hata alıyorum.
yapmak istediğim eğer i 1 ise
B1 İLE kart1_1 in eşitliğini kontrol edecek
i 2 ise
B2 ile kar1_2 in eşitliğini kontrol edecek.

Dim i As Integer
For i = 1 To 24
If Sheets("data_kartlar").Range("B" & i) = 1 Then kart1_& i.Visible = True

 

[Orion1]

merhaba
aşağıdaki kodu kullanırken hata alıyorum.
yapmak istediğim eğer i 1 ise
B1 İLE kart1_1 in eşitliğini kontrol edecek
i 2 ise
B2 ile kar1_2 in eşitliğini kontrol edecek.

Dim i As Integer
For i = 1 To 24
If Sheets("data_kartlar").Range("B" & i) = 1 Then kart1_& i.Visible = True

kart1_1 ile kart1_24 arasında Bu nesnlerdedahil olmak üzere en az 1 nesneniz userformunuzda yok.

 

[osmanfenerli1907]

hocam tekrar kontrol ettim var hepsi.
hatam invalid qualifer

 

[Orion1]

hocam tekrar kontrol ettim var hepsi.
hatam invalid qualifer

Bilemyecem.Dosyayı görmem lazım.

 

[osmanfenerli1907]

dosya ekte

 

[Orion1]

Dosyanız ektedir.

Private Sub UserForm_Initialize()
Dim i As Integer
For i = 1 To 24
    If Sheets("data_kartlar").Range("B" & i) = 1 Then Controls("kart1_" & i).Visible = True
Next i
End Sub

 

[osmanfenerli1907]

çok teşekkürler.sorun çözüldü

 

[Orion1]

çok teşekkürler.sorun çözüldü

Rica ederim.
İyi çalışmalar.