Lỗi vòng lặp For Move or Copy sheets

[Vàng A Súp]

Em chào các bác/ anh/ chị
Em đang tập viết VBA nên có gì không biết mong các bác/ anh/ chị chỉ bảo giúp ạ
Em muốn coppy các sheet trong file excel của em sang 1 file excel khác với thứ tự
1. Hợp đồng số 1
2. Phụ lục Hợp đồng số 1
3. Nghiệm thu số 1
4. Phụ Lục nghiệm thu số 1
5. Nghiệm thu Phân dẫn số 1
6. Phụ lục nghiệm thu Phân dẫn số 1
........từ số 1 đến số 14 ( hoặc hơn )
Cuối cùng là tổng hợp
Em thử làm 1 code nhưng khi xuất ra thì bị lỗi
- Thứ tự sheet xuất ra lại xuất hiện trái qua phải từ 14 đến 1 ( em muốn từ bộ số 1 đến 14 )
- Hợp đồng thực hiện được vòng lặp theo Spin Button nhưng từ những sheet khác ( từ số 2. đến 6. ) không lặp lại
Mong nhận được sự chỉ bảo, giúp đỡ từ các quý bác/ anh/ chị
Em xin chân thành cảm ơn

Sub Macro3()
'
' Macro3 Macro
' Vong lap
Workbooks.Add
ChDir "D:\"
ActiveWorkbook.SaveAs Filename:="D:\giai_phap_excell.xlsx", FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False

Dim i As Long
Dim tu As Long, den As Long
Dim wb As Workbook
Dim sh As Worksheet
Set wb = ThisWorkbook
Set sh = wb.Sheets("Hop_dong")
tu = sh.Range("Hop_dong!O2")
den = sh.Range("Hop_dong!O5")

For i = tu To den Step 1
sh.Range("Hop_dong!O2") = i

' Xuat hop dong
Windows("Tap viet VBA.xlsm").Activate
Sheets("Hop_dong").Select
ActiveSheet.Unprotect "cc"
Sheets("Hop_dong").Copy After:=Workbooks("giai_phap_excell.xlsx").Sheets(1)
Windows("Tap viet VBA.xlsm").Activate

' Xuat phu luc hop dong

Sheets("Phu_Luc HD").Select
ActiveSheet.Unprotect "cc"
Sheets("Phu_Luc HD").Copy After:=Workbooks("giai_phap_excell.xlsx").Sheets(2)
Windows("Tap viet VBA.xlsm").Activate

' Xuat nghiem thu KL

Sheets("Nghiem_Thu").Select
ActiveSheet.Unprotect "cc"
Sheets("Nghiem_Thu").Copy After:=Workbooks("giai_phap_excell.xlsx").Sheets(3)
Windows("Tap viet VBA.xlsm").Activate

' Xuat phu luc nghiem thu KL

Sheets("Phu_Luc NT").Select
ActiveSheet.Unprotect "cc"
Sheets("Phu_Luc NT").Copy After:=Workbooks("giai_phap_excell.xlsx").Sheets(4)
Windows("Tap viet VBA.xlsm").Activate


' Xuat nghiem thu DD

Sheets("Phan_Dan").Select
ActiveSheet.Unprotect "cc"
Sheets("Phan_Dan").Copy After:=Workbooks("giai_phap_excell.xlsx").Sheets(5)
Windows("Tap viet VBA.xlsm").Activate

' Xuat phu luc nghiem thu DD

Sheets("Phu_Luc PD").Select
ActiveSheet.Unprotect "cc"
Sheets("Phu_Luc PD").Copy After:=Workbooks("giai_phap_excell.xlsx").Sheets(6)
Windows("Tap viet VBA.xlsm").Activate

Next i

' Xuat tong hop

Sheets("tong hop toan xa").Select
Sheets("tong hop toan xa").Copy After:=Workbooks("giai_phap_excell.xlsx").Sheets(7)
Windows("Tap viet VBA.xlsm").Activate

