Trả dữ liệu theo tham số (1 người xem)

[ThaiDieuAnh]

Em có file như đính kèm và yêu cầu cụ thể đã ví dụ trong file, mong các anh chị giúp đỡ, em xin cảm ơn nhiều ạ!

 

[phulien1902]

Em có file như đính kèm và yêu cầu cụ thể đã ví dụ trong file, mong các anh chị giúp đỡ, em xin cảm ơn nhiều ạ!

Thử:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$K$5" Then
        ABC
    End If
End Sub

Sub ABC()
    Dim i%
    [k6:k12].ClearContents
    For i = 4 To 7
        If [k5] = Cells(4, i) Then
            Cells(4, i).Offset(1).Resize(8).SpecialCells(xlCellTypeConstants, 6).Copy
            Range("K6").PasteSpecial
           Application.CutCopyMode = False
        End If
    Next
End Sub

 

[ThaiDieuAnh]

Thử:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$K$5" Then
        ABC
    End If
End Sub

Sub ABC()
    Dim i%
    [k6:k12].ClearContents
    For i = 4 To 7
        If [k5] = Cells(4, i) Then
            Cells(4, i).Offset(1).Resize(8).SpecialCells(xlCellTypeConstants, 6).Copy
            Range("K6").PasteSpecial
           Application.CutCopyMode = False
        End If
    Next
End Sub

Em muốn dữ liệu trả về là cột B (Mã nội dung) chứ không phải là cột tương ứng với tham số bác ạ

 

[♫ђöล♥ßล†♥†µ♫]

Em muốn dữ liệu trả về là cột B (Mã nội dung) chứ không phải là cột tương ứng với tham số bác ạ

Bạn xem thử

 

[SA_DQ]

Cách không giống ai, UDF nè: