vấn đề về dùng macro xóa hàng (1 người xem)

[akiralnb]

Vần đề là e muốn khi chọn 1 cell bất kỳ trong hàng rồi bấm nút "Xóa đơn hàng" thì nó xóa 1 hàng mà không làm ảnh hưởng đến công thức đặt sẵn ở các cột có làm được không các a?
hình cụ thể ở sau a. Rất mong được các a chỉ dẫn!

 

[viehoai]

Vần đề là e muốn khi chọn 1 cell bất kỳ trong hàng rồi bấm nút "Xóa đơn hàng" thì nó xóa 1 hàng mà không làm ảnh hưởng đến công thức đặt sẵn ở các cột có làm được không các a?
hình cụ thể ở sau a. Rất mong được các a chỉ dẫn!

Bạn dùng lệnh sau là đượt theo yêu cầu của bạn
[GPECODE=vb]ActiveCell.EntireRow.Delete[/GPECODE]

 

[Bảy Dzõ]

Bạn dùng lệnh sau là đượt theo yêu cầu của bạn
[GPECODE=vb]ActiveCell.EntireRow.Delete[/GPECODE]

nếu dùng code của anh thì xoá nguyên hàng đó luôn nhưng ý của chủ topic hình như muốn xoá hàng đó nhưng giữ lại 3 cột cuối.

Chủ topic vui lòng xác nhận lại hoặc đưa file lên vì yêu cầu trong bài viết và trong hình ảnh khác nhau nhé bạn. Thân

 

[viehoai]

nếu dùng code của anh thì xoá nguyên hàng đó luôn nhưng ý của chủ topic hình như muốn xoá hàng đó nhưng giữ lại 3 cột cuối.

Chủ topic vui lòng xác nhận lại hoặc đưa file lên vì yêu cầu trong bài viết và trong hình ảnh khác nhau nhé bạn. Thân

Thông thường xóa luôn hàng không ảnh hưởng công thức hàng khác, còn xóa vùng xem chừng công thức chạy bậy, Vậy nên để chuẩn tác giả phải đưa file lên, còn không hỏi trống rỗng thì trả lời theo kểu trống rỗng vậy..

 

[akiralnb]

cám ơn các bạn đã quan tâm. ý mình là xóa dữ liệu đã nhập vào trong hàng đó nhưng giữ lại các cột có công thức trong đó chứ không phải là xóa cả hàng
đây mình gửi file mẫu cho các bạn đây.

 

[Ba Tê]

cám ơn các bạn đã quan tâm. ý mình là xóa dữ liệu đã nhập vào trong hàng đó nhưng giữ lại các cột có công thức trong đó chứ không phải là xóa cả hàng
đây mình gửi file mẫu cho các bạn đây.

Thử code này xem sao

Public Sub GPE()
Dim K As Long
K = Selection.Row
Range("A" & K & ":I" & K).ClearContents
End Sub

 

[nghiaphuc]

Thử code này xem sao

Public Sub GPE()
Dim K As Long
K = Selection.Row
Range("A" & K & ":I" & K).ClearContents
End Sub

Em làm thế này:

Sub GPE_1()
    Intersect(Selection.EntireRow, [A:I]).ClearContents
End Sub

 

[loanprocess]

Xóa row hoặc column kèm ảnh

Các bác có ai biết cách để xóa được hàng, cột mà xóa luôn được cả ảnh ở trong hàng cột ấy ko chỉ cho em với ạ? e toàn phải xóa picture trước mới delete được row, nếu không thì các picture khác sẽ bị nhảy lộn xộn