Xin giúp hoàn thành sheet này hộ mình

[sambo]

E có 2 sheet, sheet1 là list đồ dùng chi tiêu trong ngày và số lượng,sheet2 E muốn nhập thứ vào thì nó hiện ra list chi tiêu của thứ đó đc link từ sheet1 sang,E làm mãi mà ko đc,nhờ các anh chị làm hộ và chỉ rõ cách làm với ạ,em cảm ơn, e đính file kèm theo đây.

 

[thainguyen]

chi tieu trong tuan

Không biết làm như thế này đúng ý bạn chưa?
Tham khảo nha.

 

[ndu96081631]

E có 2 sheet, sheet1 là list đồ dùng chi tiêu trong ngày và số lượng,sheet2 E muốn nhập thứ vào thì nó hiện ra list chi tiêu của thứ đó đc link từ sheet1 sang,E làm mãi mà ko đc,nhờ các anh chị làm hộ và chỉ rõ cách làm với ạ,em cảm ơn, e đính file kèm theo đây.

Thử với code này xem:

Private Sub Worksheet_Change(ByVal Target As Range)
  Application.ScreenUpdating = False
  On Error GoTo Thoat
  If Target.Address = "$A$5" Then
    Range("A6:C1000").ClearContents
    With Sheet1.Range("A1").CurrentRegion
      .Offset(.Rows.Count)(1, 1) = " "
      Sheet1.Range(.Find(Target).Offset(1), .Find(Target).End(xlDown).Offset(-1)).Resize(, 3).Copy
      Target.Offset(1).PasteSpecial 3
      .Offset(.Rows.Count)(1, 1).Clear
    End With
    With Range("C65536").End(xlUp)
      .Offset(1, -2) = "Tong"
      .Offset(1, 0) = WorksheetFunction.Sum(Range(.Cells, .End(xlUp)))
    End With
    Target.Select
  End If
Thoat:
End Sub

 

[sambo]

Cam ơn 2 bạn Thainguyen và Ndu nhiều nhé,cách của bạn Thainguyen thì phải edit sheet1 trong khi em ko muốn thế,em sẽ thử tìm hiểu cách của ndu xem ntn,vì code thì e ko thạo lắm,lỡ có thay đổi j form bên sheet1 thì e ko biết đường mà lần,hic

 

[viendo]

Cam ơn 2 bạn Thainguyen và Ndu nhiều nhé,cách của bạn Thainguyen thì phải edit sheet1 trong khi em ko muốn thế,em sẽ thử tìm hiểu cách của ndu xem ntn,vì code thì e ko thạo lắm,lỡ có thay đổi j form bên sheet1 thì e ko biết đường mà lần,hic

Nếu bạn muốn dùng công thức và name mà không muốn thay đổi sheet1, nghía file xem sao :

 

[huuthang_bd]

Nếu bạn muốn dùng công thức và name mà không muốn thay đổi sheet1, nghía file xem sao :

Không cần nhiều name đến thế đâu.

 

[viendo]

Không cần nhiều name đến thế đâu.

Đề không cho sửa sheet1 nên phải cực khổ xài name để xác định vùng dữ liệu, nhất là vùng dữ liệu cuối cùng . Anh sửa đề thêm "Tổng " vào để có điểm dùng xác định vùng dữ liệu cuối nên không cần dùng name hichic.
Nếu không sửa đề Anh có cách nào khác để xác định vùng dữ liệu cuối, xin chỉ giáo

 

[huuthang_bd]

Đề không cho sửa sheet1 nên phải cực khổ xài name để xác định vùng dữ liệu, nhất là vùng dữ liệu cuối cùng . Anh sửa đề thêm "Tổng " vào để có điểm dùng xác định vùng dữ liệu cuối nên không cần dùng name hichic.
Nếu không sửa đề Anh có cách nào khác để xác định vùng dữ liệu cuối, xin chỉ giáo

Vậy mời bạn xem file!