' Xuat tong hop chung tu

Sheets("DN").Select
Sheets("DN").Copy After:=Workbooks("giai_phap_excell.xlsx").Sheets(8)
Windows("Tap viet VBA.xlsm").Activate

' Xoa sheet 1

Windows("giai_phap_excell.xlsx").Activate
Sheets("Sheet1").Select
ActiveWindow.SelectedSheets.Delete
End Sub

 

[Vàng A Súp]

Tôi có nhận thư riêng của @Vàng A Súp nhờ giúp đỡ trong ch3u đề này, tôi vào xem thì có vài điều mà tôi không muốn tham gia:
- Có 1 bạn đang giúp đỡ theo cách chỉ hướng dẫn, không giúp toàn bộ code (@Hoàng Tuấn 868), vậy tôi không nên xen vào
- Bài #11 anh @batman1 có hỏi và góp ý về cách đặt câu hỏi đúng tên sheet, mà tác giả không phản hồi, cũng không kiểm tra gợi ý sửa before/ after. Đến tận bài 16 mới nhận dốt văn rồi cũng không trả lời câu hỏi. Đây là thái độ xem thường người giúp mình.
- Từ sau bài 16 toàn là thái độ không muốn tiếp thu góp ý mà lại còn muốn "đuổi" người góp ý đi.

Nhớ lại cách đây khoảng 1 tháng, tôi cũng có góp ý và nhận thai độ tương tự, khi tôi nhấn nút "unlike" thì nhận lại cái unlike. Việc unlike tôi không phải là nguyên nhân để tôi không giúp bài này, chính là các nguyên nhân trên.

Trong chủ đề này, nếu @Hoàng Tuấn 868 còn đủ kiên nhẫn bạn ấy sẽ giúp tiếp, còn ngoài ra tôi cho rằng sẽ chẳng ai tham gia nữa. Kể cả sau này.

TB:
Tôi cũng thuộc loại khó tính và lời nói của tôi chắc chắn sẽ gây mất lòng, nếu thế thì cứ việc "unlike" thoả thích.

Em thừ nhận là em có sai với bác @batman1 ạ. Không phải là em coi thường đâu, em còn dốt còn dại không dám coi thường ai cả
Cách đây 1 tháng là em nói vui với bác thôi chứ nào có dám thái độ khi bác góp ý đúng cho em thay đổi. Chắc tại tính em hay đùa nhưng các bác lại nghiêm túc, hoặc do tư duy và khoảng cách giữa các thế hệ khác nhau nên sẽ có những kiểu đùa khác nhau. Nhưng em chỉ muốn nói là em có thành ý học, có ý chí muốn học và không dám coi thường hay trì miết ai

Riêng với bác Vietmini. Em không phục. Liệu rằng vì cái danh GPE của bác với em chênh lệch nên.... Thôi được ạ. Đời vốn bất công mà.

Nếu bác nghĩ em sai, làm phiền các bác quá thì xin ban nick em. Em vẫn sẽ theo dõi diễn đàn với tư cách là khách. Nhưng sẽ không bao giờ hỏi bài.

 

[VetMini]

Luật chung của diễn đàn mở rộng là những bài đăng lên không còn là sở hữu chủ của người mở đầu nữa. Chúng thuộc về diễn đàn, và Ban Quản Trị diễn đàn có toàn quyền. Chỉ trừ việc cắt xén làm sai nghĩa bài.

Diễn đàn mở rộng không phải là một cái quán mà người vào đặt bàn có quyền từ chối không cho người khác nhập cùng bàn.

 

[Vàng A Súp]

Luật chung của diễn đàn mở rộng là những bài đăng lên không còn là sở hữu chủ của người mở đầu nữa. Chúng thuộc về diễn đàn, và Ban Quản Trị diễn đàn có toàn quyền. Chỉ trừ việc cắt xén làm sai nghĩa bài.

Diễn đàn mở rộng không phải là một cái quán mà người vào đặt bàn có quyền từ chối không cho người khác nhập cùng bàn.

