Code di dời cùng hàng nhưng cố định cột

[AnhThu-1976]

Các anh/chị giúp sửa code
Em đang ở 1 hàng bất kỳ (ví dụ đang ở hàng thứ 9, nhưng ở cột bất kỳ)
Khi chạy code thì muốn nó sẽ di dời đến cùng hàng (hàng thứ 9) và cột cố định là cột G
M có viết như thế này, nhưng chưa biết sửa chỗ cột là gì
Anh chị giúp em, em cảm ơn!

ActiveCell.Offset(0, cột).Select

 

[Hoàng Tuấn 868]

Các anh/chị giúp sửa code
Em đang ở 1 hàng bất kỳ (ví dụ đang ở hàng thứ 9, nhưng ở cột bất kỳ)
Khi chạy code thì muốn nó sẽ di dời đến cùng hàng (hàng thứ 9) và cột cố định là cột G
M có viết như thế này, nhưng chưa biết sửa chỗ cột là gì
Anh chị giúp em, em cảm ơn!

ActiveCell.Offset(0, cột).Select

Không hiểu chỗ đỏ đỏ là gì nhỉ.

 

[Phuocam]

Các anh/chị giúp sửa code
Em đang ở 1 hàng bất kỳ (ví dụ đang ở hàng thứ 9, nhưng ở cột bất kỳ)
Khi chạy code thì muốn nó sẽ di dời đến cùng hàng (hàng thứ 9) và cột cố định là cột G
M có viết như thế này, nhưng chưa biết sửa chỗ cột là gì
Anh chị giúp em, em cảm ơn!
ActiveCell.Offset(0, cột).Select

Nên viết đầy đủ, không viết tắt.

Range("G" & ActiveCell.Row).Select

 

[HUONGHCKT]

Các anh/chị giúp sửa code
Em đang ở 1 hàng bất kỳ (ví dụ đang ở hàng thứ 9, nhưng ở cột bất kỳ)
Khi chạy code thì muốn nó sẽ di dời đến cùng hàng (hàng thứ 9) và cột cố định là cột G
M có viết như thế này, nhưng chưa biết sửa chỗ cột là gì
Anh chị giúp em, em cảm ơn!

ActiveCell.Offset(0, cột).Select

Tham khảo đoạn code sau : (nếu tôi hiểu đúng)

Sub Mouse()
Dim i&, j&, LCol&
i = ActiveCell.Row
LCol = Cells(i, Columns.Count).End(xlToLeft).Column
Cells(i, LCol).Select
End Sub[
/CODE]

 

[AnhThu-1976]

Tham khảo đoạn code sau : (nếu tôi hiểu đúng)

Sub Mouse()
Dim i&, j&, LCol&
i = ActiveCell.Row
LCol = Cells(i, Columns.Count).End(xlToLeft).Column
Cells(i, LCol).Select
End Sub[
/CODE]

bạn chưa hiểu ý mình!