Xác định địa chỉ dừng xóa

[mymapmap]

M sử dụng lệnh sau đây
ActiveSheet.[T65536].End(xlUp).Resize(, 18).Clear
để xóa ngược lên những dòng từ cột T đến AK, M muốn chỉ xóa đến dòng đến dòng T3 thì nút CmdXoa.enable = false. thì phải đặt điều kiện If như thế nào
Xin các A/C chỉ giúp xin cam ơn nhiều!

 

[ptm0412]

Trước tiên xác định dòng cuối:
EndR = ActiveSheet.[T65536].End(xlUp).Row

Sau đó xoá hàng loạt:

Range("T3:AK" & EndR).Clear

Hoặc
Activesheet.[T3].Resize(EndR - 2, 18).Clear


Nếu vẫn muốn xoá từng dòng và sau khi xoá dòng 3 không cho xoá nữa:

Activesheet.Range("T" & EndR).Resize(1, 18).Clear
If EndR = 3 Then CmdXoa.Enabled = False

 

[mymapmap]

Private Sub cmdNext_Click()
If (CmbRes.ListIndex = -1) Or (CmbInd.ListIndex = -1) Or (CmbPro.ListIndex = -1) Or (CmbBth.ListIndex = -1) Then
MsgBox "Chua chon gia tri.": Exit Sub
Else
ActiveSheet.[T65536].End(xlUp).Offset(1).Resize(, 1).Value = Sheet2.[AQ2:AQ7].Offset(CmbRes.ListIndex).Value
ActiveSheet.[U65536].End(xlUp).Offset(1).Resize(, 4).Value = Sheet2.[A310].Offset(CmbInd.ListIndex).Value
ActiveSheet.[Z65536].End(xlUp).Offset(1).Resize(, 5).Value = Sheet2.[F3:J30].Offset(CmbPro.ListIndex).Value
ActiveSheet.[AF65536].End(xlUp).Offset(1).Resize(, 6).Value = Sheet2.[L3:Q40].Offset(CmbBth.ListIndex).Value
' CmbBth.ListIndex = -1
Cnt = Cnt + 1
LbPag.Caption = Cnt
CmdPre.Enabled = True
End If
End Sub

Cho M hoi tí nữa nha minh có đoan code để bỏ giá tri combobox vào cell nhưng mình muốn sau 5 lần click CmdNext (*) thì sẽ copy nội dung tiêu đề "T1:AK2" xuống 52 dòng là "T52:AK53" Rồi cho đưa dữ liệu từ combobox vào cell kế tiếp 5 lần nữa rồi lặp lại (*) cứ thế đưa đến "T103:AK104" . và nhãn LbPag cho M biết đã copy tiêu đề xuống bao nhiêu lần.
Xin cảm ơn A/C đã giúp đỡ!

 

[ptm0412]

Đã có biến cnt = cnt +1 rồi thì xài đi:

If cnt = 5 then Range("T1:AK2").Copy Range("T52")
cnt = 0

Tuy nhiên, tới lần thứ 2 về sau thì chưa ổn, dùng thêm 1 biến đếm thứ 2 (Dem2). Còn cái LbPag.Caption thì không = Cnt nữa, mà bằng Dem2 * 5 +Cnt

Cnt = Cnt +1
LbPag.Caption =  Dem2 * 5 +Cnt
If cnt = 5 then 
    cnt = 0
   Dem2 = Dem2 + 1
   Range("T1:AK2").Copy Range("T" & Dem2 * 51 + 1)
End If