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

Vàng A Súp · 29/5/21

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 · 30/5/21

Hoàng Tuấn 868 đã viết:
Vậy là 14 sheets của bộ hợp đồng số 1 sẽ xuất ra 1 file thứ nhất.
14 sheets của bộ hợp đồng số 2 sẽ xuất ra file tiếp theo... đến file thứ 14 phải không ban.

Dạ 1 bộ hợp đồng sẽ có 6 sheet gồm : Hop_dong, Phu_luc Hd, Nghiem_thu Kl, Phu_luc Kl, Nghiem_thu Pd, Phu_luc PD. Ý em là cho tất cả chung 1file hoặc mỗi bộ 1 file cũng được ạ. Còn cái sheet tổng hợp với Dn không cần cũng được ạ. Hì hig

Hoàng Tuấn 868 · 30/5/21

Vàng A Súp đã viết:
Dạ 1 bộ hợp đồng sẽ có 6 sheet gồm : Hop_dong, Phu_luc Hd, Nghiem_thu Kl, Phu_luc Kl, Nghiem_thu Pd, Phu_luc PD. Ý em là cho tất cả chung 1file hoặc mỗi bộ 1 file cũng được ạ. Còn cái sheet tổng hợp với Dn không cần cũng được ạ. Hì hig

Mãi mới hiểu nổi, nhọc quá. Đấy là kết quả đầu ra.
Bây giờ đến phần thực hiện, bạn định theo trình tự nào, cứ nêu lần lượt nhé.

Vàng A Súp · 30/5/21

Hoàng Tuấn 868 đã viết:
Mãi mới hiểu nổi, nhọc quá. Đấy là kết quả đầu ra.
Bây giờ đến phần thực hiện bạn định theo trình tự nào, cứ nêu lần lượt nhé.

Hì hì. Dạ từ :
Hop_dong,
Phu_luc Hd,
Nghiem_thu Kl,
Phu_luc Kl,
Nghiem_thu Pd,
Phu_luc PD.
Mover or coppy sang 1 excel khác ạ.
Từ bộ số 1 ( spiner 1) đến 14 bác ạ. Chán em ghê, khổ ghê cơ. Đã ngu vba rồi còn dốt văn. Bác thông cảm em nhé

Hoàng Tuấn 868 · 30/5/21

Vàng A Súp đã viết:
Hì hì. Dạ từ :
Hop_dong,
Phu_luc Hd,
Nghiem_thu Kl,
Phu_luc Kl,
Nghiem_thu Pd,
Phu_luc PD.
Mover or coppy sang 1 excel khác ạ.
Từ bộ số 1 ( spiner 1) đến 14 bác ạ. Chán em ghê, khổ ghê cơ. Đã ngu vba rồi còn dốt văn. Bác thông cảm em nhé

Từ trình tự này bạn đặt ra các bước thực hiện cho code.
Bạn thử tự đặt ra các bước đi. Ví dụ: Bước 1 cần code làm gì để bộ hợp đồng xuất hiện thông tin của bộ hợp đồng số 1, sau khi xuất hiện thông tin của bộ hợp đồng số 1 rồi thì làm gì (bước 2)...

Vàng A Súp · 30/5/21

Hoàng Tuấn 868 đã viết:
Từ trình tự này bạn đặt ra các bước thực hiện cho code.
Bạn thử tự đặt ra các bước đi. Ví dụ: Bước 1 cần code làm gì để bộ hợp đồng xuất hiện thông tin của bộ hợp đồng số 1, sau khi xuất hiện thông tin của bộ hợp đồng số 1 rồi thì làm gì (bước 2)...

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

Code này em làm thì trình tự là:
Tạo 1 file excel mới tại ổ D với tên giaiphapexcel
Xuất :
Hop_dong,
Phu_luc Hd,
Nghiem_thu Kl,
Phu_luc Kl,
Nghiem_thu Pd,
Phu_luc PD.

Lặp lại thao tác với spiner bằng 2
Cứ thế đến 14

Xuất tổng hợp
Xuất DN
Xoá sheet 1 ở excel mới tạo
Nhưng đến lúc em chạy lại bị lỗi ạ.hic hic

Hoàng Tuấn 868 · 30/5/21

Vàng A Súp đã viết:
Code này em làm thì trình tự là:
Tạo 1 file excel mới tại ổ D với tên giaiphapexcel
Xuất :
Hop_dong,
Phu_luc Hd,
Nghiem_thu Kl,
Phu_luc Kl,
Nghiem_thu Pd,
Phu_luc PD.

Lặp lại thao tác với spiner bằng 2
Cứ thế đến 14

Xuất tổng hợp
Xuất DN
Xoá sheet 1 ở excel mới tạo
Nhưng đến lúc em chạy lại bị lỗi ạ.hic hic

