Sao chép dữ liệu

[trantuonganh2008]

Mình có 2 workbook có tên là book1 (gồm shee1,2,3...20), book2 (gồm sheet1,2,3...20). Mình muốn lấy dữ liệu từ book1 sang book2 (chỉ lấy values thôi) nhưng với điều kiện là mình không muốn lấy dl từ các sheet3,4,8,10 (book1)thì mình sẽ đặt đk như thế nào? Mình chỉ nhờ giúp dòng đặt đk này thôi. Nhờ các bạn chỉ giúp, cám ơn nhiều

 

[nghiaphuc]

Mình có 2 workbook có tên là book1 (gồm shee1,2,3...20), book2 (gồm sheet1,2,3...20). Mình muốn lấy dữ liệu từ book1 sang book2 (chỉ lấy values thôi) nhưng với điều kiện là mình không muốn lấy dl từ các sheet3,4,8,10 (book1)thì mình sẽ đặt đk như thế nào? Mình chỉ nhờ giúp dòng đặt đk này thôi.
Nhờ các bạn chỉ giúp, cám ơn nhiều

Đặt 1 hằng Bo:

Const Bo as String = ".Sheet3..Sheet4..Sheet8..Sheet10."

Giả sử Sh as Worksheet là biến dùng để duyệt trong vòng For
=> ĐK là Instr(Bo,"." & Sh.Name & ".")=0
Sở dĩ thêm 2 dấu "." bao 2 đầu tên sheet là để Sub vẫn copy Sheet1 (vì Sheet1 có ở trong Bo)
Còn nếu bỏ hết các dấu "." ở trên thì điều kiện là:
(Sh.Name <> "Sheet1") and (Instr(Bo,Sh.Name)=0)

 

[havietchuong]

Tôi đưa lên ở những đề tài mới không được nên đành gởi ở đây không biết đúng hay sai, mong thông cảm.
Tôi đang làm sổ Thư viện với khá nhiều tên sách, không biết bằng cách nào để đánh số thứ tự cho tên sách với những hàng không liên tục. Mong các bạn giúp đỡ. Cám ơn.

 

[nghiaphuc]

Tôi đưa lên ở những đề tài mới không được nên đành gởi ở đây không biết đúng hay sai, mong thông cảm.
Tôi đang làm sổ Thư viện với khá nhiều tên sách, không biết bằng cách nào để đánh số thứ tự cho tên sách với những hàng không liên tục. Mong các bạn giúp đỡ. Cám ơn.

VD: Cột B là tên sách, cột A là STT (tất cả tính từ hàng 2, trừ hàng 1 là tiêu đề)
=> [A2]=Counta(B$2:B2)
=> Sao chép cho các ô còn lại của cột A

 

[havietchuong]

VD: Cột B là tên sách, cột A là STT (tất cả tính từ hàng 2, trừ hàng 1 là tiêu đề)
=> [A2]=Counta(B$2:B2)
=> Sao chép cho các ô còn lại của cột A

Bạn xem hộ tôi ở file đính kèm nha. Cám ơn.

 

[nghiaphuc]

Bạn xem hộ tôi ở file đính kèm nha. Cám ơn.

[B3]=IF(OR(E3="",E3="nt"),"",COUNTIF(E$3:E3,"<>nt"))
Trong file của bạn, DS là liên tục nên bỏ ĐK E3="" đi. Nếu DS không liên tục thì công thức trên vẫn chưa đúng đâu => Công thức sau phù hợp cho trường hợp này:
[B3]=IF(OR(E3="",E3="nt"),"",COUNTIF(E$3:E3,"<>nt")-COUNTBLANK(E$3:E3))

 

[havietchuong]

[B3]=IF(OR(E3="",E3="nt"),"",COUNTIF(E$3:E3,"<>nt"))
Trong file của bạn, DS là liên tục nên bỏ ĐK E3="" đi. Nếu DS không liên tục thì công thức trên vẫn chưa đúng đâu => Công thức sau phù hợp cho trường hợp này:
[B3]=IF(OR(E3="",E3="nt"),"",COUNTIF(E$3:E3,"<>nt")-COUNTBLANK(E$3:E3))