Tốt nhất là trật tự, Tôi đã nói là để cho tôi yên,

 

[ptm0412]

Tốt nhất là trật tự, Tôi đã nói là để cho tôi yên,

Riêng bài #63, anh @VetMini nói đúng, ở đây không ai có quyền đuổi ai ra khỏi 1 chủ đề, bất cứ chủ đề nào. Và bạn không có tư cách để đứng ra "giữ trật tự".

 

[Vàng A Súp]

Riêng bài #63, anh @VetMini nói đúng, ở đây không ai có quyền đuổi ai ra khỏi 1 chủ đề, bất cứ chủ đề nào. Và bạn không có tư cách để đứng ra "giữ trật tự".

Vậy còn những bài khác thì sao ạ. Bác là ban quản trị, bác đứng ra phân xử giúp em ạ. Từ bài #37 bác ý vào đâu có thành ý góp ý cho em đâu, chưa nói đến có ý phân biệt vùng miền.
Nội quy diễn đàn có ghi : " Thành viên tham gia thảo luận cần tôn trọng những người cùng tham gia và tôn trọng người quản trị, không được khích bác, công kích, lăng mạ xúc phạm người khác, nóng nẩy, quá khích, gây mất đoàn kết trên diễn đàn"

Không chỉ mình em, có rất nhiều người từng phản đối bác Vetmini, thậm chí còn là chửi. Chắc chắn bác biết, và cũng chả lạ gì tính anh Vetmini
Chủ đề " Lấy vợ cùng cơ quan" em đăng trong mục Thư giãn. Mục đích em hi vọng anh em vào nói chuyện vui, chứ nào có dám ý trọng nam khinh nữ, coi vợ là đầy tớ. ( Thề danh dự với các bác sau 5 năm lấy nhau vợ em có nói là vợ em có mắt chọn chồng và không hối hận khi lấy em -> Đủ hiểu ). Thế mà vào xỉa xói, xúc phạm em

Riêng bài "Hướng dẫn học VBA" lại còn có ý bảo học để làm gì khi không phục vụ cho công việc của mình

Em tự hỏi rằng là các bác dung túng cho " Chuyên gia GPE", hay là em chỉ là thành viên mới, muốn được giúp thì phải chịu được nhục ( em cũng là con người như các bác, cũng có sỹ diện, danh dự, và tự hào vùng miền nơi mình sinh sống )

Vậy nên : em mong tham gia diễn đàn là để học hỏi các anh, đã là thành viên diễn đàn em cũng muốn góp gạch để xây dựng diễn đàn, nhưng do trình độ còn quá kém. Em muốn được học, muốn được phát triển mình, không muốn bị những bức tường kia cản trở

Em xin nhắc lại: Em không có ý coi thường ai cả, em luôn chân thành nhận những lời góp ý chân thành.

 

[NghiaKieu]

Các bác không thấy phù hợp với nhau thì sao không cho vào danh sách đen đi có phải đỡ nhức đầu hơn không nhỉ.

 

[Vàng A Súp]

Các bác không thấy phù hợp với nhau thì sao không cho vào danh sách đen đi có phải đỡ nhức đầu hơn không nhỉ.

Giờ em mới biết. Cảm ơn bác ạ. Em đã lé rồi mà sao chổi vẫn ám không tha. Haizz
Sao chổi thì lấp lánh
Chổi này thì lên tránh
Tránh rồi mà ông thánh
Ám hoài không cho lánh

 

[Vàng A Súp]

Và xin đính chính lại sợ bác hoàng tuấn 868 hiểu lầm là em ib bác ptm trước rồi bác tuấn mới giúp em sau.

 

[ptm0412]

Vậy còn những bài khác thì sao ạ. Bác là ban quản trị, bác đứng ra phân xử giúp em ạ. Từ bài #37 bác ý vào đâu có thành ý góp ý cho em đâu, ...

