Giúp mình Về dữ liệu bảng (1 người xem)

[alak.andmore]

mình có bài sau bạn nào giúp mình với !

 

[thehungqnu]

VLOOKUP không được đâu bạn ơi, vì mã hóa đơn giống nhau, bạn xem lại dữ liệu chứ MHĐ phải là duy nhất.

 

[alak.andmore]

Uk mình cũng thử rùi Lookup ko dc toàn trả về GT cuối cùng thôi. mình biết hàm index làm đc điều này thì phải nhưng mình không biết làm kiểu gì. với lại đang băn khoăn là làm cách nào khác mà không phải ghi trùng mã HD không nữa. 1 hóa đơn có nhiều mặt hàng khác nhau mà. mà lại phải nhập tất trên 1 sheet mới đau đầu chứ .

 

[nghiaphuc]

mình có bài sau bạn nào giúp mình với !

Hình như bạn muốn khi chọn Mã đơn hàng tại ô I3 thì sẽ lọc các mã hàng tương ứng trong bảng phía dưới.
Bạn thực hiện các bước:
1. Sử dụng code này cho Sheet Hóa đơn:

Private Sub Worksheet_Deactivate()
    Range([A4], [A65536].End(xlUp)).AdvancedFilter xlFilterCopy, , [I1], 1
End Sub

2. Sửa lại Name MaHD một xíu:

=OFFSET('Hóa Đơn'!$I$2,,,COUNTA('Hóa Đơn'!$I:$I)-1)

3. Sử dụng code này cho Sheet In phiếu:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address <> "$I$3" Then Exit Sub
    Sheet1.Range(Sheet1.[A4], Sheet1.[A65536].End(xlUp)).Resize(, 6).AdvancedFilter xlFilterCopy, [I2:I3], [A6:D6]
End Sub

Nhớ sửa lại tiêu đề của bảng trên Sheet In phiếu cho trùng khớp với trên Sheet Hóa đơn để AdvancedFilter hoạt động đúng.

 

[Ba Tê]

Uk mình cũng thử rùi Lookup ko dc toàn trả về GT cuối cùng thôi. mình biết hàm index làm đc điều này thì phải nhưng mình không biết làm kiểu gì. với lại đang băn khoăn là làm cách nào khác mà không phải ghi trùng mã HD không nữa. 1 hóa đơn có nhiều mặt hàng khác nhau mà. mà lại phải nhập tất trên 1 sheet mới đau đầu chứ .

Nếu không rành VBA (giống như tôi) thì thêm vài cột phụ, Vlookup() cũng xong:
Nếu dữ liệu nhiều hơn thì phải chỉnh lại.

 

[thehungqnu]

Lọc in phiếu

Bạn dùng Code này hoặc file đính kèm mình làm thỏa điều kiện của Bạn đó
Sub loc()
Dim i As Integer
Dim j As Integer
i = 5
j = 6
On Error Resume Next
With Sheets(2)
.Range("A7:E65000").ClearContents
End With
Dim chon As Range
Set chon = Application.InputBox("Chon 1 ô ma don hang can in phieu: ", "Lay gia tri ma don hang", Default:="A5", Type:=8)
Do While Cells(i, 1).Value <> ""
If Cells(i, 1).Value = chon Then
j = j + 1
With Sheets(2)
.Cells(j, 1).Value = Cells(i, 1).Value
.Cells(j, 2).Value = Cells(i, 4).Value
.Cells(j, 3).Value = Cells(i, 5).Value
.Cells(j, 4).Value = Cells(i, 6).Value
.Cells(j, 5).Value = Cells(i, 5).Value * Cells(i, 6).Value
End With
End If
i = i + 1
Loop
Set chon = Nothing
Sheets(2).Select
End Sub