giúp em Code tự động cập nhật mã thuốc qua sheet khác có chèn thêm dòng (1 người xem)

[quoc nhat]

Chào các thầy cô và các anh chị
Nhờ mọi người giúp code tự động chèn thêm dòng và cập nhật mã thuốc vào Sheet Thẻ kho từ sheet 1.
Nếu số hàng (mã thuốc) ở sheet1 có bao nhiêu thì số dòng trong list ở sheet Thẻ kho có bấy nhiêu dòng + 2 hàng trống ở dưới cùng.
Do sheet Thẻ kho em có sử dụng List (Creat List) để copy công thức hàng ở trên xuống nên em không biết viết code ntn để vừa insert số dòng trong list vừa paste dữ liệu vào đành nhờ mọi người giúp.
Em cảm ơn nhiều

 

[quoc nhat]

sao không ai giúp em với.

 

[phucbugis]

"Nhờ mọi người giúp code tự động chèn thêm dòng và cập nhật mã thuốc vào Sheet Thẻ kho từ sheet 1.
Nếu số hàng (mã thuốc) ở sheet1 có bao nhiêu thì số dòng trong list ở sheet Thẻ kho có bấy nhiêu dòng + 2 hàng trống ở dưới cùng."

Mình đã thêm macro đúng như yêu cầu đó, và có chỉnh thêm:

1. resize lại Table List1
=$A$9:$P$90 -> =$A$9:$P$89

2. Name dmuc ='thẻ kho'!$B$10:$B$109 -> ='thẻ kho'!$C$10:$C$92

3. chỉnh lại công thức 1 số cột ở sheet Thekho (STT, ten thuoc …) thuộc Table List1

4. thêm thuộc tính cột mã thuốc ở sheet1 để kiểm tra trùng mã.

Chú ý: Ko nên đặt tên sheet = Tiếng Việt -> khó sử dụng khi viết Macro

Chào !

Link
http://www.mediafire.com/?aatf1cneh6shml1

 

[quoc nhat]

"Nhờ mọi người giúp code tự động chèn thêm dòng và cập nhật mã thuốc vào Sheet Thẻ kho từ sheet 1.
Nếu số hàng (mã thuốc) ở sheet1 có bao nhiêu thì số dòng trong list ở sheet Thẻ kho có bấy nhiêu dòng + 2 hàng trống ở dưới cùng."

Mình đã thêm macro đúng như yêu cầu đó, và có chỉnh thêm:

1. resize lại Table List1
=$A$9:$P$90 -> =$A$9:$P$89

2. Name dmuc ='thẻ kho'!$B$10:$B$109 -> ='thẻ kho'!$C$10:$C$92

3. chỉnh lại công thức 1 số cột ở sheet Thekho (STT, ten thuoc …) thuộc Table List1

4. thêm thuộc tính cột mã thuốc ở sheet1 để kiểm tra trùng mã.

Chú ý: Ko nên đặt tên sheet = Tiếng Việt -> khó sử dụng khi viết Macro

Chào !

Link
http://www.mediafire.com/?aatf1cneh6shml1

Cám ơn anh đã chỉ giúp
Anh có thể chỉnh code giúp em tý nữa được không
Giúp em có thể update dữ liệu mà thứ tự sắp mã giống bên sheet 1 không anh
Cám ơn anh nhiều

 

[phucbugis]

"Giúp em có thể update dữ liệu mà thứ tự sắp mã giống bên sheet 1 không anh"

cái này bạn có thể dùng Record macro có sẵn trong Excel thì nó cũng có.

Link:
http://www.mediafire.com/?vaeh38d680ovjha

mình có thêm range("dmuc2")='thẻ kho'!$C$9:$C$92

Chào !

 

[quoc nhat]

"Giúp em có thể update dữ liệu mà thứ tự sắp mã giống bên sheet 1 không anh"

cái này bạn có thể dùng Record macro có sẵn trong Excel thì nó cũng có.