Cám ơn bạn rất nhiều. Nhưng bạn ơi nếu giúp thì giúp luôn cho trót. Trường hợp khi tôi bị sót chữ (nt) ở cột E thì số thứ tự sẽ bị nhảy. Muốn khắc phục thì phải chỉnh sửa công thức như thế nào? Nhờ bạn chỉ giúp. Cám ơn.

 

[trantuonganh2008]

Đặt 1 hằng Bo:

Const Bo as String = ".Sheet3..Sheet4..Sheet8..Sheet10."

Giả sử Sh as Worksheet là biến dùng để duyệt trong vòng For => ĐK là Instr(Bo,"." & Sh.Name & ".")=0 Sở dĩ thêm 2 dấu "." bao 2 đầu tên sheet là để Sub vẫn copy Sheet1 (vì Sheet1 có ở trong Bo) Còn nếu bỏ hết các dấu "." ở trên thì điều kiện là: (Sh.Name "Sheet1") and (Instr(Bo,Sh.Name)=0)

Hi, nghiaphuc Lúc trước mình có nhờ bạn làm dùm mình yêu cầu này, giờ bạn giúp mình nhé. Mình gửi file "Tháng 11-2009", mình làm theo cách bạn nhưng báo lỗi, i.e mình không muốn copy dl của sheet có tên "TL" của tháng 10-2009 thì sửa code lại như thế nào? Cám ơn bạn nhiều!!!

 

[dat_butmuc]

Cám ơn bạn rất nhiều. Nhưng bạn ơi nếu giúp thì giúp luôn cho trót. Trường hợp khi tôi bị sót chữ (nt) ở cột E thì số thứ tự sẽ bị nhảy. Muốn khắc phục thì phải chỉnh sửa công thức như thế nào? Nhờ bạn chỉ giúp. Cám ơn.

Bạn dùng công thức

=IF(OR(E3="",E3="nt"),"",SUMPRODUCT((E$3:E3<>"nt")*(E$3:E3<>"")))

cho bảng của bạn.
Nếu sai không tính tiền,
Thông cảm, tôi thích dùng sumproduct - có nhiều điều kỳ diệu.
Thân,

 

[nghiaphuc]

Cám ơn bạn rất nhiều. Nhưng bạn ơi nếu giúp thì giúp luôn cho trót. Trường hợp khi tôi bị sót chữ (nt) ở cột E thì số thứ tự sẽ bị nhảy. Muốn khắc phục thì phải chỉnh sửa công thức như thế nào? Nhờ bạn chỉ giúp. Cám ơn.

Mình thấy cách làm sau của mình giải quyết được trường hợp này mà:

[B3]=IF(OR(E3="",E3="nt"),"",COUNTIF(E$3:E3,"<>nt")-COUNTBLANK(E$3:E3))

Hoặc bạn có thể làm theo cách của dat_butmuc, mình thấy đây là cách rất hay đấy. 2 cách này cho kết quả như nhau nhưng cách của dat_butmuc gọn hơn một xíu và... nó có nhiều điều để khám phá (nếu có nhiều điều kiện, bạn sẽ thấy cách này hay hơn nhiều)

 

[nghiaphuc]

Hi, nghiaphuc
Lúc trước mình có nhờ bạn làm dùm mình yêu cầu này, giờ bạn giúp mình nhé.
Mình gửi file "Tháng 11-2009", mình làm theo cách bạn nhưng báo lỗi, i.e mình không muốn copy dl của sheet có tên "TL" của tháng 10-2009 thì sửa code lại như thế nào?
Cám ơn bạn nhiều!!!

Bạn có thể nói rõ hơn được không? Quả thật mình xem file của bạn mà không biết bạn muốn làm gì nữa...

 

[trantuonganh2008]

http://www.giaiphapexcel.com/forum/showthread.php?t=31033 Vì lúc trước mình có nhờ bạn làm theo yêu cầu của mình, phiền bạn xem lại địa chỉ trên giúp mình nhé, thành thật cám ơn bạn nhiều!!!