Phát sinh lỗi khi xuất dữ liệu chỉ có 1 dòng (1 người xem)

[Nguyễn Hồng Quang]

Đầu xuân xin được gửi lời chào tới toàn thể các anh chị em , các bạn của diễn đàn GPE.
Trong bảng dữ liệu mình gửi kèm; sau khi hoàn thành việc tra cứu dữ liệu tên hàng hóa;
mình ấn vào Export Data to E3-Sheet1; dữ liệu tìm kiếm sẽ được đưa ra vùng E3:E1000.
Ví dụ mình nhập 2 từ sài gòn, Kết quả sẽ là 2 dòng dữ liệu được đưa ra vùng E3:E1000(Như trong hình ảnh 1)

Tuy nhiên mình đã gặp lỗi khi kết quả tìm kiếm được là 1 dòng dữ liệu; thì toàn bộ vùng E3:E1000 (Như trong hình ảnh 2) sẽ bị chứa toàn bộ các dòng dữ liệu ấy.
Rất mong các anh chị em và các bạn sửa lỗi giúp mình
Xin cảm ơn
Và chúc anh chị em cùng các bạn năm Mậu Tuất mất thật ít nhưng được rất nhiều

 

[ndu96081631]

Đầu xuân xin được gửi lời chào tới toàn thể các anh chị em , các bạn của diễn đàn GPE.
Trong bảng dữ liệu mình gửi kèm; sau khi hoàn thành việc tra cứu dữ liệu tên hàng hóa;
mình ấn vào Export Data to E3-Sheet1; dữ liệu tìm kiếm sẽ được đưa ra vùng E3:E1000.
Ví dụ mình nhập 2 từ sài gòn, Kết quả sẽ là 2 dòng dữ liệu được đưa ra vùng E3:E1000(Như trong hình ảnh 1)

Tuy nhiên mình đã gặp lỗi khi kết quả tìm kiếm được là 1 dòng dữ liệu; thì toàn bộ vùng E3:E1000 (Như trong hình ảnh 2) sẽ bị chứa toàn bộ các dòng dữ liệu ấy.
Rất mong các anh chị em và các bạn sửa lỗi giúp mình
Xin cảm ơn
Và chúc anh chị em cùng các bạn năm Mậu Tuất mất thật ít nhưng được rất nhiều

sửa chỗ:

If IsArray(arr) Then Range("E4:E1000").Value = arr

thành:

 If IsArray(arr) Then Range("E4").Resize(UBound(arr)).Value = arr

thử xem
------------------
Nhân tiện xóa luôn chỗ này:

    Range("E4").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Replace What:="#N/A", Replacement:="", LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False

vì không cần nữa
------------------------
Ngon hơn chút thì:

Sub fesrtg()
  UserForm1.Show
End Sub

và

Private Sub CommandButton1_Click()
  Range("E4:E1000").ClearContents
  Dim arr
  arr = Filter2DArray(aDes, 2, "*" & RemoveMarks(TextBox1.Text) & "*", False)
  If IsArray(arr) Then Range("E4").Resize(UBound(arr)).Value = arr
End Sub

Gọn vậy thôi
(những sub và function khác để nguyên)

 

[ndu96081631]

Nhân tiện sửa lại toàn bộ thế này:

Private Sub CommandButton1_Click()
  Range("E4:E1000").ClearContents
  With Me.ListBox1
    If .ListCount Then Range("E4").Resize(.ListCount).Value = .List
  End With
End Sub
Private Sub TextBox1_Change()
  Dim arr
  arr = Filter2DArray(aDes, 2, "*" & RemoveMarks(TextBox1.Text) & "*", False)
  If IsArray(arr) Then
    Me.ListBox1.List = arr
  Else
    Me.ListBox1.Clear
  End If
End Sub
Private Sub UserForm_Initialize()
  If (rngSrc Is Nothing) Or bChk Then
    Auto_Open
    bChk = False
  End If
End Sub

Bởi không cớ gì đã có dữ liệu trên ListBox lại không chịu lấy xuống sheet luôn mà lại đi lọc lần nữa

 

[Nguyễn Hồng Quang]

Nhân tiện sửa lại toàn bộ thế này:

Private Sub CommandButton1_Click()
  Range("E4:E1000").ClearContents
  With Me.ListBox1
    If .ListCount Then Range("E4").Resize(.ListCount).Value = .List
  End With
End Sub
Private Sub TextBox1_Change()
  Dim arr
  arr = Filter2DArray(aDes, 2, "*" & RemoveMarks(TextBox1.Text) & "*", False)
  If IsArray(arr) Then
    Me.ListBox1.List = arr
  Else
    Me.ListBox1.Clear
  End If
End Sub
Private Sub UserForm_Initialize()
  If (rngSrc Is Nothing) Or bChk Then
    Auto_Open
    bChk = False
  End If
End Sub

Bởi không cớ gì đã có dữ liệu trên ListBox lại không chịu lấy xuống sheet luôn mà lại đi lọc lần nữa

Mấy hôm bận quá, hôm nay quay lại GPE, được anh giúp đỡ, em rất vui và thích thú với cách anh dùng listcount (sau khi đọc bài của anh, em có tìm hiểu thêm và đã học được cách sử dụng thêm các thuộc tính của listcount để đưa ra bảng tính số lượng dòng trong list). Em cảm anh. Rất hy vọng năm nay lại được gặp lại anh ndu ở Hà nội