Tôi lại có những lời khó nghe như sau:
Tôi thấy vấn đề lớn nhất của bạn không phải là cái gì, mà chính là vấn đề về đọc hiểu:
1. Tôi viết rất rõ trong bài 64 là "Riêng bài 63 là đúng", nếu bạn nói ngược lại là sai thì phải có lý luận chứng và chứng minh, tôi cũng nói rõ là "không có tư cách đứng ra giữ trật tự" là trỏ vào đúng 1 câu nói của bạn. Đừng lôi tôi vào những tranh luận bên trên. Dù rằng những tranh luận bên trên chỉ chứng tỏ bạn không chấp nhận góp ý dưới bất kỳ hình thức nào.

2. Trong bài 57 chủ đề này: bạn hiểu sai từ "mượn" trong bài 56, và phản biện vô lý. Bài 58, có người (@befaint) đính chính giải thích lại từ "mượn", thì bạn vẫn không hiểu và đuổi người ấy ra (!)

3. Trong chủ đề "lấy vợ cùng cơ quan", bài viết "trọng nam khinh nữ" là nói chung cho khoảng 1 chục bài viết của nhiều người phía trên, không có bạn trong đó. Bạn thì không hiểu và cố chấp tin rằng người ta nói mình. Cũng chủ đề đó, tôi có viết 1 câu đại ý là "may trong số chục bài đó không có tôi", bạn cũng hiểu thành ý khác là nói bạn.

4. Trong khi chủ đề này bạn chưa làm xong, còn vướng mắc và còn muốn hỏi thêm, thế mà nhảy sang chủ đề khác, đọc không hiểu, trả lời trật lất lại còn đòi người ta đưa file lên (bài này)

5. Đối với góp ý của anh @batman1 mà bạn không phản hồi, nhắc nhiều lần cũng không phản hồi, cuối cùng nhận lỗi ở bài 61 mà vẫn không chính thức xin lỗi anh ấy, cũng tiếp tục không phản hồi (!). Vậy thì bạn hiểu gì về phép lịch sự?

6. Cuối cùng: Khi tôi nói bạn không có tư cách giữ trật tự, đó là tôi nói rất rõ rằng bạn không có quyền đuổi ai đó, không có quyền bắt ai đó phải im lặng (trật tự), mà bạn vẫn không hiểu và lại than phiền ở bài 67.

Còn việc bạn gửi tin nhắn riêng cho tôi thì khỏi thanh minh với ai, kể cả với @Hoàng Tuấn 868, chỉ có duy nhất 1 cách để người khác không biết, là ĐỪNG LÀM.

TB:
Bạn có nói rằng muốn thì ban nick bạn? Bạn phải tự chứng minh rằng bạn vi phạm nội quy điều mấy mục mấy, mức độ thế nào chứ?

Những bài trên đây và bài này tôi nói với tư cách cá nhân, sau đây tôi sẽ không nói thêm gì nữa, vì với người "không đọc hiểu" thì nói vô ích.

 

[Vàng A Súp]

Tôi lại có những lời khó nghe như sau:
Tôi thấy vấn đề lớn nhất của bạn không phải là cái gì, mà chính là vấn đề về đọc hiểu:
1. Tôi viết rất rõ trong bài 64 là "Riêng bài 63 là đúng", nếu bạn nói ngược lại là sai thì phải có lý luận chứng và chứng minh, tôi cũng nói rõ là "không có tư cách đứng ra giữ trật tự" là trỏ vào đúng 1 câu nói của bạn. Đừng lôi tôi vào những tranh luận bên trên. Dù rằng những tranh luận bên trên chỉ chứng tỏ bạn không chấp nhận góp ý dưới bất kỳ hình thức nào.

2. Trong bài 57 chủ đề này: bạn hiểu sai từ "mượn" trong bài 56, và phản biện vô lý. Bài 58, có người (@befaint) đính chính giải thích lại từ "mượn", thì bạn vẫn không hiểu và đuổi người ấy ra (!)

