Boş Textbox bulan döngü

[topcuexcel]

Merhabalar
A1 den A20 'e kadar 20 tane TextBox 'ım var. Boş olan TextBox'ı bulup oraya veri girmek için bir döngü yazmaya çalışıyorum ama olmuyor. Yardımcı olabilirseniz çok sevinirim.

Dim i As Integer
For i = 1 To 20 Step 1
Text = "A" & i
If Text = Empty Then Text = "YARDIMCI MALZEME"
Next
End Sub

 

[snx111]

Private Sub bos_textboxlaribul_yaz()
On Error Resume Next
Dim i As Integer
c = Worksheets("Sayfa1").OLEObjects.Count
For i = 1 To c

If Worksheets("Sayfa1").OLEObjects("TextBox" & i).Object.Text = "" Then
Worksheets("Sayfa1").OLEObjects("TextBox" & i).Object.Text = "YARDIMCI MALZEME"

End If
Next
End Sub

 

[Murat OSMA]

Şu kodları deneyiniz;

Private Sub CommandButton1_Click()
    Dim i As Control
    For Each i In Controls
        If VBA.TypeName(i) = "TextBox" And i.Value = "" Then
            MsgBox i.Name & " Boş"
        End If
   Next i
   Set i = Nothing
End Sub

Private Sub CommandButton1_Click()
    Dim i As Integer
    For i = 1 To 20
        If Controls(i).Value = "" Then
            MsgBox Controls(i).Name & " Boş"
        End If
    Next i
    i = Empty
End Sub

 

[topcuexcel]

Denedim ama yapamadım.
Ekte userformu ekledim. (Kullanıcı Girişi > Şifre : 1)
Ürün Ağacı sayfasında textboxlar var. Stok Kodunun altındaki Textboxların adlarını değiştirdim. A1,A2,A3.. Diye
Şimdi bir döngü önerebilir misiniz?

 

[Murat OSMA]

Butona şu kodları yazınız;

    Dim i As Control
    For Each i In Controls
        If VBA.Left(i.Name, 1) = "A" Then
            If i.Text = "" Then
                MsgBox i.Name & " Boş"
            End If
        End If
    Next i
    Set i = Nothing

 

[topcuexcel]

Murat bey çok teşekkürler oldu.

 

[Murat OSMA]

Rica ederim...

Kodlar üzerinde biraz düşünürseniz, anlamaya gayret ederseniz, bu tarz çözümleri kendiniz yaptığınız zaman çok daha mutlu olursunuz...

İyi akşamlar...