Hướng dẫn , giúp đỡ VBA hoặc Macro tạo nút tự lưu dữ liệu (1 người xem)

[duongvanbach]

Xin chào các sư huynh , các bạn
hiện em đang có cái cần giúp đỡ , rất mong được sự chỉ giáo của mọi người . Sự việc là như này ..
Em đang có 1 file excel có sheet Nhập liệu và lưu . Sheet nhập liệp em cầm tạo 1 nút bấm có chức năng copy dữ liệu cụ thể :


khi bấm nút "LƯU" thì sẽ copy hết những dòng có dữ liệu trong sheet Nhập liệu B4:G14 rồi Paste dữ liệu đó sang sheet LƯU . ( Paste vào dưới dòng đã có dữ liệu ) . Ví dụ bây giờ bấm nút " LƯU " thì sẽ copy hết dữ liệu trong B4:G7 sang B8:G11 và tự nhập ngày vào cột A8:A11 .

.cảm ơn .

 

[giangleloi]

Xin chào các sư huynh , các bạn
hiện em đang có cái cần giúp đỡ , rất mong được sự chỉ giáo của mọi người . Sự việc là như này ..
Em đang có 1 file excel có sheet Nhập liệu và lưu . Sheet nhập liệp em cầm tạo 1 nút bấm có chức năng copy dữ liệu cụ thể :

khi bấm nút "LƯU" thì sẽ copy hết những dòng có dữ liệu trong sheet Nhập liệu B4:G14 rồi Paste dữ liệu đó sang sheet LƯU . ( Paste vào dưới dòng đã có dữ liệu ) . Ví dụ bây giờ bấm nút " LƯU " thì sẽ copy hết dữ liệu trong B4:G7 sang B8:G11 và tự nhập ngày vào cột A8:A11 .

.cảm ơn .

Cho code sau vào 1 module rồi chạy xem sao nhé:

Sub Luu_Du_Lieu()
Dim Nguon, lr
With Sheet1
   Nguon = .Range(.[B4], .[B65000].End(3)).Resize(, 6).Value
End With
With Sheet2
    lr = .Range("A" & Rows.Count).End(3).Row
    .Range("A" & lr + 1).Resize(UBound(Nguon, 1)) = .[A1].Value
    .Range("B" & lr + 1).Resize(UBound(Nguon, 1), 6) = Nguon
End With
End Sub

 

[duongvanbach]

được rồi bạn . cảm ơn bạn nhé

 

[phsongnguyen]

Cho code sau vào 1 module rồi chạy xem sao nhé:

Sub Luu_Du_Lieu()
Dim Nguon, lr
With Sheet1
   Nguon = .Range(.[B4], .[B65000].End(3)).Resize(, 6).Value
End With
With Sheet2
    lr = .Range("A" & Rows.Count).End(3).Row
    .Range("A" & lr + 1).Resize(UBound(Nguon, 1)) = .[A1].Value
    .Range("B" & lr + 1).Resize(UBound(Nguon, 1), 6) = Nguon
End With
End Sub

Lưu như vậy thì không được rồi, vì những dữ liệu đã lưu rồi lại lưu lại lần nữa. Cứ mỗi lần bấm nút lưu là nó lưu lại thêm một lần người đó nữa.

 

[giangleloi]

Lưu như vậy thì không được rồi, vì những dữ liệu đã lưu rồi lại lưu lại lần nữa. Cứ mỗi lần bấm nút lưu là nó lưu lại thêm một lần người đó nữa.

Điều đó là lẽ đương nhiên. Chủ topic cũng chỉ yêu cầu đến như vậy và đã phản hồi hài lòng ở #3. Còn muốn lưu 1 lần rồi thôi thì ràng buộc thêm điều kiện nếu lỡ vô tình bấm 2 lần trở lên.

 

[duongvanbach]

Thực ra mình cần thêm một số chức năng nữa , nếu nhân viên đó trong tháng đã nghỉ làm ( nghĩa là đã có trong danh sách lưu nghỉ và trong tháng ) thì sẽ thông báo là " Nhân viên này đã nghĩ , có cho nghỉ tiếp không " nếu đống ý bấm oke để lưu và tiếp tục , nếu không thì bấm no để xóa NV đó .
- Nếu thêm được vấn đề trên và như bạn phsongnguyen nói không gì tuyệt vời hơn . cảm ơn các bạn đã giúp đỡ và quan tâm . hy vọng công việc của mình sẽ nhẹ nhàng hơn .

 

[qdtoday]

[video=youtube;3_ztBO-SO4s]https://www.youtube.com/watch?v=3_ztBO-SO4s[/video]
Vầy đúng ycau chưa bạn?

Lưu ý:
_Kiểm tra trùng dựa vào Tên Nhân viên.
_Đã có kiểm tra trùng tháng. Nghĩa là trùng nhân viên nhưng khác tháng thì nó sẽ im re, vẫn cho chép vào.
_Lúc xóa nhân viên, thì mình chỉ làm trống cái dòng, sau đó bạn phải xóa tay thủ công.
_Màu sắc lên tí cho dễ nhìn. Bạn muốn bỏ màu thì mình bỏ cho. Nhưng nó sẽ rất khó nhìn. Tùy bạn.

 

[duongvanbach]

Vầy đúng ycau chưa bạn?

Lưu ý:
_Kiểm tra trùng dựa vào Tên Nhân viên.
_Đã có kiểm tra trùng tháng. Nghĩa là trùng nhân viên nhưng khác tháng thì nó sẽ im re, vẫn cho chép vào.
_Lúc xóa nhân viên, thì mình chỉ làm trống cái dòng, sau đó bạn phải xóa tay thủ công.
_Màu sắc lên tí cho dễ nhìn. Bạn muốn bỏ màu thì mình bỏ cho. Nhưng nó sẽ rất khó nhìn. Tùy bạn.

Có 1 vấn đề là , công ty mình có rất nhiều nhân viên trùng tên , nếu check thêm cả năm sinh nữa thì ổn hơn bạn à . Cảm ơn bạn nhé .

 

[duongvanbach]

Đợi một ngày mà không thấy gì , các sư huynh giúp em với

 

[qdtoday]

Check Tuổi nữa là xong phải ko cậu?
Tối mình về nhà mình sửa rồi gửi cho. Mai cậu có xài.

 

[duongvanbach]

Check Tuổi nữa là xong phải ko cậu?
Tối mình về nhà mình sửa rồi gửi cho. Mai cậu có xài.

Cảm ơn bạn nhé . bạn cho mình 1 cái tự xóa dòng và 1 cái không tự xóa dòng nhé ,.,,,