Xin code tự chèn dòng khi thêm mã (3 người xem)

[LYSM]

Em chào các thầy cô, anh chị!
Em muốn chèn dòng khi thêm mã như file đính kèm, nhờ các thầycô và anh chị giúp đỡ em. Cũng có nhiều chủ đề về tự động chèn dòng nhưng emchưa thấy giống yêu cầu của em, mong mọi người giúp đỡ. Em cảm ơn nhiều!
PS: Thêm 1 ý nữa là khi em xóa đi 1 mã nào đó thì bảng cũng tự độngxóa các dữ liệu liên quan đến mã đó
Chúc các thầy cô, anh chị có kỳ nghỉ lễ vui vẻ!

 

[quanluu]

Em chào các thầy cô, anh chị!
Em muốn chèn dòng khi thêm mã như file đính kèm, nhờ các thầycô và anh chị giúp đỡ em. Cũng có nhiều chủ đề về tự động chèn dòng nhưng emchưa thấy giống yêu cầu của em, mong mọi người giúp đỡ. Em cảm ơn nhiều!
Chúc các thầy cô, anh chị có kỳ nghỉ lễ vui vẻ!

Bạn cứ insert ở dòng cuối rùi sort lại là đc mà. Bạn thử xem.

 

[LYSM]

Bạn cứ insert ở dòng cuối rùi sort lại là đc mà. Bạn thử xem.

Bác ơi, thế thì nói làm gì, em có khoảng 250 mã ĐL, 80 mã SP. Nếu mà cứ thêm 1 mã ĐL insert thêm 80 dòng, thêm 1 mã SP insert thêm 250 dòng thì chết, lại còn bị nhầm lẫn nữa.

 

[quanluu]

Bác ơi, thế thì nói làm gì, em có khoảng 250 mã ĐL, 80 mã SP. Nếu mà cứ thêm 1 mã ĐL insert thêm 80 dòng, thêm 1 mã SP insert thêm 250 dòng thì chết, lại còn bị nhầm lẫn nữa.

Mình nói hơi lộn, chỉ cần add thêm ở cuối bảng rùi sort lại.
Mà mục đích của bạn là chèn thêm (insert) dòng mà.

 

[LYSM]

Mình nói hơi lộn, chỉ cần add thêm ở cuối bảng rùi sort lại.
Mà mục đích của bạn là chèn thêm (insert) dòng mà.

Hiện tại bên em vẫn đang làm thủ công như thế nên rất mất thờigian và còn bị nhầm nữa, tháng vừa rồi bị nhầm mất mấy chục triệu , may mà pháthiện kịp thời.

 

[quanluu]

Hiện tại bên em vẫn đang làm thủ công như thế nên rất mất thờigian và còn bị nhầm nữa, tháng vừa rồi bị nhầm mất mấy chục triệu , may mà pháthiện kịp thời.

Ko biết bạn làm thủ công thế nào chứ sao mà nhầm đc, cứ làm như mình nói là đơn giản nhất rùi
Bạn check file xem thế nào

 

[LYSM]

Ko biết bạn làm thủ công thế nào chứ sao mà nhầm đc, cứ làm như mình nói là đơn giản nhất rùi
Bạn check file xem thế nào

Cám ơn bác, phần chèn dòng thì chuẩn rồi, nhưng khi xóa cácmã vừa thêm vào thì bảng cập nhật chưa chuẩn, em muốn khi xóa các mã A4,SP3 đithì bảng trở về giống bảng 1. Bác xem giúp em nốt phần này với.

 

[HieuCD]

Em chào các thầy cô, anh chị!
Em muốn chèn dòng khi thêm mã như file đính kèm, nhờ các thầycô và anh chị giúp đỡ em. Cũng có nhiều chủ đề về tự động chèn dòng nhưng emchưa thấy giống yêu cầu của em, mong mọi người giúp đỡ. Em cảm ơn nhiều!
PS: Thêm 1 ý nữa là khi em xóa đi 1 mã nào đó thì bảng cũng tự độngxóa các dữ liệu liên quan đến mã đó
Chúc các thầy cô, anh chị có kỳ nghỉ lễ vui vẻ!

bạn kiểm tra lại xem ổn chưa

 

[LYSM]

bạn kiểm tra lại xem ổn chưa

