Bấm nút Add thì nhẩy sang sheet khác để lưu lại

[thlpro]

Chào mọi người,

Giúp mình cái file này làm sao: Bấm nút Add ở sheet "Tim Du Lieu" thì nhẩy sang sheet(Summary) để lưu lại.

 

[huuthang_bd]

Thì bạn dùng VLOOKUP() thôi:

C4=VLOOKUP(C3,'Nhan Vien'!$B$3:$D$12,2,0)

C5=VLOOKUP(C3,'Nhan Vien'!$B$3:$D$12,3,0)

 

[Ếch Xanh]

Cái này làm cũng không khó, nhưng tôi tổng quát file này cho bạn:

1) Tại sheet Nhan Vien, chọn khối o B3:B12 đặt name là MaSo và khối B312 với name là NhanVien

2) Tại sheet Tim Du Lieu, ô C3 tôi đã làm cái List (lấy MaSo làm source) để lấy Mã Số.

ô C4 gõ công thức =VLOOKUP(C3,NhanVien,2,0)

ô C5 gõ công thức =VLOOKUP(C3,NhanVien,3,0)

Hai bước trên tôi làm thêm cho bạn tham khảo.

3) Viết code cho nút Add:

Private Sub CommandButton1_Click()
  With Summary
    Dim L As Long
    L = WorksheetFunction.Max(.Range(.[B6], .[B65536].End(xlUp))) + 1
    With .[C65536].End(xlUp)
      .Offset(1, -1).Value = L
      .Offset(1).Value = DuLieu.[C3].Value
      .Offset(1, 1).Value = DuLieu.[C4].Value
      .Offset(1, 2).Value = DuLieu.[C5].Value
    End With
  End With
End Sub

Đó là toàn bộ cách làm để giải quyết vấn đề của bạn.

 

[thlpro]

Trước hết cảm ơn mọi người đã help. Ý của mình là cái tìm kiếm thì mình làm ok rồi. Mình chỉ muốn sau khi tìm kiếm xong, bấm nút add là nó lưu qua sheet Summary, và số thứ tự tự động nhảy theo thứ tự tăng dần. Nếu mình ko định dạng bảng thì mình làm chạy ok, nhưng ko biết mình định dạng bảng màu cho nó thì nó lại chạy tùm bậy. Các bạn xem giúp mình nhé. Sheet Summary2 thì mình làm cũng giống như vậy nhưng ko định dạng bảng màu thì nó chạy ok. Ko biết code lỗi chỗ nào. Mong giúp đỡ. Thanks

 

[Ếch Xanh]

Trước hết cảm ơn mọi người đã help. Ý của mình là cái tìm kiếm thì mình làm ok rồi. Mình chỉ muốn sau khi tìm kiếm xong, bấm nút add là nó lưu qua sheet Summary, và số thứ tự tự động nhảy theo thứ tự tăng dần. Nếu mình ko định dạng bảng thì mình làm chạy ok, nhưng ko biết mình định dạng bảng màu cho nó thì nó lại chạy tùm bậy. Các bạn xem giúp mình nhé. Sheet Summary2 thì mình làm cũng giống như vậy nhưng ko định dạng bảng màu thì nó chạy ok. Ko biết code lỗi chỗ nào. Mong giúp đỡ. Thanks

Tôi đã làm cho bạn rồi mà? sao vậy? có vấn đề gì sao? Riêng vấn đề làm trên Table, bạn đừng bao giờ làm thành nhiều dòng sẳn, như thế sẽ chạy code bị nhầm xuống hàng dưới cùng của bảng.

 

[Ếch Xanh]

Còn một cách nữa là dùng copy, tuy nhiên, với dạng công thức cũng như copy kiểu transpose thì dữ liệu phải liền kề nhau, với tôi thì không thích các cách này. Riêng làm trên bảng trên Table (List), tôi cũng chẳng ưa, thà tôi làm bảng bình thường, muốn thì AutoFilter, còn màu mè thì tôi định dạng CF thế là xong, còn trên Table nó cứ chớp chớp khó chịu lắm, vã lại khi chuyển dữ liệu kiểu End(xlUp) nó lại vướng hàng cuối cùng, trong khi những hàng trên còn trống rỗng!

Đây cũng là một cách mà tôi đã nói:

Private Sub CommandButton1_Click()
  Application.ScreenUpdating = False
  Dim Rng As Range
  Set Rng = Sheets("Summary").[C65536].End(xlUp).Offset(1)
  With Rng
    Sheets("Tim Du Lieu").Range("C3:C5").Copy
    .PasteSpecial 3, Transpose:=True
    .Offset(, -1).Value = "=ROW()-5"
  End With
  Application.CutCopyMode = False
  Application.ScreenUpdating = True
End Sub