ThanhQuang1510
Yêu THVBA
Cho mình hỏi có đoạn code nào đánh STT bắt đầu Từ Cột 1, dòng A9
với điều kiện khi xóa dòng thì STT sẽ tự sắp xếp lại.
Thanks All
với điều kiện khi xóa dòng thì STT sẽ tự sắp xếp lại.
Thanks All
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Integer
Dim rend As Integer
rend = Cells(Rows.Count, 1).End(xlUp).Row
If rend > 9 Then
For i = 9 To rend Step 1
Cells(i, 1).FormulaR1C1 = "=ROW()-8"
Next i
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 2 Then 'Nếu anh tác động vào cột B thì làm công việc ở dưới
MsgBox "OK" 'Anh thay dòng code này bằng đoạn code đánh số thứ tự
End If
End Sub
Code như này ko đc rồi, vì mình chưa chọn sản phẩm, mới click vào ô là nó đã nhảy như thế nàyIf Target.Column = 2 Then 'Nếu anh tác động vào cột B thì làm công việc ở dưới
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 2 and Target.Value <> "" Then 'Nếu anh tác động vào cột B và cells đó khác rỗng thì làm công việc ở dưới
MsgBox "OK" 'Anh thay dòng code này bằng đoạn code đánh số thứ tự
End If
End Sub