Chuẩn rồi bác ạ, nhưng khi em xóa mã đi thì nó vẫn còn thừa1 đoạn table trống bên sheet Chiết khấu, có cách nào bỏ đoạn table này đi khôngbác?

 

[quanluu]

Cám ơn bác, phần chèn dòng thì chuẩn rồi, nhưng khi xóa cácmã vừa thêm vào thì bảng cập nhật chưa chuẩn, em muốn khi xóa các mã A4,SP3 đithì bảng trở về giống bảng 1. Bác xem giúp em nốt phần này với.

Cập nhật code cho bạn, lưu ý tên sheet bỏ dấu đi nhé. Bạn check file

 

[HieuCD]

Chuẩn rồi bác ạ, nhưng khi em xóa mã đi thì nó vẫn còn thừa1 đoạn table trống bên sheet Chiết khấu, có cách nào bỏ đoạn table này đi khôngbác?

Bạn sửa lại code

Sub InsertMa()
Dim DLarr, SParr, CKarr, Arr
Dim i, j As Long
DLarr = Range("A5:A" & Range("A5").End(xlDown).Row)
SParr = Range("B5:B" & Range("B5").End(xlDown).Row)
ReDim Arr(1 To UBound(DLarr) * UBound(SParr), 1 To 5)
Application.ScreenUpdating = False
Sheets(2).Select
    CKarr = Range("A4:E" & Range("A4").End(xlDown).Row)
For i = 1 To UBound(Arr)
    Arr(i, 1) = DLarr(Int((i - 1) / UBound(SParr)) + 1, 1)
    Arr(i, 2) = SParr(((i - 1) Mod UBound(SParr)) + 1, 1)
    For j = 1 To UBound(CKarr)
        If Arr(i, 1) = CKarr(j, 1) And Arr(i, 2) = CKarr(j, 2) Then
            Arr(i, 3) = CKarr(j, 3)
            Arr(i, 4) = CKarr(j, 4)
            Arr(i, 5) = CKarr(j, 5)
        End If
    Next j
Next i
Range("A4:E" & Range("A4").End(xlDown).Row).Clear
Range("A4").Resize(UBound(Arr), 5) = Arr
ActiveSheet.ListObjects("Table1").Resize Range("A3:E" & Range("A4").End(xlDown).Row)
Application.ScreenUpdating = True
End Sub

 

[LYSM]

Bạn sửa lại code

Sub InsertMa()
Dim DLarr, SParr, CKarr, Arr
Dim i, j As Long
DLarr = Range("A5:A" & Range("A5").End(xlDown).Row)
SParr = Range("B5:B" & Range("B5").End(xlDown).Row)
ReDim Arr(1 To UBound(DLarr) * UBound(SParr), 1 To 5)
Application.ScreenUpdating = False
Sheets(2).Select
    CKarr = Range("A4:E" & Range("A4").End(xlDown).Row)
For i = 1 To UBound(Arr)
    Arr(i, 1) = DLarr(Int((i - 1) / UBound(SParr)) + 1, 1)
    Arr(i, 2) = SParr(((i - 1) Mod UBound(SParr)) + 1, 1)
    For j = 1 To UBound(CKarr)
        If Arr(i, 1) = CKarr(j, 1) And Arr(i, 2) = CKarr(j, 2) Then
            Arr(i, 3) = CKarr(j, 3)
            Arr(i, 4) = CKarr(j, 4)
            Arr(i, 5) = CKarr(j, 5)
        End If
    Next j
Next i
Range("A4:E" & Range("A4").End(xlDown).Row).Clear
Range("A4").Resize(UBound(Arr), 5) = Arr
ActiveSheet.ListObjects("Table1").Resize Range("A3:E" & Range("A4").End(xlDown).Row)
Application.ScreenUpdating = True
End Sub

Khi phần CKarr(j,3), CKarr(j,4), CKarr(j,5) là công thức thì có cách nào sau khi chạy code vẫn giữ được công thức không bác?

 

[HieuCD]

Khi phần CKarr(j,3), CKarr(j,4), CKarr(j,5) là công thức thì có cách nào sau khi chạy code vẫn giữ được công thức không bác?

Sub InsertMa()
Dim DLarr, SParr, CKarr, Arr
Dim i, j As Long
DLarr = Range("A5:A" & Range("A5").End(xlDown).Row)
SParr = Range("B5:B" & Range("B5").End(xlDown).Row)
ReDim Arr(1 To UBound(DLarr) * UBound(SParr), 1 To 2)
Application.ScreenUpdating = False
Sheets(2).Select
    CKarr = Range("A4:E" & Range("A4").End(xlDown).Row)
