Viết Code dấu dòng

[city]

Tôi đang học VBA nhưng khi đang thử viết code dấu dòng thì bị lỗi báo nhưng chưa sửa được.
Rất mong các bạn hướng dẫn thêm.

 

[ngh_khanh]

Tôi đang học VBA nhưng khi đang thử viết code dấu dòng thì bị lỗi báo nhưng chưa sửa được.
Rất mong các bạn hướng dẫn thêm.

Bạn đưa code của bạn viết lên đây mọi người sửa cho bạn nha!

 

[yome]

Tôi đang học VBA nhưng khi đang thử viết code dấu dòng thì bị lỗi báo nhưng chưa sửa được.
Rất mong các bạn hướng dẫn thêm.

Bạn thử tham khảo file này xem có đúng ý bạn không nha! (Chỉ cần thu Marco là Ok mà bạn?)

 

[city]

Không phải bạn ơi, nếu làm như bạn thì mình làm được rồi. Nhưng mình muốn dấu những dòng từ dòng dữ liệu cuối (dòng có chứa tên Thanh) (dòng dữ liệu cuối do mình nhập thêm) đến TextBox mà

 

[viehoai]

Không phải bạn ơi, nếu làm như bạn thì mình làm được rồi. Nhưng mình muốn dấu những dòng từ dòng dữ liệu cuối (dòng có chứa tên Thanh) (dòng dữ liệu cuối do mình nhập thêm) đến TextBox mà

Tại dòng lỗi:

Rows("NextRow:15").Select

Bạn sửa thành

Rows(NextRow & ":15").Select

xem sao nhé

 

[ndu96081631]

Tôi đang học VBA nhưng khi đang thử viết code dấu dòng thì bị lỗi báo nhưng chưa sửa được.
Rất mong các bạn hướng dẫn thêm.

Code của bạn là:

Sub GV()
  Dim NextRow As Long
  Sheets("sheet1").Activate
  NextRow = Application.WorksheetFunction.CountA(Range("A:A")) + 1
  Rows("NextRow:15").Select
  Selection.EntireRow.Hidden = True
End Sub

Hãy sửa lại thành:

Sub GV()
  Dim eRw As Long
  With Sheet1
    eRw = .Cells(Cells.Rows.Count, 1).End(xlUp).Row + 1
    If eRw <= 15 Then .Range(eRw & ":15").EntireRow.Hidden = True
  End With
End Sub

Phòng trường hợp dòng cuối > 15 thì sao?
Ngoài ra: Code chạy thì cứ việc chạy mà không cần phải Select, Activate hay Selection gì gì cả