عبدالله مسعد محمد قام بنشر سبتمبر 1, 2017 مشاركة قام بنشر سبتمبر 1, 2017 الكود لا يعمل عند فتح ملف اخر مع الملف الخاص ب اليور فورم Private Sub TextBox1_Change() If Me.TextBox1 = "" Then Me.TextBox1.BackColor = vbRed Else Me.TextBox1.BackColor = vbWhite End If Dim i As Long, ii As Long, j As Integer Dim Ary() Me.Frame1.Visible = False ListBox1.Clear iNdx = "" With Worksheets("Active Sheet") For i = 2 To .Cells(Rows.Count, "A").End(xlUp).Row If InStr(.Cells(i, "A"), CStr(Me.TextBox1)) = 1 Then iNdx = iNdx & " " & i ii = ii + 1 ReDim Preserve Ary(1 To ContColmn, 1 To ii) For j = 1 To ContColmn Ary(j, ii) = .Cells(i, j).Value Next End If Next End With If ii Then Me.ListBox1.Column = Ary Erase Ary End Sub Private Sub TextBox10_Change() End Sub Private Sub TextBox2_Change() End Sub Private Sub TextBox4_Change() End Sub 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.