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

[hunglao]

Giúp em Macro nhảy dòng với
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

http://infotuyetmai.com/sent.zip

em up len dien đàn kô dc nên up lên link kia
thank a chi nhiều

 

[MinhNguyệt]

Giúp em Macro nhảy dòng với
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

http://infotuyetmai.com/sent.zip

em up len dien đàn kô dc nên up lên link kia
thank a chi nhiều

Sub Xoa()
    Range("AV5:AV1043").ClearContents
    Range("AV5").Select
End Sub

 

[hunglao]

Sub Xoa()
    Range("AV5:AV1043").ClearContents
    Range("AV5").Select
End Sub

nhưng chưa chuyển về ô trước khi xóA dc mà lại nhảy lên ô đầu tiên

 

[MinhNguyệt]

nhưng chưa chuyển về ô trước khi xóA dc mà lại nhảy lên ô đầu tiên

Sub Xoa()
    Range("AV5:AV1043").ClearContents    
End Sub

</span></span>

 

[hunglao]

em vẫn không hiểu sao những ô bị ẩn do em filter thì kô bị xóa a

 

[hunglao]

help me Please...........

 

[huuthang_bd]

Bạn dùng cái này:

Sub Xoa()
With Selection
Selection.EntireColumn.Resize(65531, .Columns.Count).Offset(5).ClearContents
Cells(6, .Column).Select
End With
End Sub

Hoặc cái này:

Sub Xoa()
With Selection
Range(Cells(6, .Column), Cells(65536, .Column + .Columns.Count)).Select
Cells(6, .Column).Select
End With
End Sub