Nhập dữ liệu giữa các sheet

[khacdinh2003]

Bạn nào giúp mình giải dùm bài tập này, file của mình là tiếp nhận bảo hành điện thoại, có 1 sheet nhập tất cả máy nhận bảo hành,nhưng gửi lên đến 2 Trung tâm, mình muốn khi check x vào TT1 thì bên sheet TT1 sẽ hiện ra cái thông tin của máy đó, tương tự khi check x vào TT2 thì sẽ hiện thông tin ra ở sheet TT2.

 

[khacdinh2003]

sao không ai giúp mình vậy?hic

 

[qhmh1234]

bạn gửi lại file đi, mình không down file về được

 

[khacdinh2003]

gửi vào đâu cho bạn??

 

[vncnghia]

Gởi khacdinh2003

Phải tổ chức lại cấu trúc dữ liệu của sheet Tiếp nhận một chút mới làm được.
1-Shett tiếp nhận phải đưa số IMEI ra phía trước
2-Dùng hàm vlookup và hàm if để thực hiện cho TT1 và TT2
3-copy xuống các dòng để sau này chỉ cần nhập số IMEI là xong

chúc bạn thành công

 

[concogia]

sao không ai giúp mình vậy?hic

Bài này giải quyết bằng công thức cũng được nhưng hơi phức tạp, dài dòng
Mình đề xuất một cách giải quyết bằng VBA

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Application.ScreenUpdating = False
    Dim Vung As Range, Ws As Worksheet
    Set Ws = Sheets("Tiep nhan")
    Set Vung = Ws.Range(Ws.[a1], Ws.[a1000].End(xlUp))
        If ActiveSheet.Name = "Giao TT1" Or ActiveSheet.Name = "Giao TT2" Then
            [a5].CurrentRegion.Clear
            Vung.Offset(, 1).Resize(, 3).EntireColumn.Hidden = True
                With Vung.Resize(, 10)
                    .AutoFilter IIf(ActiveSheet.Name = "Giao TT1", 3, 4), "x"
                    .SpecialCells(12).Copy [b5]
                    .AutoFilter
                End With
            [a5] = "STT": [c1000].End(xlUp)(2) = "BÊN GIAO": [G1000].End(xlUp)(2) = "BÊN NHÂN"
            Range([b6], [b1000].End(xlUp)).Offset(, -1) = [row(A:A)]
            Ws.Cells.EntireColumn.Hidden = False
        End If
    Application.ScreenUpdating = True
End Sub

Bạn cứ nhập những "x" ở 2 cột C & D rồi chọn sheet "Giao TT1" hoặc "Giao TT2" xem kết quả
Các tên Sheet nên không có dấu tiếng Việt
Thân