Lỗi của bạn ở đâu, lỗi như thế nào vậy.

Vàng A Súp · 30/5/21

Hoàng Tuấn 868 đã viết:
Lỗi của bạn ở đâu, lỗi như thế nào vậy.

Dạ bị lỗi là :
- Thứ tự sheet xuất ra xuất hiện trái qua phải từ bộ số 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 :
Phu_luc Hd,
Nghiem_thu Kl,
Phu_luc Kl,
Nghiem_thu Pd,
Phu_luc PD.
Thì không lặp lại bác ạ

Bài đã được tự động gộp: 30/5/21

Hoàng Tuấn 868 đã viết:
Lỗi của bạn ở đâu, lỗi như thế nào vậy.

Code này vấn đề ở đâu thì em lọ mọ mãi không ra bác ạ. Bác xem giúp em với ạ.

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

Hoàng Tuấn 868 · 30/5/21

Vàng A Súp đã viết:
Dạ bị lỗi là :
- Thứ tự sheet xuất ra xuất hiện trái qua phải từ bộ số 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 :
Phu_luc Hd,
Nghiem_thu Kl,
Phu_luc Kl,
Nghiem_thu Pd,
Phu_luc PD.
Thì không lặp lại bác ạ

Phần thứ tự từ 1 đến 14 thì bạn thực hiện theo bài #11 của anh Batman.
Phần sau thì để mình xem qua đã nhé.

Vàng A Súp · 30/5/21

Hoàng Tuấn 868 đã viết:
Phần thứ tự từ 1 đến 14 thì bạn thực hiện theo bài #11 của anh Batman.
Phần sau thì để mình xem qua đã nhé.

Dạ vâng ạ. Hì hì

Hoàng Tuấn 868 · 30/5/21

Vàng A Súp đã viết:
Dạ vâng ạ. Hì hì

Mình thấy vẫn chạy mà bạn. Có điều là sao vòng lặp của bạn lại để có 6 sheets, còn mấy sheets sau sao không đưa vào vậy.

Vàng A Súp · 30/5/21

Hoàng Tuấn 868 đã viết:
Mình thấy vẫn chạy mà bạn. Có điều là sao vòng lặp của bạn lại để có 6 sheets, còn mấy sheets sau sao không đưa vào vậy.

Dạ còn sheet tổng hợp và sheet DN là tổng hợp cho tất cả các bộ Hop _ dong nên em không cho vòng lặp. Bác xem lại giúp em từ sheet Phu_luc Hd ý ạ. Các sheet sau đó có lặp nhưng số hợp đồng không lặp ý ạ

Hoàng Tuấn 868 · 30/5/21

Vàng A Súp đã viết:
Dạ còn sheet tổng hợp và sheet DN là tổng hợp cho tất cả các bộ Hop _ dong nên em không cho vòng lặp. Bác xem lại giúp em từ sheet Phu_luc Hd ý ạ. Các sheet sau đó có lặp nhưng số hợp đồng không lặp ý ạ

Mình viết cho bạn thì được ngay, nhưng ở đây mình muốn bạn tự sửa được, bây giờ bạn tạm tách phần copy ra, sau đó nhấn F8 cho vòng lặp chạy lần lượt các số hợp đồng để kiểm tra đã, bạn thực hiện thử đi xem thế nào.

Vàng A Súp · 30/5/21

Hoàng Tuấn 868 đã viết:
Mình viết cho bạn thì được ngay, nhưng ở đây mình muốn bạn tự sửa được, bây giờ bạn tạm tách phần copy ra, sau đó nhấn F8 cho vòng lặp chạy lần lượt các số hợp đồng để kiểm tra đã, bạn thực hiện thử đi xem thế nào.

Hì hì. Dạ vâng ạ. Có làm thì mới có khôn. Nhờ các bác mãi không khá lên được. Bác cho em thời gian mò lại. Bao giờ em bí quá bác lại giúp em bác nhé. Em cám ơn bác nhiều ạ. Hì hì

batman1 · 30/5/21

Hoàng Tuấn 868 đã viết:
Phần thứ tự từ 1 đến 14 thì bạn thực hiện theo bài #11 của anh Batman.
Phần sau thì để mình xem qua đã nhé.

Hôm qua tôi kểm tra thấy code đã copy theo ĐÚNG THỨ TỰ MONG ƯỚC. Nhưng người ta lại kêu ca gì đó nên tôi chịu không hiểu. Nếu là viết nhầm thì sau bài #11 kiểm tra lại và đính chính. Nhưng tôi đợi mà chả thấy đính chính, cũng chả thấy nói nếu dùng Before thì đúng như mong đợi hay vẫn không. Giúp những người như này rất mệt, vì họ không kiểm tra, không khẳng định, không báo cáo kết quả kết quả thực hiện những gợi ý của mình.

