Chỉnh sửa code copy dữ liệu và xoá vùng chọn

[Khoa iTO]

Chào các bạn trên GPE!
Nhờ các bạn giúp mình
1. Khi chọn hàng hoá khác thì sẽ tìm hàng trống phía dưới và paste vào.
2. mỗi món hàng chỉ khác nhau vùng chọn mà lặp đi lặp lại như vậy dài quá, Có thể giúp mình rút ngắn code với.
3. Giúp mình đoạn code xoá món hàng được chọn với, mỗi lần chọn món hàng nào muốn xoá thì code sẽ xoá 2 dòng tên và giá ạ.
Mình cảm ơn!
------
Đoạn code trong file đính kèm được sự hỗ trợ của bạn HuongHCKT, tuy nhiên mình lập bài mới để nhờ giúp vì nội dung có khác so với bài cũ chứ ko phải cố ý đăng nhiều bài. mong các mod thông cảm.
Mình cảm ơn!

 

[Maika8008]

Chào các bạn trên GPE!
Nhờ các bạn giúp mình
1. Khi chọn hàng hoá khác thì sẽ tìm hàng trống phía dưới và paste vào.
2. mỗi món hàng chỉ khác nhau vùng chọn mà lặp đi lặp lại như vậy dài quá, Có thể giúp mình rút ngắn code với.
3. Giúp mình đoạn code xoá món hàng được chọn với, mỗi lần chọn món hàng nào muốn xoá thì code sẽ xoá 2 dòng tên và giá ạ.
Mình cảm ơn!
------
Đoạn code trong file đính kèm được sự hỗ trợ của bạn HuongHCKT, tuy nhiên mình lập bài mới để nhờ giúp vì nội dung có khác so với bài cũ chứ ko phải cố ý đăng nhiều bài. mong các mod thông cảm.
Mình cảm ơn!

Chạy thử cách dùng Listbox này có hay hơn cách cũ không.

 

[Maika8008]

Thấy chủ thớt kỳ kỳ sao ấy! Không thấy nói tiếng nào, like rồi sau 1 giờ hủy like. Phải hiểu thế nào nhỉ?

 

[Khoa iTO]

Cảm ơn bạn MaiKa8008!
Mình dùng thử thì thấy theo hướng này sẽ tiện hơn cho việc thêm bớt ở DanhMuc sau này.
Mình thấy có mấy ý này nhờ bạn giúp với:

- giúp mình làm sao để kích đôi vào từng món hàng thì sẽ copy vào HoaDon luôn, đỡ phải mất thêm thao tác rê chuột qua button chọn.
- danh sách ở listbox đang là danh sách tĩnh, nên kéo xuống phía dưới có khoảng trắng, giúp mình cho nó thành danh sách động cập nhật theo sheet DanhMuc.
- code xoá dòng nếu mình đặt con trỏ ở dòng tên hàng thì nó xoá đúng 2 dòng cần xoá, còn nếu chọn đặt con trỏ ở dòng giá phía dưới thì nó xoá dòng giá và dòng trắng phía dưới, dòng tên hàng ko xoá. bạn giúp mình làm sao để khi mình đặt con trỏ ở trên hay dưới code cũng đều xoá đúng 2 dòng tên hàng và giá.

Vậy là file tính tiền nhỏ này đối với mình tương đối ổn rồi
Mình cảm ơn nhiều!

 

[vanthinh3101]

Thấy chủ thớt kỳ kỳ sao ấy! Không thấy nói tiếng nào, like rồi sau 1 giờ hủy like. Phải hiểu thế nào nhỉ?

Chắc là đầu tiên tưởng đúng nên like, sau kiểm tra lại không đúng thì hủy like

 

[Khoa iTO]

Thấy chủ thớt kỳ kỳ sao ấy! Không thấy nói tiếng nào, like rồi sau 1 giờ hủy like. Phải hiểu thế nào nhỉ?

bạn thông cảm vì mạng lag mình like nhưng ko thấy hiện nên mới like tiếp
Nếu có gì kỳ mong bạn bỏ qua!

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

Chắc là đầu tiên tưởng đúng nên like, sau kiểm tra lại không đúng thì hủy like

Đừng nghĩ vậy ạ, mạng lag mình like rồi sau đó ko thấy hiện nên like tiếp lần 2 thôi

 

[Maika8008]

Cảm ơn bạn MaiKa8008!
Mình dùng thử thì thấy theo hướng này sẽ tiện hơn cho việc thêm bớt ở DanhMuc sau này.
Mình thấy có mấy ý này nhờ bạn giúp với:

- giúp mình làm sao để kích đôi vào từng món hàng thì sẽ copy vào HoaDon luôn, đỡ phải mất thêm thao tác rê chuột qua button chọn.
- danh sách ở listbox đang là danh sách tĩnh, nên kéo xuống phía dưới có khoảng trắng, giúp mình cho nó thành danh sách động cập nhật theo sheet DanhMuc.
- code xoá dòng nếu mình đặt con trỏ ở dòng tên hàng thì nó xoá đúng 2 dòng cần xoá, còn nếu chọn đặt con trỏ ở dòng giá phía dưới thì nó xoá dòng giá và dòng trắng phía dưới, dòng tên hàng ko xoá. bạn giúp mình làm sao để khi mình đặt con trỏ ở trên hay dưới code cũng đều xoá đúng 2 dòng tên hàng và giá.

