Formul hatası

[unfors]

Dim i As Integer

For i = 1 To 6

If TextBox & i = Empty Then

CommandButton8.Enabled = True

Else
CommandButton8.Enabled = False

End If
Next

Textbox'lar ve CommandButton Sayfa İçerisinde;

TextBox'lar boş olmasına rağmen formül devamlı "CommandButton8.Enabled = False" şeklinde sonuç veriyor. Hata nedir?

 

[Ömer BARAN]

Merhaba.

TextBox & i yerine Controls("TextBox" & i)
şeklinde dener misiniz?
.

 

[unfors]

Maalesef yine hata veriyor. "Controls" Useform ile ilgili galiba

 

[Ömer BARAN]

Tekrar merhaba.

Cevaplarımın altındaki İMZA bölümünde yer alan açıklamaları okuyarak bir örnek belge ekleyiniz.
.

 

[Orion1]

6 textbox boşsa yada 6 textbox doluysa çalışır.

Dim txtnesne As Object, say As Byte, var As Integer, yok As Integer
For Each txtnesne In ActiveSheet.OLEObjects
    If TypeName(txtnesne.Object) = "TextBox" Then
        say = Right(txtnesne.Name, 1)
        If say >= 1 And say <= 6 Then
            If txtnesne.Object.Value = Empty Then
                yok = yok + 1
            Else
                var = var + 1
            End If
        End If
    End If
Next
If yok = 6 Then ActiveSheet.CommandButton8.Enabled = True
If var = 6 Then ActiveSheet.CommandButton8.Enabled = False