Hoàng Tuấn 868 · 30/5/21

batman1 đã viết:
Hôm qua tôi kểm tra thấy code đã copy theo ĐÚNG THỨ TỰ MONG ƯỚC. Nhưng người ta lại kêu ca gì đó nên tôi chịu không hiểu. Nếu là viết nhầm thì sau bài #11 kiểm tra lại và đính chính. Nhưng tôi đợi mà chả thấy đính chính, cũng chả thấy nói nếu dùng Before thì đúng như mong đợi hay vẫn không. Giúp những người như này rất mệt, vì họ không kiểm tra, không khẳng định, không báo cáo kết quả kết quả thực hiện những gợi ý của mình.

Vâng anh, em cũng không viết luôn mà để bạn ấy tự kiểm tra dần dần các bước anh ạ.

Vàng A Súp · 31/5/21

Hoàng Tuấn 868 đã viết:
Vâng anh, em cũng không viết luôn mà để bạn ấy tự kiểm tra dần dần các bước anh ạ.

Dạ bác ơi em mò ra lỗi rồi ạ, nguyên nhân là khi xuất ra file mới thì file mới đó vẫn hoạt động spiner, em dùng code copy- pate Values thì chạy ổn ạ. Nhưng còn một số lỗi mà em không mò ra được ( nói chính xác là em không biết hì hì ):
1: Sau khi xuất xong thì spiner ở file gốc không hoạt động được
2: em muốn đổi tên sheet file mới sau khi xuất xong
Bác giúp em với bác nhé

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")

' Xuat tong hop
Windows("Tap viet VBA.xlsm").Activate
Sheets("Tong_Hop").Select
Sheets("Tong_Hop").Copy Before:=Workbooks("giai_phap_excell.xlsx").Sheets(1)
Windows("Tap viet VBA.xlsm").Activate

' Xuat tong hop chung tu

Sheets("DN").Select
Sheets("DN").Copy Before:=Workbooks("giai_phap_excell.xlsx").Sheets(2)
Windows("Tap viet VBA.xlsm").Activate
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 Before:=Workbooks("giai_phap_excell.xlsx").Sheets(3)
Range("A1:J71").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("K:T").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Sheets("Hop_dong").Name = "HD"
Range("A44").Select
Windows("Tap viet VBA.xlsm").Activate

' Xuat phu luc hop dong

Sheets("Phu_Luc HD").Select
ActiveSheet.Unprotect "cc"
Sheets("Phu_Luc HD").Copy Before:=Workbooks("giai_phap_excell.xlsx").Sheets(4)
Range("B1:R36").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Rows("37:48").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Sheets("Phu_Luc HD").Name = "PL"
Range("B2:R2").Select
Windows("Tap viet VBA.xlsm").Activate

' Xuat nghiem thu KL

Sheets("Nghiem_Thu").Select
ActiveSheet.Unprotect "cc"
Sheets("Nghiem_Thu").Copy Before:=Workbooks("giai_phap_excell.xlsx").Sheets(5)
Range("A1:J56").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("K:Q").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Sheets("Nghiem_Thu").Name = "NT"
Range("A44").Select
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 Before:=Workbooks("giai_phap_excell.xlsx").Sheets(6)
Range("B136").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Rows("37:51").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Sheets("Phu_Luc NT").Name = "BNT"
Range("B22").Select
Windows("Tap viet VBA.xlsm").Activate

' Xuat nghiem thu DD

Sheets("Phan_Dan").Select
ActiveSheet.Unprotect "cc"
Sheets("Phan_Dan").Copy Before:=Workbooks("giai_phap_excell.xlsx").Sheets(7)
Range("A1:J56").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("K").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Sheets("Phan_Dan").Name = "PD"
Range("A44").Select
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 Before:=Workbooks("giai_phap_excell.xlsx").Sheets(8)
Range("J1:Q36").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Rows("39:42").Select
Columns("R:AD").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Sheets("Phu_Luc PD").Name = "BPD"
Range("J2:Q2").Select
Windows("Tap viet VBA.xlsm").Activate

Next i

' Xoa sheet 1

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

Bài đã được tự động gộp: 31/5/21

batman1 đã viết:
Hôm qua tôi kểm tra thấy code đã copy theo ĐÚNG THỨ TỰ MONG ƯỚC. Nhưng người ta lại kêu ca gì đó nên tôi chịu không hiểu. Nếu là viết nhầm thì sau bài #11 kiểm tra lại và đính chính. Nhưng tôi đợi mà chả thấy đính chính, cũng chả thấy nói nếu dùng Before thì đúng như mong đợi hay vẫn không. Giúp những người như này rất mệt, vì họ không kiểm tra, không khẳng định, không báo cáo kết quả kết quả thực hiện những gợi ý của mình.

