Xin code coppy 1 sheet thành nhiều sheet (1 người xem)

[tnthk12]

Mấy anh mấy thầy cho em hỏi:

em mún tạo 1 file có thể coppy 1 sheet ra thành nhiều sheet với tên sheet mình mún đặt dùng code vb.

ví dụ khi gõ rank : a, b, c, d,e thì nó sẽ copy sheet data rồi tạo thành shet mới tương ướng với thứ tự mình đặt tên sheet, a,b,c,d,e.

ai biết giúp em với,
em xin cảm ơn

 

[giaiphap]

Mấy anh mấy thầy cho em hỏi:

em mún tạo 1 file có thể coppy 1 sheet ra thành nhiều sheet với tên sheet mình mún đặt dùng code vb.

ví dụ khi gõ rank : a, b, c, d,e thì nó sẽ copy sheet data rồi tạo thành shet mới tương ướng với thứ tự mình đặt tên sheet, a,b,c,d,e.

ai biết giúp em với,
em xin cảm ơn

Bạn thêm code sau cho nút Tách Sheet

Public Sub ThemSheet()
On Error Resume Next
Dim i As Integer
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For i = 3 To Range("B3").End(xlDown).Row
   Sheets("DATA").Copy After:=Sheets(Worksheets.Count)
   Sheets(Worksheets.Count).Name = Sheet1.Range("B" & i).Value
Next i
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Sheet1.Select
End Sub

 

[tnthk12]

sao mình thêm vào không được, bạn lỡ giúp oy làm giùm mình cái file với. mình cãm ơn nhe

 

[be_09]

sao mình thêm vào không được, bạn lỡ giúp oy làm giùm mình cái file với. mình cãm ơn nhe

Code File bài #1 sheet danhsach vùng lầy dữ liệu là $A$2:$M$657 (với name là VungLayDuLieu)
Bạn muốn sử dụng code bài #1 cho sheet DATA, thì phải đặt Name cho vùng từ D3:F32 và phải sửa vài chỗ cho code.

Trong code đó dùng AdvancedFilter và Copy thôi mà.

 

[tnthk12]

Code File bài #1 sheet danhsach vùng lầy dữ liệu là $A$2:$M$657 (với name là VungLayDuLieu)
Bạn muốn sử dụng code bài #1 cho sheet DATA, thì phải đặt Name cho vùng từ D3:F32 và phải sửa vài chỗ cho code.

Trong code đó dùng AdvancedFilter và Copy thôi mà.

tại file đó mình tìm đc của một bạn giống với í của mình, mình không rành về code vb, bạn có thể giúp mình add file được không, tại công việc đòi hỏi phải coppy 1 sheet góc ra thành nhiều sheet để làm việc và phải đặt tên sheet nữa...bạn giúp mình với

 

[be_09]

tại file đó mình tìm đc của một bạn giống với í của mình, mình không rành về code vb, bạn có thể giúp mình add file được không, tại công việc đòi hỏi phải coppy 1 sheet góc ra thành nhiều sheet để làm việc và phải đặt tên sheet nữa...bạn giúp mình với

File trên tôi cũng giúp cho 1 thành viên nào đó trên diễn đàn.