For i = 1 To UBound(Arr)
    Arr(i, 1) = DLarr(Int((i - 1) / UBound(SParr)) + 1, 1)
    Arr(i, 2) = SParr(((i - 1) Mod UBound(SParr)) + 1, 1)
Next i
Range("A5:E" & Range("A4").End(xlDown).Row).Clear
Range("A4").Resize(UBound(Arr), 2) = Arr
Range("C4:E4").Copy
Range("C5").Resize(UBound(Arr) - 1, 3).Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveSheet.ListObjects("Table1").Resize Range("A3:E" & Range("A4").End(xlDown).Row)
Application.ScreenUpdating = True
End Sub

 

[LYSM]

Sub InsertMa()
Dim DLarr, SParr, CKarr, Arr
Dim i, j As Long
DLarr = Range("A5:A" & Range("A5").End(xlDown).Row)
SParr = Range("B5:B" & Range("B5").End(xlDown).Row)
ReDim Arr(1 To UBound(DLarr) * UBound(SParr), 1 To 2)
Application.ScreenUpdating = False
Sheets(2).Select
    CKarr = Range("A4:E" & Range("A4").End(xlDown).Row)
For i = 1 To UBound(Arr)
    Arr(i, 1) = DLarr(Int((i - 1) / UBound(SParr)) + 1, 1)
    Arr(i, 2) = SParr(((i - 1) Mod UBound(SParr)) + 1, 1)
Next i
Range("A5:E" & Range("A4").End(xlDown).Row).Clear
Range("A4").Resize(UBound(Arr), 2) = Arr
Range("C4:E4").Copy
Range("C5").Resize(UBound(Arr) - 1, 3).Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveSheet.ListObjects("Table1").Resize Range("A3:E" & Range("A4").End(xlDown).Row)
Application.ScreenUpdating = True
End Sub

Bác ơi, có cách nào mà khi nó là công thức thì vẫn giữ được công thức, còn khi nó là số thì vẫn giữ được số không ạ? Em copy code trên vào nếu ở dạng số nó cho ra toàn số giống nhau hết.

 

[HieuCD]

Bác ơi, có cách nào mà khi nó là công thức thì vẫn giữ được công thức, còn khi nó là số thì vẫn giữ được số không ạ? Em copy code trên vào nếu ở dạng số nó cho ra toàn số giống nhau hết.

số nằm trong nguyên 1 cột hay nằm lung tung ở các cột và dòng? gởi file xem sao

 

[LYSM]

số nằm trong nguyên 1 cột hay nằm lung tung ở các cột và dòng? gởi file xem sao

Nó nằm lung tung bác ạ, em lấy ví dụ ở cột D (CK2), vì đối với mỗi đại lý khác nhau lại có chế độ chiết khấu khác nhau. Em cám ơn bác nhiều!

 

[HieuCD]

Nó nằm lung tung bác ạ, em lấy ví dụ ở cột D (CK2), vì đối với mỗi đại lý khác nhau lại có chế độ chiết khấu khác nhau. Em cám ơn bác nhiều!

Table tự động thực các lệnh khó chịu quá không kiểm soát được, chạy code không được

 

[LYSM]

Table tự động thực các lệnh khó chịu quá không kiểm soát được, chạy code không được

Nếu không dùng được table bác thử bỏ đi cũng được ạ, table em chỉ cần cho 2 cột mã đại lý và mã sản phẩm thôi.

 

[HieuCD]

Nếu không dùng được table bác thử bỏ đi cũng được ạ, table em chỉ cần cho 2 cột mã đại lý và mã sản phẩm thôi.

bạn kiểm tra lại file, đã bỏ table 3 cột cuối

 

[LYSM]

bạn kiểm tra lại file, đã bỏ table 3 cột cuối

File này thì chuẩn rồi bác ạ, có điều khi em đưa danh sách 250 đại lý và 50 sản phẩm mà chạy là nó đứng hình luôn. Em dùng excel 2013, nếu là excel 2010 thì chậm nhưng vẫn ra kết quả. Có cách nào cải thiện được tốc độ của nó không bác? Em cám ơn bác nhiều.