Vậy là file tính tiền nhỏ này đối với mình tương đối ổn rồi
Mình cảm ơn nhiều!

1/ Chưa hiểu bạn muốn gì? Nếu ở sheet HoaDon thì làm gì thấy nút CHỌN mà rê qua. Còn ở trên Form thì làm gì có nút CHỌN?
2/ Danh sách ở listbox là danh sách động đấy. Đố bạn chọn được dòng trắng dưới chữ Quýt đấy!

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

3/ Sửa sub Xoa thành:

Sub Xoa()
    If Range("B" & ActiveCell.Row) <> "" Then
        ActiveCell.Resize(2, 1).EntireRow.Delete xlUp
    Else
        ActiveCell.Offset(-1).Resize(2, 1).EntireRow.Delete xlUp
    End If
End Sub

 

[Khoa iTO]

2/ Danh sách ở listbox là danh sách động đấy. Đố bạn chọn được dòng trắng dưới chữ Quýt đấy!

2/ Nhờ Bạn xem giúp mình cái listbox ở file đính kèm, mình chỉnh lại cho nó thành 3 cột trong listbox mà giờ nó xuất hiện khoảng trắng phía dưới khi kéo thanh cuộn xuống.
Mình cảm ơn!

 

[befaint]

Chưa hiểu bạn muốn gì

Anh không thấy giọng văn quen ở bài #4 à.
Đó chỉ là tấm chiếu mới thôi.
Em thì phát hiện ra ngay từ bài đăng đầu tiên của thớt.
Anh có để ý tên nick có gì đặc biệt không? Em mà kiểm duyệt là không bao giờ cho qua.

Thớt lâu lâu mới trả lời có thể vì còn bận tét code trong phòng thí nghiệm chưa xong.

Chỗ rút ngắn code... Dùng phương án viết một sub con, rồi mỗi nơi cần copy cái gì sẽ trền tham số tương ứng.

 

[Khoa iTO]

Anh không thấy giọng văn quen ở bài #4 à.
Đó chỉ là tấm chiếu mới thôi.
Em thì phát hiện ra ngay từ bài đăng đầu tiên của thớt.
Anh có để ý tên nick có gì đặc biệt không? Em mà kiểm duyệt là không bao giờ cho qua.

Thớt lâu lâu mới trả lời có thể vì còn bận tét code trong phòng thí nghiệm chưa xong.

Chỗ rút ngắn code... Dùng phương án viết một sub con, rồi mỗi nơi cần copy cái gì sẽ trền tham số tương ứng.

Xin lỗi mình ko hiểu ý bạn?
- Giọng văn ở bài #4 có vấn đề gì sao? bạn nói đúng mình là tấm chiếu mới, ko biết thì là mới mà.
- Nick mình có gì đặc biệt sao? bạn làm kiểm duyệt ko cho qua vì lý do gì hay chỉ vì cảm tính?
- Chuyện lâu trả lời hay mau trả lời mà bạn cũng phán được sao.
...
tham gia trên các diễn đàn mà nói chuyện lịch sự dễ nghe thì được tôn trọng, sống khiêm tốn tí bạn, đừng sồn sồn cứ muốn thể hiện mình là người hiểu biết, thông thái, người "phát hiện ra ngay từ bài đăng đầu tiên, tấm chiếu mới". văn hoá hở cái nhảy vào cmt lên án này nọ mà chưa biết đầu đuôi tai nheo là văn hoá facebook rồi, ko phải văn hoá của diễn đàn. mà lại là diễn đàn lớn như gpe. buồn cười cho một thành viên gạo cội.

 

[Khoa iTO]

1/ Chưa hiểu bạn muốn gì? Nếu ở sheet HoaDon thì làm gì thấy nút CHỌN mà rê qua. Còn ở trên Form thì làm gì có nút CHỌN?
2/ Danh sách ở listbox là danh sách động đấy. Đố bạn chọn được dòng trắng dưới chữ Quýt đấy!

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

3/ Sửa sub Xoa thành:

Sub Xoa()
    If Range("B" & ActiveCell.Row) <> "" Then
        ActiveCell.Resize(2, 1).EntireRow.Delete xlUp
    Else
        ActiveCell.Offset(-1).Resize(2, 1).EntireRow.Delete xlUp
    End If
End Sub

Mình cảm ơn bạn đã hỗ trợ!
Thông thường thì mình chỉ like, thông qua like là đủ thể hiện sự cảm ơn. còn comment cảm ơn nhiều lúc trở nên hơi thừa, để tránh xuất hiện những nội dung ko mang tính xây dựng, hoặc có nơi còn gọi là đăng spam gì đó. Hy vọng bạn Maika8008 hiểu, và trong toàn bộ bài đăng này nếu mình có gây ra hiểu lầm hay khó chịu với bạn thì mong bạn bỏ qua. một lần nữa mình cảm ơn bạn nhiều! Chúc bạn và gia đình luôn vui vẻ để cùng cả nước vượt qua mùa dịch nha!

 

[Maika8008]

2/ Nhờ Bạn xem giúp mình cái listbox ở file đính kèm, mình chỉnh lại cho nó thành 3 cột trong listbox mà giờ nó xuất hiện khoảng trắng phía dưới khi kéo thanh cuộn xuống.
Mình cảm ơn!

Tên vùng HangHoa chỗ CountA phải là COUNTA(DanhMuc!$D$3:$D$100). Bạn đếm 3 cột D$3:$F$100 thì số dòng thành gấp 3.