Link:
http://www.mediafire.com/?vaeh38d680ovjha

mình có thêm range("dmuc2")='thẻ kho'!$C$9:$C$92

Chào !

Bị lỗi anh ơi. Em bấm nút Update thì bị lỗi ở sub sau:
Sub sort_sheet1()
With ActiveWorkbook.Worksheets("Sheet1")
.AutoFilter.Sort.SortFields.Clear
.AutoFilter.Sort.SortFields.Add Key:=Range _
("B1:B65536"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
End With
With ActiveWorkbook.Worksheets("Sheet1").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

End Sub
Anh xem lại giúp em một tý.
Em cảm ơn!

 

[phucbugis]

Mình test lại vẫn OK mà,
Bị lỗi dòng nào vậy?
Bạn có thể add Face của mình để hỏi cho lẹ. (https://www.facebook.com/phuc.nguyenhuu.7927)

Chào !

 

[ndu96081631]

Bị lỗi anh ơi. Em bấm nút Update thì bị lỗi ở sub sau:
Sub sort_sheet1()
......

End Sub
Anh xem lại giúp em một tý.
Em cảm ơn!

Bạn dùng Excel 2003 chăng?

 

[quoc nhat]

Bạn dùng Excel 2003 chăng?

Dạ đúng vậy đó thầy
Nhờ thầy và anh phucbugis sửa lỗi giúp em với ạ
Lỗi ở dòng này ạ
Sub sort_sheet1()
With ActiveWorkbook.Worksheets("Sheet1")
.AutoFilter.Sort.SortFields.Clear
.AutoFilter.Sort.SortFields.Add Key:=Range _
("B1:B65536"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
End With
With ActiveWorkbook.Worksheets("Sheet1").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

End Sub

 

[phucbugis]

"Lỗi ở dòng này ạ
Sub sort_sheet1()
With ActiveWorkbook.Worksheets("Sheet1")
.AutoFilter.Sort.SortFields.Clear"


ah, mình biết vì sao rồi. Đó là do row1 của sheet1 phải có Filter để sẵn.
Nếu bỏ đi thì xảy ra lỗi ở dòng đó.

=> Tại B1 bạn chèn Data - Filter rồi chạy code lại xem sao nhé?

Chào !

 

[ndu96081631]

Dạ đúng vậy đó thầy
Nhờ thầy và anh phucbugis sửa lỗi giúp em với ạ

Vậy thì nói tóm lại rằng: Cái code mà đồng chí Bugi đưa cho bạn là code dùng cho Excel 2007 trở lên. Excel 2003 không phải viết như vậy
Để biết AutoFilter và Sort trên Excel 2003 viết thế nào, cứ record macro sẽ biết (và đương nhiên là record macro trên Excel 2003)

 

[quoc nhat]

Vậy thì nói tóm lại rằng: Cái code mà đồng chí Bugi đưa cho bạn là code dùng cho Excel 2007 trở lên. Excel 2003 không phải viết như vậy
Để biết AutoFilter và Sort trên Excel 2003 viết thế nào, cứ record macro sẽ biết (và đương nhiên là record macro trên Excel 2003)

Thưa thầy em chỉ biết Recoder macro copy và dán khi nó lặp đi lặp lại thôi chứ cái cập nhật có thêm bớt thay đổi này em không biết làm thế nào cả.
Mong thầy ra tay chỉ giúp em cái code với ạ
Em cảm ơn thầy và các anh chị nhiều

 

[quoc nhat]

thưa thầy em chỉ biết recoder macro copy và dán khi nó lặp đi lặp lại thôi chứ cái cập nhật có thêm bớt thay đổi này em không biết làm thế nào Cả.
Mong thầy ra tay chỉ giúp em cái code với ạ
em cảm ơn thầy và các anh chị nhiều

thầy cô và các anh chị ơi giúp em với!!!!!!!!!!!!!!