Xóa dòng theo 1 Code

[ThuNghi]

1/Tôi có làm 1 sh và dl của sh được nhập và những sh khác, tất các đều có 1 cột Code.
Làm thế nào khi tôi xóa phiếu có code là x, thì tất cả sh có cột Code, tại dòng code = x thì xóa hết.
2/ Khi viết hàm, có vấn đề sau
vd:
With TH
.Range("a" & i).Value = Range("Gi").Value
...
Nhưng khi thay đổi cột A trong sh TH (như insert col) hay là G7 -> h7
Có thể nào đặt tên như sau
.Range("SoTien" & i).Value = Range("SotienXi").Value
Xin cám ơn.

 

[SA_DQ]

Tham khảo giải 1 fần Câu 1

 Public DLieu As Variant
[b]Private Sub Worksheet_Change(ByVal Target As Range)[/b]
 On Error GoTo Loi_Change
 
 If Not Intersect(Target, Range("A:A")) Then
    If Range("A" & Target.Row).Value = "" And DLieu <> "" Then
'        MsgBox Range("A" & Target.Row).Value, , DLieu
        Selection.EntireRow.Delete shift:=xlUp

 [color="Blue"]'[b][i] Bạn viết thêm đoạn mã đễ xoá các dòng thoã iêu cầu trong các Sheets #[/i] [/b][/color]    


    End If
 End If
Err_Change:             Exit Sub
Loi_Change:
 Select Case Err
    Case 13
        Resume Next
    Case Else
        Resume Err_Change
    End Select
[b]End Sub[/b]
'      *         *           *             *        *
[b]Private Sub Worksheet_SelectionChange(ByVal Target As Range)[/b]
 DLieu = Target.Value
[b]End Sub[/b]