Textbox change döngüsü hk

[chakistes]

merhaba arkadaşlar elimde 100 adet textbox var her 25 textbox farklı işlem yapıyor örnek ilk 25 textbox okulno1 den 25 ye kadar devam ediyor bunlarda userformda textbox change olayına yazdığım işlemi döngü ile yapabilirmiyim.

change olayı için bu kodu döngü 25 adet döngüye çevirmek istiyorum.
Private Sub okulno1_Change()
Sheets("sayfa3").Range("B1").Value = okulno1.Text
End Sub

 

[Muzaffer Ali]

Merhaba.
Aşağıdaki kodları formun kod editörüne kopyalayın.

Option Explicit
Option Compare Text

Dim txtOkulNo() As New Class1

Private Sub UserForm_Initialize()
    Dim bak As Control
    ReDim txtOkulNo(0)
    
    For Each bak In Me.Controls
        If Left(bak.Name, 6) = "okulno" Then
            ReDim Preserve txtOkulNo(UBound(txtOkulNo) + 1)
            Set txtOkulNo(UBound(txtOkulNo)).txt = bak
        End If
    Next
End Sub

Yen Bir Class sayfası ekleyin. Aşağıdaki kodları kopyalayın.

Option Explicit

Public WithEvents txt As MSForms.TextBox

Private Sub txt_Change()
    Sheets("sayfa3").Range("B1").Value = txt
End Sub

İsmi "okulno" ile başlayan bütün TextBoxlarda bir değişiklik olduğunda "Sheets("sayfa3").Range("B1").Value = txt" satırı çalışacaktır.

 

[chakistes]

Teşekkür ederim yardımın için