Giúp em Macro nhảy dòng với

[hunglao]

Em đang viết một Macro : Xoá cột và sau khi xoá xong cột đó sẽ nhảy về cột hiện tại mà chưa được Ví dụ như em đang ở ô AV9, em muốn xoá hết data trong cột AV sau khi xoá xong sẽ tự đôgn nhảy về AV9
Với lại cái macro của em có khi em filter xong rùi xoá thi mấy cái ô bị ẩn do filter không bị xoá mà chỉ xoá mấy cái ô hiện thôi
Mong các sư huynh chỉ giáo edit giùm cái maro của e
thank

 

[anh phuong]

Em đang viết một Macro : Xoá cột và sau khi xoá xong cột đó sẽ nhảy về cột hiện tại mà chưa được Ví dụ như em đang ở ô AV9, em muốn xoá hết data trong cột AV sau khi xoá xong sẽ tự đôgn nhảy về AV9
Với lại cái macro của em có khi em filter xong rùi xoá thi mấy cái ô bị ẩn do filter không bị xoá mà chỉ xoá mấy cái ô hiện thôi
Mong các sư huynh chỉ giáo edit giùm cái maro của e
thank

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 30/09/2009 by anh phuong
'

'
    Selection.EntireColumn.Delete
End Sub

Chạy Macro này khi con trỏ nằm bất kỳ ở đâu
Thân

 

[ChinhMuongLa]

Em đang viết một Macro : Xoá cột và sau khi xoá xong cột đó sẽ nhảy về cột hiện tại mà chưa được Ví dụ như em đang ở ô AV9, em muốn xoá hết data trong cột AV sau khi xoá xong sẽ tự đôgn nhảy về AV9
Với lại cái macro của em có khi em filter xong rùi xoá thi mấy cái ô bị ẩn do filter không bị xoá mà chỉ xoá mấy cái ô hiện thôi
Mong các sư huynh chỉ giáo edit giùm cái maro của e
thank

1. Muốn con trỏ đứng nguyên tại chỗ bạn đầu thì bạn đừng sử dụng .Select
Code này sẽ đáp ứng được yêu cầu của bạn:

Sub Xoa()
[av:av].ClearContents
End Sub

2. Các dòng bị ẩn bởi Autofilter không bao giờ xoá được bạn ạ. Vì vậy khi không muốn xoá dòng nào thì người ta thường dùng Autofilter lọc để cho nó ẩn đi, nếu bạn muốn xoá những dòng ẩn đó thì bạn phải lọc ngược lại để cho nó hiện lên.