Tìm dữ liệu kiếm dữ liệu bằng cell trong VBA

[YêuCN]

Mình có một file cần giúp đỡ mong mọi người xem qua. Các yêu cầu đã đề cập trong file đính kèm

 

[snow25]

Mình có một file cần giúp đỡ mong mọi người xem qua. Các yêu cầu đã đề cập trong file đính kèm

Bạn đã làm với VBA thì cần Bảng data chuẩn.Chứ data của bạn linh tinh quá.Mà sao không làm bằng Form trong vba để ở sheets làm gì.

 

[YêuCN]

Bạn đã làm với VBA thì cần Bảng data chuẩn.Chứ data của bạn linh tinh quá.Mà sao không làm bằng Form trong vba để ở sheets làm gì.

Form cũng dc a giúp dùm e

 

[SA_DQ]

Xài macro sự kiện này trên file của bạn:

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, [H11]) Is Nothing Then
    Dim Rng As Range, sRng As Range
    
    Set Rng = [F5].CurrentRegion.Offset(1).Resize(2)
    Set sRng = Rng.Find(Target.Value, , xlFormulas, xlWhole)
    If sRng Is Nothing Then
        MsgBox "Tìm Không Có", , "GPE.COM Xin Thông Báo!"
    Else
        [S11].Value = Cells(5, sRng.Column).Value
    End If
 End If
End Sub

Mà sao bạn bố trí dữ liệu kì làm vậy?
Còn muốn xài Form thì dữ liệu nên khác đi.

 

[YêuCN]

Xài macro sự kiện này trên file của bạn:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [H11]) Is Nothing Then
    Dim Rng As Range, sRng As Range
  
    Set Rng = [F5].CurrentRegion.Offset(1).Resize(2)
    Set sRng = Rng.Find(Target.Value, , xlFormulas, xlWhole)
    If sRng Is Nothing Then
        MsgBox "Tìm Không Có", , "GPE.COM Xin Thông Báo!"
    Else
        [S11].Value = Cells(5, sRng.Column).Value
    End If
End If
End Sub

Mà sao bạn bố trí dữ liệu kì làm vậy?
Còn muốn xài Form thì dữ liệu nên khác đi.

bác có thể lưu thông tin tên xuống các dòng k18 trờ xuống không ạ đòng thời lấy dãy mã số ghi xuống cột I 18 tương ứng với tên đó không ạ (3333),các mã số khi ghi tiếp xuống dòng s11, em cám ơn bác

 

[SA_DQ]

Sub DienMaSoTimThayLenTrangTinh()
 Dim Rws As Long
 
 With Sheets("Ghi Danh")
    Rws = .[I65500].End(xlUp).Row + 1
    Cells(Rws, "I").Value = .[S11].Value:        Cells(Rws, "K").Value = .[H11].Value
  End With
End Sub

 

[YêuCN]

Sub DienMaSoTimThayLenTrangTinh()
Dim Rws As Long

With Sheets("Ghi Danh")
    Rws = .[I65500].End(xlUp).Row + 1
    Cells(Rws, "I").Value = .[S11].Value:        Cells(Rws, "K").Value = .[H11].Value
  End With
End Sub

cám ơn bác SA_DQ rất nhiều chúc bác luôn có nhiều sức khỏe để góp sức cho diễn đàn !

Bài đã được tự động gộp: 6/9/19

em xin phép đóng bài ở đây