Tìm ô đầu tiên chứa dữ liệu

[tiendat210]

Xin chào mọi người
Mình cần giúp đỡ code VBA để chọn ô đầu tiên có dữ liệu của dòng đang được active trong vùng II từ AI7 tới cuối cùng. Mình tìm kiếm trên mạng rồi nhưng do kiến thức còn hạn chế nên không tìm ra. Mong mọi người giúp đỡ với ạ. Mình có làm file mô tả kèm theo ạ.

Tức là mình có vùng dữ liệu cố định, từ AI7 tới cuối trang, giờ mình active dòng nào và nhấn nút thì nó tìm ô chứ dữ liệu đầu tiên của dòng đó trong vùng AI7 tới cuối trang ạ.
XIN CẢM ƠN Ạ

 

[BuiQuangThuan]

Xin chào mọi người
Mình cần giúp đỡ code VBA để chọn ô đầu tiên có dữ liệu của dòng đang được active trong vùng II từ AI7 tới cuối cùng. Mình tìm kiếm trên mạng rồi nhưng do kiến thức còn hạn chế nên không tìm ra. Mong mọi người giúp đỡ với ạ. Mình có làm file mô tả kèm theo ạ.
XIN CẢM ƠN Ạ

Có đọc qua và cũng có xem file qua mà chưa hiểu bạn muốn cái gì nữa. Mô tả lại 1 chút được hông?
Và sửa tiêu đề về dạng thường đi chứ không nên viết hoa cả thế kia

 

[Nhattanktnn]

Xin chào mọi người
Mình cần giúp đỡ code VBA để chọn ô đầu tiên có dữ liệu của dòng đang được active trong vùng II từ AI7 tới cuối cùng. Mình tìm kiếm trên mạng rồi nhưng do kiến thức còn hạn chế nên không tìm ra. Mong mọi người giúp đỡ với ạ. Mình có làm file mô tả kèm theo ạ.
XIN CẢM ƠN Ạ

Chắc là thế này :

Cells(ActiveCell.Row, "AH").End(xlToRight).Select

 

[tiendat210]

Có đọc qua và cũng có xem file qua mà chưa hiểu bạn muốn cái gì nữa. Mô tả lại 1 chút được hông?
Và sửa tiêu đề về dạng thường đi chứ không nên viết hoa cả thế kia

Mình có sửa lại rồi, do không phải dân excel nên diễn giải nó không được rõ ràng lắm. Mong bạn cố gắng giúp đỡ với ạ

Bài đã được tự động gộp: 3/10/22

Chắc là thế này :

Cells(ActiveCell.Row, "AH").End(xlToRight).Select

Đúng rồi bạn ạ. Mình đã test thử, đúng ý luôn ạ. Cám ơn mọi người nhé

 

[SA_DQ]

Tham khảo thêm con ni:

Sub TimODauTienCuaVungThuocDongKichHoat()
 Dim Rng As Range, uRng As Range, Cls As Range
 Dim Col As Integer, J As Long
 
 Set Rng = Selection.Rows
 Set uRng = Sheet1.UsedRange
 For J = 1 To uRng.Rows.Count
    If J = Rng.Row Then
        MsgBox uRng.Cells(J, 1).End(xlToRight).Column
    End If
 Next J
End Sub

 

[tiendat210]

Xin chào mọi người. Với kiểu code này. Mình muốn chọn cột cuối thì như thế nào ạ?
Cells(ActiveCell.Row, "AH").End(xlToRight).Select

Mình chuyển toright thành toleft. Nó nhảy sai ạ. Nó chọn ô cuối cùng của vùng trước AH ạ. Mình muốn nó chọn ô cuối cùng của vùng sau AH ạ

 

[Nhattanktnn]

Xin chào mọi người. Với kiểu code này. Mình muốn chọn cột cuối thì như thế nào ạ?
Cells(ActiveCell.Row, "AH").End(xlToRight).Select

Mình chuyển toright thành toleft. Nó nhảy sai ạ. Nó chọn ô cuối cùng của vùng trước AH ạ

Thì đổi "AH" thành cột kế cột có dữ liệu cuối cùng trong vùng II. Sửa toright thành toleft

 

[tiendat210]

Thì đổi "AH" thành cột kế cột có dữ liệu cuối cùng trong vùng II. Sửa toright thành toleft

Nhưng cột cuối này nó di động ạ. Lúc này lúc khác ạ.

 

[Nhattanktnn]

Nhưng cột cuối này nó di động ạ. Lúc này lúc khác ạ.

Thậm chí chọn cột cuối cùng của sheet cũng được, nếu từ vùng 2 tới cột cuối không có dữ liệu nào khác chen vào đó. Còn không thì gửi dữ liệu thật lên đây

 

[SA_DQ]

Xin chào mọi người. Với kiểu code này. Mình muốn chọn cột cuối thì như thế nào ạ?
Cells(ActiveCell.Row, "AH").End(xlToRight).Select

Mình chuyển toright thành toleft. Nó nhảy sai ạ. Nó chọn ô cuối cùng của vùng trước AH ạ. Mình muốn nó chọn ô cuối cùng của vùng sau AH ạ

Vì bản thân chọn cột 'AH' đã là chưa tổng quát
& nên dựa vô vùng ô I mà tìm ô đầu tiên hay cuối cùng của dòng đang được kích hoạt thuộc vùng II; (Mình cho rằng vùng I đã là 'chuẩn' & có thể lấy làm mốc (để pháo kích như ở Ucraine làm ví dụ!)

 

[Nhattanktnn]

Vì bản thân chọn cột 'AH' đã là chưa tổng quát
& nên dựa vô vùng ô I mà tìm ô đầu tiên hay cuối cùng của dòng đang được kích hoạt thuộc vùng II; (Mình cho rằng vùng I đã là 'chuẩn' & có thể lấy làm mốc (để pháo kích như ở Ucraine làm ví dụ!)

Dữ liệu ảo nên kết quả cũng hơi hời hợt vậy thôi bác ạ hihi

 

[tiendat210]

Thậm chí chọn cột cuối cùng của sheet cũng được, nếu từ vùng 2 tới cột cuối không có dữ liệu nào khác chen vào đó. Còn không thì gửi dữ liệu thật lên đây

Dạ, mình đã làm được rồi ạ. Xin cảm ơn

 

[Hoàng Tuấn 868]

Dữ liệu ảo nên kết quả cũng hơi hời hợt vậy thôi bác ạ hihi

Dữ liệu ảo nên kết quả cũng tung chảo chứ nhỉ. (Thà kết quả không chuẩn còn hơn đưa dữ liệu chuẩn)