Tự động xóa dòng khi dữ liệu đủ điều kiện in/out

[cuongnguyen87.bn]

xin chào các bác

Em đang có 1 vấn đề cần nhờ sự trợ giúp của các tiền bối, cụ thể là em đang tạo 1 file quản lý nhập xuất và hiện thị vị trí quản lý
em đang muốn là khi 1 mã có đầy đủ dữ liệu in/out trong "sheets data input" thì tự động xóa nhưng dòng đấy trong sheets này đi ạ
pass: cuong214 để mở file
Nhờ các tiền bối hỗ trợ em với ạ
em xin chân thành cảm ơn ạ

 

[SA_DQ]

Nếu có ví dụ cụ thể dẫn dắt thì tốt biết bao nhiêu!

 

[cuongnguyen87.bn]

Nếu có ví dụ cụ thể dẫn dắt thì tốt biết bao nhiêu!

ví dụ như này ạ, mã Pack_02 đang tồn tại input và output, em đang muốn khi tồn tài như vậy có cách nào cả 2 dòng này auto delete đi được không ạ

 

[BuiQuangThuan]

ví dụ như này ạ, mã Pack_02 đang tồn tại input và output, em đang muốn khi tồn tài như vậy có cách nào cả 2 dòng này auto delete đi được không ạ


View attachment 303206

Nếu số lượng của cái in và out nó khác nhau thì bạn tính đến trường hợp đó chưa

 

[cuongnguyen87.bn]

Nếu số lượng của cái in và out nó khác nhau thì bạn tính đến trường hợp đ

cái input và output này theo mã pack khi nhập vào ạ, em làm hàm khi có input rồi sẽ không input được nữa và chỉ có output, vì vậy khi có output em đang muốn bên sheet data input kia nó xóa cả dòng in và out đi, để lần sau em lại in lại được

 

[BuiQuangThuan]

cái input và output này theo mã pack khi nhập vào ạ, em làm hàm khi có input rồi sẽ không input được nữa và chỉ có output, vì vậy khi có output em đang muốn bên sheet data input kia nó xóa cả dòng in và out đi, để lần sau em lại in lại được

ý mình là chẳng hạn pack 1 input 300
nhưng output 100. thế thì cũng xóa cả 2 dòng đi à

 

[cuongnguyen87.bn]

ý mình là chẳng hạn pack 1 input 300
nhưng output 100. thế thì cũng xóa cả 2 dòng đi à

vâng xóa cả ấy ạ, vì khi out sẽ out cả ạ bác

 

[BuiQuangThuan]

vâng xóa cả ấy ạ, vì khi out sẽ out cả ạ bác

bạn có thể tạo cột phụ đếm theo điều kiện cả out lẫn in của 1 mã. Nếu xuất hiện cả 2 thì đánh dấu lại. rồi duyệt qua những cái đánh dấu ấy. cái nào thỏa mãn thì xóa cả dòng đi

 

[Hoàng Tuấn 868]

Nhờ các tiền bối hỗ trợ em với ạ

Nếu ...

Ô, bạn này trở thành "Tiền bối" từ khi nào mà không thấy khao nhỉ.

 

[BuiQuangThuan]

Ô, bạn này trở thành "Tiền bối" từ khi nào mà không thấy khao nhỉ.

Anh lại cười rồi. hihi

 

[Hoàng Tuấn 868]

Anh lại cười rồi. hihi

Bài này thì làm vèo cái là xong, mỗi tội mình không phải là "Tiền bối" nên chỉ dám đứng nhìn.

 

[cuongnguyen87.bn]

Bài này thì làm vèo cái là xong, mỗi tội mình không phải là "Tiền bối" nên chỉ dám đứng nhìn.

các bác đi trước am hiểu đều là tiền bối mà, em thử tạo cột đếm điều kiện nhưng chưa biết cách làm sao xóa đi được, em k rành mảng này lắm, bác hỗ trợ em với nhé

 

[SA_DQ]

Cách xóa cần kiến thức VBA tối thiểu:
Bước chuẩn bị:
Lập danh sách duy nhất (DSDN)
Tạo vòng lặp duyệt qua toàn bộ DSDN này
Áp dụng phương thức FIND() để tìm ra các dòng thỏa điều kiện
Các dòng này được lưu vô 1 tham biến;
Cuối cùng là xóa

 

[bebo021999]

Cách xóa cần kiến thức VBA tối thiểu:
Bước chuẩn bị:
Lập danh sách duy nhất (DSDN)
Tạo vòng lặp duyệt qua toàn bộ DSDN này
...

Làm được cái Msgbox này là trên mức VBA tối thiểu rồi
(đoạn sub này trong sheet 1, định tò mò click thử, mà sao rén quá, hahaha)

 

[bebo021999]

Xài đỡ cái này nhé.
Nó sẽ duyệt từ dưới lên, tìm những cặp nào có cùng mã, cùng SL và có input và output tương ứng, delete ô đó. Sau khi tìm xong thì sẽ xóa cả dòng luôn 1 lần.

Option Explicit
Sub xoaInputOutput()
Dim lr&, i&, j&
Dim pck As String, qty&
lr = Cells(Rows.Count, "B").End(xlUp).Row
For i = lr To 5 Step -1
    If Cells(i, "F") = "Output" Then
        pck = Cells(i, "B"): qty = Cells(i, "D")
        For j = i - 1 To 5 Step -1
            If Cells(j, "B") = pck And Cells(j, "D") = qty And Cells(j, "F") = "Input" Then
                Cells(j, "F").ClearContents
                Cells(i, "F").ClearContents
                Exit For
            End If
        Next
    End If
Next
Range("F5:F" & lr).SpecialCells(xlBlanks).EntireRow.Delete
End Sub

 

[cuongnguyen87.bn]

Xài đỡ cái này nhé.
Nó sẽ duyệt từ dưới lên, tìm những cặp nào có cùng mã, cùng SL và có input và output tương ứng, delete ô đó. Sau khi tìm xong thì sẽ xóa cả dòng luôn 1 lần.

Option Explicit
Sub xoaInputOutput()
Dim lr&, i&, j&
Dim pck As String, qty&
lr = Cells(Rows.Count, "B").End(xlUp).Row
For i = lr To 5 Step -1
    If Cells(i, "F") = "Output" Then
        pck = Cells(i, "B"): qty = Cells(i, "D")
        For j = i - 1 To 5 Step -1
            If Cells(j, "B") = pck And Cells(j, "D") = qty And Cells(j, "F") = "Input" Then
                Cells(j, "F").ClearContents
                Cells(i, "F").ClearContents
                Exit For
            End If
        Next
    End If
Next
Range("F5:F" & lr).SpecialCells(xlBlanks).EntireRow.Delete
End Sub

em cảm ơn bác nhé, đúng ý em đang muốn làm rồi ạ