'hy Satırları arasındaki kodlar eklenecek
ben deneme amaçlı olarak kayıtlarda yer alan "BK2 AG" kullandım siz istediğinizi kullanırsınız
Private Sub PrintArray()
On Error GoTo ErrorHandler
Dim strCtlName As String
Dim i As Integer
For i = LBound(myArray) To UBound(myArray)
strCtlName = "txt" & CStr(i + 1)
Controls(strCtlName).Tag = i
Controls(strCtlName) = ""
Controls(strCtlName) = myArray(i, 2)
'hy Renk değişimi_________________________________
If myArray(i, 1) = True And InStr(myArray(i, 2), "BK2 AG") > 0 Then _
Controls(strCtlName).BackColor = RGB(255, 255, 0) Else _
Controls(strCtlName).BackColor = RGB(255, 255, 255)
'hy Renk değişimi_________________________________Bitti
Next i
ExitSub:
Exit Sub
ErrorHandler:
MsgBox "There has been an error. Please reload the form"
Resume ExitSub
End Sub