Báo lỗi khi thiết lập endrow

[viettho]

Chào anh/chị
Em đang gặp vấn đề khi set EndRow tại vị trí Name Range. Em có đoạn code dùng để chèn và dán dòng tiêu đề cho phiếu lương, em có đặt Name tại ô E299 lần lượt cho các sheet. Mục đích của em khi nhập số lượng CNV vào ô E299 thì lệnh chèn và dán dòng sẽ thực hiện theo số lượng đó
Ví dụ: số lượng CNV là 30 người thì lệnh insert và copy sẽ lập lại 30 lần theo thứ tự tạo ra 30 phiếu lương
Mong được mọi người giúp đở

 

[Hoàng Nhật Phương]

Chào anh/chị
Em đang gặp vấn đề khi set EndRow tại vị trí Name Range. Em có đoạn code dùng để chèn và dán dòng tiêu đề cho phiếu lương, em có đặt Name tại ô E299 lần lượt cho các sheet. Mục đích của em khi nhập số lượng CNV vào ô E299 thì lệnh chèn và dán dòng sẽ thực hiện theo số lượng đó
Ví dụ: số lượng CNV là 30 người thì lệnh insert và copy sẽ lập lại 30 lần theo thứ tự tạo ra 30 phiếu lương
Mong được mọi người giúp đở

Bạn thử xem được không ạ,

sửa:
EndRow = Names.Item(ItemName).RefersToRange

thành:
EndRow = Sheets(SheetName).Names(ItemName).RefersToRange.Value

 

[befaint]

Bị virus rồi.

 

[Hoàng Nhật Phương]

Bị virus rồi.

View attachment 234893

Virut ăn mất luôn cả file đính kèm ở bài 1 nữa rồi.. T_T

 

[viettho]

Virut ăn mất luôn cả file đính kèm ở bài 1 nữa rồi.. T_T

Mình vừa gởi lại file rồi mọi người xem giúp mình nhé

 

[viettho]

Bạn thử xem được không ạ,

sửa:
EndRow = Names.Item(ItemName).RefersToRange

thành:
EndRow = Sheets(SheetName).Names(ItemName).RefersToRange.Value

Mình thử rồi nhưng không được bạn ơi. Còn phương án nào khác không

 

[VetMini]

Rốt cuộc thì thớt quảng cáo thật hay bị mao-que nó quấy?

 

[Hoàng Nhật Phương]

Mình thử rồi nhưng không được bạn ơi. Còn phương án nào khác không

Chào Bạn,
Hic mình sợ virut lại chén mất file như lần trước lắm, nên ko dám xem nữa..
với lại thực sự mình không hiểu ý bạn lắm bạn nói cụ thể hơn xem thế nào ạ, lần trước mình chạy code thấy lỗi chỗ đó do sai cú pháp nên mình sửa lại thôi ạ.

 

[Hoàng Nhật Phương]

Mình thử rồi nhưng không được bạn ơi. Còn phương án nào khác không

Bạn chưa sửa như mình nêu ở bài 2 , nếu bạn thêm * 3 thì bạn thêm vào cuối ạ:

EndRow = Sheets(SheetName).Names(ItemName).RefersToRange.Value * 3

 

[viettho]

Chào Bạn,
Hic mình sợ virut lại chén mất file như lần trước lắm, nên ko dám xem nữa..
với lại thực sự mình không hiểu ý bạn lắm bạn nói cụ thể hơn xem thế nào ạ, lần trước mình chạy code thấy lỗi chỗ đó do sai cú pháp nên mình sửa lại thôi ạ.

Rất cám ơn bạn đã nhiệt tình hỗ trợ
Đây là đoạn code để giúp mình in phiếu lương. Ở ông E303 mình có đặt name là Total_A cho sheet A và tương tự cho những sheet khác. Cái mình mong muốn giả sử khi mình điền số 3 vào ô E303 thì lệnh insert copy sẽ tự chạy đến dòng thứ 3. khi mình điền số 4, 5, 6.....thì nó vẫn sẽ hoạt động tương tự như vậy nhờ bạn hỗ trợ giúp mình nhé

 

[viettho]

Xin chào anh/ chị
Cám ơn anh/chị đã hỗ trợ. Em đã tìm ra phương án để giải quyết vấn đề rồi ạ