code lấy dữ liệu theo mã (8 người xem)

[maiban116]

chao anh chị. xin anh chị hướng dẫn code lấy dữ liệu theo mã học sinh. em đưa lên ví dụ nhờ các anh chị hướng dẫn cjo. xin cảm ơn

 

[saobekhonglac]

chao anh chị. xin anh chị hướng dẫn code lấy dữ liệu theo mã học sinh. em đưa lên ví dụ nhờ các anh chị hướng dẫn cjo. xin cảm ơn

Mã vùng lấy ở đâu vậy bạn

 

[maiban116]

Mã vùng lấy ở đâu vậy bạn

xin nỗi mình gửi lại file. bạn xem hộ ạ

 

[saobekhonglac]

xin nỗi mình gửi lại file. bạn xem hộ ạ

xin nỗi mình gửi lại file. bạn xem hộ ạ

Xem đúng ý chưa.

 

[snow25]

chao anh chị. xin anh chị hướng dẫn code lấy dữ liệu theo mã học sinh. em đưa lên ví dụ nhờ các anh chị hướng dẫn cjo. xin cảm ơn

Bạn xem đúng chưa nhé

 

[maiban116]

Bạn xem đúng chưa nhé

xin hỏi áp dụng code của bạn sao không được. mình gửi file mong bạn hướng dẫn. xin cảm ơn

 

[snow25]

xin hỏi áp dụng code của bạn sao không được. mình gửi file mong bạn hướng dẫn. xin cảm ơn

đây bạn ơi bạn chỉ định không đúng sheets và xóa thiếu vùng mình đã chỉnh lại nhé

 

[maiban116]

đây bạn ơi bạn chỉ định không đúng sheets[/QUOTE
cám ơn bạn nhiều. nhưng sao vẫn nỗi khi thay đổi mã. mong bạn chỉnh lại hộ

 

[snow25]

cái này là bạn đặt câu lệnh xóa thiếu vùng của nó mình đã chỉnh lại file sửa

 

[maiban116]

cái này là bạn đặt câu lệnh xóa thiếu vùng của nó mình đã chỉnh lại file sửa

áp dụng code vào đúng shet vẫn bị báo nối như thế này bạn ah

 

[snow25]

áp dụng code vào đúng shet vẫn bị báo nối như thế này bạn ah

áp dụng code vào đúng shet vẫn bị báo nối như thế này bạn ah

của mình vẫn chạy ngon mà có thấy lỗi đâu nhỉ bạn gửi lại file cho mình xem nào

 

[saobekhonglac]

xin hỏi áp dụng code của bạn sao không được. mình gửi file mong bạn hướng dẫn. xin cảm ơn

Mình cũng k biết vba nên mình rất thích xài công thức, trừ khi công thức không được mới xài vba, chứ còn xài được thì chuộng công thức hơn, về công thức thì cứ tìm anh phan thế hiệp

 

[maiban116]

Mình cũng k biết vba nên mình rất thích xài công thức, trừ khi công thức không được mới xài vba, chứ còn xài được thì chuộng công thức hơn, về công thức thì cứ tìm anh phan thế hiệp

cám ơn bạn nhiều. nhưng công thức khiến file nặng hơn lên đang tìm giải pháp. tiếc là về vba không biết cái gì cả lên hơi khoai

 

[SA_DQ]

Thêm 1 tham khảo macro sự kiện tại [B1] cho chủ bài đăng:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [B1]) Is Nothing Then
    Dim Rws As Long, J As Long, W As Integer
   
    With Sheet2
        Rws = .[B3].CurrentRegion.Rows.Count
        ReDim Arr(1 To Rws, 1 To 4)
        [A3].Resize(Rws, 4).ClearContents
        For J = 4 To Rws + 9
            If .Cells(J, "A").Value = Target.Value Then
                W = W + 1:                                      Arr(W, 1) = W
                Arr(W, 2) = .Cells(J, "B").Value:       Arr(W, 3) = .Cells(J, "c").Value
                Arr(W, 4) = .Cells(J, "D").Value
            End If
        Next J
    End With
    If W Then
        [A3].Resize(W, 4).Value = Arr()
    End If
End If
End Sub

 

[saobekhonglac]

cám ơn bạn nhiều. nhưng công thức khiến file nặng hơn lên đang tìm giải pháp. tiếc là về vba không biết cái gì cả lên hơi khoai

Do mình chọn tới 1111 dòng, chứ ít hơn thì sẽ nhẹ hơn, còn nhiều nữa thì phải dùng vba thôi.