Còn bạn muốn giúp thì đưa File với tiêu đề là thực tế với vài chục dòng dữ liệu và nêu rõ lấy cột nào tách ra các sheet và cho ra kết quả khoảng 2 sheet để có cái mà thử và kiểm chứng (tôi đã xem File bài #1 sheét bạn cần tách là chưa thực tế).

 

[tnthk12]

File trên tôi cũng giúp cho 1 thành viên nào đó trên diễn đàn.

Còn bạn muốn giúp thì đưa File với tiêu đề là thực tế với vài chục dòng dữ liệu và nêu rõ lấy cột nào tách ra các sheet và cho ra kết quả khoảng 2 sheet để có cái mà thử và kiểm chứng (tôi đã xem File bài #1 sheét bạn cần tách là chưa thực tế).

Ý của e là làm sao để coppy nguyên cái sheet DATA thành nhiều sheet và tên sheet được đặt theo tên ở danh sách đó anh.

 

[be_09]

Chỉ 1 sheet DATA là đủ dùng rôi. Tại sao phải coppy nguyên xi cái sheet DATA ra nhiều sheet với mục đích để làm gì thì tôi không hiểu được.

 

[giaiphap]

sao mình thêm vào không được, bạn lỡ giúp oy làm giùm mình cái file với. mình cãm ơn nhe

Của bạn đây, hên xui nghe!

 

[tnthk12]

Của bạn đây, hên xui nghe!

hên quá, em cảm ơn anh nhiều nha,

anh cho e hỏi thêm là e mún sau khi coppy sheet ra roi tại ô B3 của sheet coppy ,mình có thể làm sao để ô B3 có tên giống với tên sheet đó không anh, với khi mình dặt trùng tên sheet thì nó sẽ dể tên mình đã đặt và thêm số (2) vào được không anh? vidu: có 2 tên CAB13B2 giống nhau thì sẽ có 2 sheet tên là:CAB13B2 & CAB13B2(2)

xin anh giúp đỡ, e không rành về vb, em cảm ơn anh.

 

[giaiphap]

hên quá, em cảm ơn anh nhiều nha,

anh cho e hỏi thêm là e mún sau khi coppy sheet ra roi tại ô B3 của sheet coppy ,mình có thể làm sao để ô B3 có tên giống với tên sheet đó không anh, với khi mình dặt trùng tên sheet thì nó sẽ dể tên mình đã đặt và thêm số (2) vào được không anh? vidu: có 2 tên CAB13B2 giống nhau thì sẽ có 2 sheet tên là:CAB13B2 & CAB13B2(2)

xin anh giúp đỡ, e không rành về vb, em cảm ơn anh.

Của bạn đây, chỉ sử dụng cho phép 2 tên trùng thôi nghe, còn nếu 3 tên trở lên trùng thì làm khác (Bạn tự nghiên cứu).

 

[tnthk12]

của bạn đây, chỉ sử dụng cho phép 2 tên trùng thôi nghe, còn nếu 3 tên trở lên trùng thì làm khác (bạn tự nghiên cứu).

cảm ơn anh nhiều nha!!!!!

 

[tnthk12]

Của bạn đây, chỉ sử dụng cho phép 2 tên trùng thôi nghe, còn nếu 3 tên trở lên trùng thì làm khác (Bạn tự nghiên cứu).

Anhg ơi cho e hỏi thêm e mún cho 3 đến 4 sheet có thể trùng nhau thì thay đổi làm sao anh, nhưng mấy sheet trung nhau ô J6 vẫn lấy tên sheet bình thuong khong có số (2),(3),(4) kèm theo như tên sheet dc ko anh?

 

[giaiphap]

Anhg ơi cho e hỏi thêm e mún cho 3 đến 4 sheet có thể trùng nhau thì thay đổi làm sao anh, nhưng mấy sheet trung nhau ô J6 vẫn lấy tên sheet bình thuong khong có số (2),(3),(4) kèm theo như tên sheet dc ko anh?

Cái này bạn tự nghiên cứu được mà, hay bạn chỉ thích người khác giúp mình khỏi tốn công sức đây. Thôi kệ đang rảnh giúp bạn luôn vậy, không biết đúng ý bạn không nửa

 

[tnthk12]

Cái này bạn tự nghiên cứu được mà, hay bạn chỉ thích người khác giúp mình khỏi tốn công sức đây. Thôi kệ đang rảnh giúp bạn luôn vậy, không biết đúng ý bạn không nửa

Hi!!
nghiên rồi mà cứu không có ra anh à, thú thật bí lắm em mới hỏi tiếp, vì e hok biết j hết. Cảm ơn anh đã giúp.!!