Nhờ giúp tìm cột cuối cùng trong bảng

[congec12C]

Nhờ mọi người check hộ code, mình muốn khi kick chột vào hình mặt cười sẽ tự đồng dò tìm đến cột cuối cùng trong bảng chấm và điền vào "dtt"

Sub Macro1()
    Dim ngay As Long
    Dim ma As String
    Dim i As Long
    Dim cotcuoi As Integer
        ma = Sheet3.Range("W9").Value
     ngay = Month(Date)
     Sheets("T" & ngay).Select
         For i = 15 To 1000
     If Sheets("T" & ngay).Range("D" & i).Text = ma Then
        cotcuoi = Sheets("T" & ngay).Range("D" & i).End(xlRight).EntireColumn
        MsgBox cotcuoi
     Sheets("T" & ngay).Range("cotcuoi" & i) = "dtt"
     End If
     Next i
          
End Sub

 

[leonguyenz]

Dữ liệu có vấn đề, bạn Save file đuôi .xlsm và gửi lên lại xem nhé.

 

[congec12C]

Dữ liệu có vấn đề, bạn Save file đuôi .xlsm và gửi lên lại xem nhé.

Bạn thử kiểm tra lại dùm mình xem nhé