Giúp đỡ code đếm số thứ tự, và code VBA dò tìm từ sheet khác (1 người xem)

[GTK-PM]

Gửi anh chị. Rất mong anh chị giúp đỡ em để hoàn thiện file excel bên dưới
Link: ( do file nặng )http://www.mediafire.com/file/b5vl98d21nowfor/file.xls File không có mk
+ Em muốn xin code tự động đếm số thứ tự tại cột C
Khi em ghi số phiếu 1: sẽ tự động đếm số thứ tự từ 1 đến 20 ( nếu có dữ liệu tại cột E ) và khi bắt đầu phiếu mới lại đếm tương tự như phiếu 1. ( Ví dụ: Nếu tại cột E chỉ có đến 8 thì sẽ cột C sẽ tự đếm số thứ tự từ 1 đến 8, và khi viết phiếu mới lại tiếp tục đếm lại, tối đa đến 20 phiếu )
+ Tại sheet PhieuNK, phieuXK dùng code vba dò tìm theo dữ liệu bên sheet Nhap sheet Xuat, em hiện tại đã làm bằng công thức nhưng nặng quá.
+ Tự động ẩn hàng phieuNK, phieuXK ( ví dụ: dữ liệu phiếu xuất kho có dữ liệu từ 1 đến 8 thì sẽ ẩn từ hàng của số thứ tự 9 đến số thứ tự 20 )
Rất mong anh chị giúp đỡ. Chân thành cảm ơn.

 

[GTK-PM]

Gửi anh chị. Rất mong anh chị giúp đỡ em để hoàn thiện file excel bên dưới
Link: ( do file nặng )http://www.mediafire.com/file/b5vl98d21nowfor/file.xls File không có mk
+ Em muốn xin code tự động đếm số thứ tự tại cột C
Khi em ghi số phiếu 1: sẽ tự động đếm số thứ tự từ 1 đến 20 ( nếu có dữ liệu tại cột E ) và khi bắt đầu phiếu mới lại đếm tương tự như phiếu 1. ( Ví dụ: Nếu tại cột E chỉ có đến 8 thì sẽ cột C sẽ tự đếm số thứ tự từ 1 đến 8, và khi viết phiếu mới lại tiếp tục đếm lại, tối đa đến 20 phiếu )
+ Tại sheet PhieuNK, phieuXK dùng code vba dò tìm theo dữ liệu bên sheet Nhap sheet Xuat, em hiện tại đã làm bằng công thức nhưng nặng quá.
+ Tự động ẩn hàng phieuNK, phieuXK ( ví dụ: dữ liệu phiếu xuất kho có dữ liệu từ 1 đến 8 thì sẽ ẩn từ hàng của số thứ tự 9 đến số thứ tự 20 )
Rất mong anh chị giúp đỡ. Chân thành cảm ơn.

@BaTe#Bate......................................................

 

[Ba Tê]

@BaTe#Bate......................................................

Bạn "réo" đích danh người cũng như không thôi.
File bạn khóa VBA có xem hay làm được gì đâu. Mở không được "quê" lắm.
Khuyến mãi bạn cái Sub ghi STT cột C sheet NHAP, và XUAT. Các chuyện khác chờ người khác giúp bạn nếu họ mở được khóa VBA.

Public Sub STT()
Dim Arr(), R As Long, I As Long, N As Long
Arr = Range("B10:B" & Range("D65536").End(xlUp).Row).Value
R = UBound(Arr)
For I = 1 To R
    N = IIf(Arr(I, 1) <> Empty, 1, N + 1)
    Arr(I, 1) = N
Next I
Range("C10").Resize(R) = Arr
End Sub

 

[GTK-PM]

Thành thật xin lỗi, mình quên là không hủy mật khẩu vba.
Rất mong bạn Bate giúp đỡ, phần còn lại tại sheet phieuNK, phieu XK

File đính kèm : http://www.mediafire.com/file/b5vl98d21nowfor/file.xls

 

[GTK-PM]

Bạn "réo" đích danh người cũng như không thôi.
File bạn khóa VBA có xem hay làm được gì đâu. Mở không được "quê" lắm.
Khuyến mãi bạn cái Sub ghi STT cột C sheet NHAP, và XUAT. Các chuyện khác chờ người khác giúp bạn nếu họ mở được khóa VBA.

Public Sub STT()
Dim Arr(), R As Long, I As Long, N As Long
Arr = Range("B10:B" & Range("D65536").End(xlUp).Row).Value
R = UBound(Arr)
For I = 1 To R
    N = IIf(Arr(I, 1) <> Empty, 1, N + 1)
    Arr(I, 1) = N
Next I
Range("C10").Resize(R) = Arr
End Sub

Public Sub STT()
Dim Arr(), R As Long, I As Long, N As Long
Arr = Range("B10:B" & Range("D65536").End(xlUp).Row).Value
R = UBound(Arr)
For I = 1 To R
N = IIf(Arr(I, 1) <> Empty, 1, N + 1)
Arr(I, 1) = N
Next I
Range("C10").Resize(R) = Arr
End Sub
Phần code mình bôi đỏ không thực hiện được anh Bate ạ, cũng không tự ẩn hàng khi chạy marco. Rất mong anh sửa trực tiếp trong file.

 

[GTK-PM]

Sao trả ai giúp đỡ nhỉ................................

 

[Ba Tê]

Public Sub STT()
Dim Arr(), R As Long, I As Long, N As Long
Arr = Range("B10:B" & Range("D65536").End(xlUp).Row).Value
R = UBound(Arr)
For I = 1 To R
N = IIf(Arr(I, 1) <> Empty, 1, N + 1)
Arr(I, 1) = N
Next I
Range("C10").Resize(R) = Arr
End Sub
Phần code mình bôi đỏ không thực hiện được anh Bate ạ, cũng không tự ẩn hàng khi chạy marco. Rất mong anh sửa trực tiếp trong file.

- Bài #2 tôi đã nói là Sub trên chỉ dành cho 2 sheet NHAP, XUAT, đâu có yêu cầu ẩn dòng trong 2 sheet này.

Thành thật xin lỗi, mình quên là không hủy mật khẩu vba.

- File của bạn có hàng trăm Names làm file nặng nề quá. Tôi chỉ lấy nội dung và viết code cho sheet PhieuNK, bạn áp dụng tương tự cho sheet PhieuXK nhé.

 

[GTK-PM]

Sao không thank Bate được nhỉ. Mình đang sử dụng các code của Bate, rất mượt. chúc bạn mạnh khỏe.