3. Trong chủ đề "lấy vợ cùng cơ quan", bài viết "trọng nam khinh nữ" là nói chung cho khoảng 1 chục bài viết của nhiều người phía trên, không có bạn trong đó. Bạn thì không hiểu và cố chấp tin rằng người ta nói mình. Cũng chủ đề đó, tôi có viết 1 câu đại ý là "may trong số chục bài đó không có tôi", bạn cũng hiểu thành ý khác là nói bạn.

4. Trong khi chủ đề này bạn chưa làm xong, còn vướng mắc và còn muốn hỏi thêm, thế mà nhảy sang chủ đề khác, đọc không hiểu, trả lời trật lất lại còn đòi người ta đưa file lên (bài này)

5. Đối với góp ý của anh @batman1 mà bạn không phản hồi, nhắc nhiều lần cũng không phản hồi, cuối cùng nhận lỗi ở bài 61 mà vẫn không chính thức xin lỗi anh ấy, cũng tiếp tục không phản hồi (!). Vậy thì bạn hiểu gì về phép lịch sự?

6. Cuối cùng: Khi tôi nói bạn không có tư cách giữ trật tự, đó là tôi nói rất rõ rằng bạn không có quyền đuổi ai đó, không có quyền bắt ai đó phải im lặng (trật tự), mà bạn vẫn không hiểu và lại than phiền ở bài 67.

Còn việc bạn gửi tin nhắn riêng cho tôi thì khỏi thanh minh với ai, kể cả với @Hoàng Tuấn 868, chỉ có duy nhất 1 cách để người khác không biết, là ĐỪNG LÀM.

TB:
Bạn có nói rằng muốn thì ban nick bạn? Bạn phải tự chứng minh rằng bạn vi phạm nội quy điều mấy mục mấy, mức độ thế nào chứ?

Những bài trên đây và bài này tôi nói với tư cách cá nhân, sau đây tôi sẽ không nói thêm gì nữa, vì với người "không đọc hiểu" thì nói vô ích.

Vâng. Em hiểu. Nói chung là 1 người là chuyên gia GPE với thành viên mới thì....
Haizz. Lỗi lớn nhất của em là dám đứng lên nói sự thật, mà đầy người ngứa mắt, bực lắm nhưng không dám nói.
Em sai em sẵn sàng xin lỗi. (Đã có lần em viết bài xin lỗi anh Vetmini rồi) nhưng anh đấy sai thì lại không. Đương nhiên, chuyên gia GPE mà

Em xin phép các anh, chị cho em tự rời khỏi diễn đàn. ( Xin vào rồi thì ra cũng phải có tiếng, chứ em biết em có xin hay không xin vẫn thế, có cô chợ vẫn cứ đông mà cô đi lấy ck thì chợ vẫn thế ). Sẽ còn có rất nhiều thành viên mới đăng ký nick chỉ để hỏi, hỏi xong rồi cũng quên nick luôn nếu diễn đàn vẫn hoạt động kiểu này.

Đặc biệt trước khi rời em gửi lời cám ơn DUY NHẤT tới anh @Hoàng Tuấn 868 , em chúc bác mạnh khoẻ, thành công, thắng lợi. Em vẫn sẽ nuôi đam mê của mình. Hi vọng lúc nào bác công tác lên Lục Yên bác sẽ alo em được đón tiếp bác.

 

[ptm0412]

Vẫn là không đọc hiểu. Tất cả các bài tôi viết, tôi không nói đến 1 nửa chữ bạn "sai". Tôi phân tích để nếu bạn chịu khó đọc cho kỹ thì có ích lợi. Còn việc này mới sai:

nhưng anh đấy sai thì lại không. Đương nhiên, chuyên gia GPE mà

Bạn đang quy cho tôi là thiên vị mặc dù đã giải thích do "đọc không hiểu" nên cứ tưởng người ta nói mình. (Kể cả những bài tôi không nêu làm dẫn chứng)