DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub Matris_Oku()
Dim iParca As Integer
Dim iMakina As Integer
Dim txtBox As MSForms.TextBox
For iMakina = 1 To 5
For iParca = 1 To 5
Set txtBox = Me.Controls("M" & iMakina & "P" & iParca)
Debug.Print txtBox.Name
Next
Next
End Sub