VBA đánh số tự động sau khi filter (1 người xem)

[tamngominh]

Dear all,

Nhờ các anh, chị giúp đỡ em muốn tạo code cho việc đánh số thứ tự
Số thứ tự tăng từ 1 đến khi hết dữ liệu của dòng
Dữ liệu em filter theo ngày
Số thứ tự em muốn điền vào cột Z


Như trong file: active cell vị trí B15 (ngày 5/8/2019), em filter ngày 5/8/2019
Em dùng offset di chuyển ra cột z (Z16) rùi
đếm số dòng có dữ liệu (trong file là 6 dòng) dùng count
em dùng loop điền số thứ tự từ 1 đến 6


Code em viết như thế
Nhờ giúp đỡ

"Sub chaysothutu()
ActiveCell.Offset(, 2).Select
Dim startnumber As Integer
Dim endnumber As Integer
Dim lastrow As Long
lastrow = Range("A1:A10000").SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeConstants).Count

reallastrow = lastrow - 1

endnumber = reallastrow
For startnumber = 1 To endnumber
Cells(startnumber, ActiveCell).Value = startnumber
Next startnumber
End Sub"


Cam on ca nhà

Bài đã được tự động gộp: 26/9/19

Em đính kèm file!

Nhờ giúp đỡ,

Thank

 

[phulien1902]

Dear all,

Nhờ các anh, chị giúp đỡ em muốn tạo code cho việc đánh số thứ tự
Số thứ tự tăng từ 1 đến khi hết dữ liệu của dòng
Dữ liệu em filter theo ngày
Số thứ tự em muốn điền vào cột Z


Như trong file: active cell vị trí B15 (ngày 5/8/2019), em filter ngày 5/8/2019
Em dùng offset di chuyển ra cột z (Z16) rùi
đếm số dòng có dữ liệu (trong file là 6 dòng) dùng count
em dùng loop điền số thứ tự từ 1 đến 6


Code em viết như thế
Nhờ giúp đỡ

"Sub chaysothutu()
ActiveCell.Offset(, 2).Select
Dim startnumber As Integer
Dim endnumber As Integer
Dim lastrow As Long
lastrow = Range("A1:A10000").SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeConstants).Count

reallastrow = lastrow - 1

endnumber = reallastrow
For startnumber = 1 To endnumber
Cells(startnumber, ActiveCell).Value = startnumber
Next startnumber
End Sub"


Cam on ca nhà

Bài đã được tự động gộp: 26/9/19

Em đính kèm file!

Nhờ giúp đỡ,

Thank

Cách làm của bạn không khả thi. Cách tốt nhất là lọc dữ liệu sang 1 Sheet khác bao gồm STT & dữ liệu.

 

[tamngominh]

Cách làm của bạn không khả thi. Cách tốt nhất là lọc dữ liệu sang 1 Sheet khác bao gồm STT & dữ liệu.

Cam on bạn,

Mình chỉ muốn sửa trên file này, mình sẽ rút ngắn thời gian dùng tay điền số thứ tự
Thank ban!
tam

 

[khanhhero]

Cam on bạn,

Mình chỉ muốn sửa trên file này, mình sẽ rút ngắn thời gian dùng tay điền số thứ tự
Thank ban!
tam

Ko cần dùng code, bạn xem cột X và cột Y nhé, dùng subtotal thôi.

 

[chiendich]

Dear all,

Nhờ các anh, chị giúp đỡ em muốn tạo code cho việc đánh số thứ tự
Số thứ tự tăng từ 1 đến khi hết dữ liệu của dòng
Dữ liệu em filter theo ngày
Số thứ tự em muốn điền vào cột Z


Như trong file: active cell vị trí B15 (ngày 5/8/2019), em filter ngày 5/8/2019
Em dùng offset di chuyển ra cột z (Z16) rùi
đếm số dòng có dữ liệu (trong file là 6 dòng) dùng count
em dùng loop điền số thứ tự từ 1 đến 6


Code em viết như thế
Nhờ giúp đỡ

"Sub chaysothutu()
ActiveCell.Offset(, 2).Select
Dim startnumber As Integer
Dim endnumber As Integer
Dim lastrow As Long
lastrow = Range("A1:A10000").SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeConstants).Count

reallastrow = lastrow - 1

endnumber = reallastrow
For startnumber = 1 To endnumber
Cells(startnumber, ActiveCell).Value = startnumber
Next startnumber
End Sub"


Cam on ca nhà

Bài đã được tự động gộp: 26/9/19

Em đính kèm file!

Nhờ giúp đỡ,

Thank

Tại ô cần để số thứ tự: Dùng công thức sau để đánh số thứ tự khi lọc theo cột B:

=SUBTOTAL(103,$B$5:B5)

rồi fill xuống!
Thân

 

[be_09]

Dear all,

Nhờ các anh, chị giúp đỡ em muốn tạo code cho việc đánh số thứ tự
Số thứ tự tăng từ 1 đến khi hết dữ liệu của dòng
Dữ liệu em filter theo ngày
Số thứ tự em muốn điền vào cột Z


Như trong file: active cell vị trí B15 (ngày 5/8/2019), em filter ngày 5/8/2019
Em dùng offset di chuyển ra cột z (Z16) rùi
đếm số dòng có dữ liệu (trong file là 6 dòng) dùng count
em dùng loop điền số thứ tự từ 1 đến 6


Code em viết như thế
Nhờ giúp đỡ

"Sub chaysothutu()
ActiveCell.Offset(, 2).Select
Dim startnumber As Integer
Dim endnumber As Integer
Dim lastrow As Long
lastrow = Range("A1:A10000").SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeConstants).Count

reallastrow = lastrow - 1

endnumber = reallastrow
For startnumber = 1 To endnumber
Cells(startnumber, ActiveCell).Value = startnumber
Next startnumber
End Sub"


Cam on ca nhà

Bài đã được tự động gộp: 26/9/19

Em đính kèm file!

Nhờ giúp đỡ,

Thank

Như nội dung góp ý bài 2.
Dùng code lọc dữ liệu sang Sheet khác rồi đánh STT.

 

[tamngominh]

Ko cần dùng code, bạn xem cột X và cột Y nhé, dùng subtotal thôi.

Dear khanhhero,

Cám ơn bạn nhiều, đúng như ý mình muốn rùi.

thank!

Bài đã được tự động gộp: 2/10/19

Tại ô cần để số thứ tự: Dùng công thức sau để đánh số thứ tự khi lọc theo cột B:

=SUBTOTAL(103,$B$5:B5)

rồi fill xuống!
Thân

Dear chiendich,

Rất cảm ơn, công thức của bạn gọn hơn và ít di chuyển dữ liệu nhiều

Thank!
Tam

Bài đã được tự động gộp: 2/10/19

Như nội dung góp ý bài 2.
Dùng code lọc dữ liệu sang Sheet khác rồi đánh STT.

Dear be09,
Mình cảm ơn bạn,

Mình cần dữ liệu ở sheet đó luôn, do mình đã dùng code cho sheet đó rùi,
thank bạn nhiều nha

Tam