hì, tại văn em dốt bác ạ, Ngày xưa thi tốt nghiệp văn em được 2 điểm, tý nữa thì xịt tốt nghiệp hehe

VetMini · 31/5/21

batman1 đã viết:
Hôm qua tôi kểm tra thấy code đã copy theo ĐÚNG THỨ TỰ MONG ƯỚC. Nhưng người ta lại kêu ca gì đó nên tôi chịu không hiểu. Nếu là viết nhầm thì sau bài #11 kiểm tra lại và đính chính. ...

Hỏi bác hơi ngoài lề .
Cái món 'Văn' tôi học ở trong Nam là về văn chương, mà năm 11 đã học hết rồi. Năm 12 được thay thế bằng môn Triết.
Cách nói chuyện, cư xử học trong môn 'Giáo Dục Công Dân', mấy năm đầu Trung Học. (mấy năm sau của Trung Hoc thì môn này dạy về các chính thể)

Theo thớt phân trần thì ở ngoài ấy (Bắc) dạy cách nói chuyện, cư xử qua môn 'Văn" à?

Hoàng Tuấn 868 · 31/5/21

Vàng A Súp đã viết:
Dạ bác ơi em mò ra lỗi rồi ạ, nguyên nhân là khi xuất ra file mới thì file mới đó vẫn hoạt động spiner, em dùng code copy- pate Values thì chạy ổn ạ. Nhưng còn một số lỗi mà em không mò ra được ( nói chính xác là em không biết hì hì ):
1: Sau khi xuất xong thì spiner ở file gốc không hoạt động được
2: em muốn đổi tên sheet file mới sau khi xuất xong

Mình chưa xem file.
Mục 1: Không hoạt động được cụ thể là như thế nào? Lỗi báo ra sao.
Mục 2: Tên sheets mới muốn đổi là gì, hay là Moi_1, Moi_2... Lỗi báo ra sao.

batman1 · 31/5/21

Vàng A Súp đã viết:
hì, tại văn em dốt bác ạ, Ngày xưa thi tốt nghiệp văn em được 2 điểm, tý nữa thì xịt tốt nghiệp hehe

Tôi viết

Hôm qua tôi kểm tra thấy code đã copy theo ĐÚNG THỨ TỰ MONG ƯỚC

Vậy thì chỉ phải kiểm tra lại và báo cáo: "Đúng là thế, em nhầm". Hoặc: "Không phải, em muốn thế này cơ ...".

Tôi viết

Mà thôi, nếu muốn theo thứ tự ngược lại với hiện có thì thay TẤT CẢ After thành Before.

Chỉ phải kiểm tra lại với Before rồi báo cáo đã đúng ý hay chưa.

Có cái gì liên quan tới Văn ở đây?

Vàng A Súp · 31/5/21

VetMini đã viết:
Hỏi bác hơi ngoài lề .
Cái món 'Văn' tôi học ở trong Nam là về văn chương, mà năm 11 đã học hết rồi. Năm 12 được thay thế bằng môn Triết.
Cách nói chuyện, cư xử học trong môn 'Giáo Dục Công Dân', mấy năm đầu Trung Học. (mấy năm sau của Trung Hoc thì môn này dạy về các chính thể)

Theo thớt phân trần thì ở ngoài ấy (Bắc) dạy cách nói chuyện, cư xử qua môn 'Văn" à?

Bác trước khi nói nên tìm hiểu câu chuyện trước. Đừng có thể hiện mình kiểu " tam đại con gà". Và trong câu nói của bác hình như có ý phân biệt vùng miền.
Câu chuyện em nói dốt văn là văn tả, chứ cách cư xử của em luôn tử tế với mọi người, còn ai không tử tế với em mà muốn em tử tế lại thì cứ " tử " đi rồi em " tế "
Trường đại học thủy lợi em học có môn " kỹ năng giao tiếp" . Em được học mà, nhưng nó chỉ dậy với những người lịch sự thôi. Nhưng em đang nghĩ " nói chuyện với bác kiểu gì nhỉ " vì sách em học không có dậy

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

Thành viên hoạt động

File đính kèm

Thành viên hoạt động

Đăng ký hôm qua

Thành viên hoạt động

Đăng ký hôm qua

Thành viên hoạt động

Đăng ký hôm qua

Thành viên hoạt động

Đăng ký hôm qua

Thành viên hoạt động

Đăng ký hôm qua

Thành viên hoạt động

Đăng ký hôm qua

Thành viên hoạt động

Thành viên gạo cội

Đăng ký hôm qua

Thành viên hoạt động

File đính kèm

Ăn cùng góc phố

Đăng ký hôm qua

Thành viên gạo cội

Thành viên hoạt động