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

Liên hệ QC
Vàng A Súp

Vàng A Súp

Thành viên hoạt động
Tham gia
21/12/19
Bài viết
149
Được thích
80
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
Nhấp chuột vào đây để mở rộng...
 

File đính kèm

  • Tap viet VBA.xlsm
    326.2 KB · Đọc: 9
Sắp xếp theo thời gian sắp xếp theo bầu chọn
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.
Nhấp chuột vào đây để mở rộng...
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
 
Upvote 0
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
Nhấp chuột vào đây để mở rộng...
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é.
 
Upvote 0
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é.
Nhấp chuột vào đây để mở rộng...
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é
 
Upvote 0
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é
Nhấp chuột vào đây để mở rộng...
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)...
 
Upvote 0
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)...
Nhấp chuột vào đây để mở rộng...
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
Nhấp chuột vào đây để mở rộng...
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
 
Upvote 0
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
Nhấp chuột vào đây để mở rộng...
Lỗi của bạn ở đâu, lỗi như thế nào vậy.
 
Upvote 0
Hoàng Tuấn 868 đã viết:
Lỗi của bạn ở đâu, lỗi như thế nào vậy.
Nhấp chuột vào đây để mở rộng...
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:

Hoàng Tuấn 868 đã viết:
Lỗi của bạn ở đâu, lỗi như thế nào vậy.
Nhấp chuột vào đây để mở rộng...
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
Nhấp chuột vào đây để mở rộng...
 
Upvote 0
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 ạ
Nhấp chuột vào đây để mở rộng...
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é.
 
Upvote 0
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.
Nhấp chuột vào đây để mở rộng...
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 ý ạ
 
Upvote 0
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 ý ạ
Nhấp chuột vào đây để mở rộng...
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.
 
Upvote 0
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.
Nhấp chuột vào đây để mở rộng...
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ì
 
Upvote 0
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é.
Nhấp chuột vào đây để mở rộng...
Hôm qua tôi kểm tra thấy code đã copy theo ĐÚNG THỨ TỰ MONG ƯỚC. Nhưng người ta lại kêu ca gì đó nên tôi chịu không hiểu. Nếu là viết nhầm thì sau bài #11 kiểm tra lại và đính chính. Nhưng tôi đợi mà chả thấy đính chính, cũng chả thấy nói nếu dùng Before thì đúng như mong đợi hay vẫn không. Giúp những người như này rất mệt, vì họ không kiểm tra, không khẳng định, không báo cáo kết quả kết quả thực hiện những gợi ý của mình.
 
Upvote 0
batman1 đã viết:
Hôm qua tôi kểm tra thấy code đã copy theo ĐÚNG THỨ TỰ MONG ƯỚC. Nhưng người ta lại kêu ca gì đó nên tôi chịu không hiểu. Nếu là viết nhầm thì sau bài #11 kiểm tra lại và đính chính. Nhưng tôi đợi mà chả thấy đính chính, cũng chả thấy nói nếu dùng Before thì đúng như mong đợi hay vẫn không. Giúp những người như này rất mệt, vì họ không kiểm tra, không khẳng định, không báo cáo kết quả kết quả thực hiện những gợi ý của mình.
Nhấp chuột vào đây để mở rộng...
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 ạ.
 
Upvote 0
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 ạ.
Nhấp chuột vào đây để mở rộng...
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("A4:D4").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("A4:D4").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("B1:p36").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("B2:p2").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:p").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Sheets("Phan_Dan").Name = "PD"
Range("A4:D4").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
Nhấp chuột vào đây để mở rộng...
Untitled.pngUntitled2.png
Bài đã được tự động gộp:

batman1 đã viết:
Hôm qua tôi kểm tra thấy code đã copy theo ĐÚNG THỨ TỰ MONG ƯỚC. Nhưng người ta lại kêu ca gì đó nên tôi chịu không hiểu. Nếu là viết nhầm thì sau bài #11 kiểm tra lại và đính chính. Nhưng tôi đợi mà chả thấy đính chính, cũng chả thấy nói nếu dùng Before thì đúng như mong đợi hay vẫn không. Giúp những người như này rất mệt, vì họ không kiểm tra, không khẳng định, không báo cáo kết quả kết quả thực hiện những gợi ý của mình.
Nhấp chuột vào đây để mở rộng...
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
 

File đính kèm

  • Tap viet VBA.xlsm
    385.8 KB · Đọc: 6
Upvote 0
batman1 đã viết:
Hôm qua tôi kểm tra thấy code đã copy theo ĐÚNG THỨ TỰ MONG ƯỚC. Nhưng người ta lại kêu ca gì đó nên tôi chịu không hiểu. Nếu là viết nhầm thì sau bài #11 kiểm tra lại và đính chính. ...
Nhấp chuột vào đây để mở rộng...
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" à?
 
Upvote 0
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
Nhấp chuột vào đây để mở rộng...
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.
 
Lần chỉnh sửa cuối:
Upvote 0
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
Nhấp chuột vào đây để mở rộng...
Tôi viết
Hôm qua tôi kểm tra thấy code đã copy theo ĐÚNG THỨ TỰ MONG ƯỚC
Nhấp chuột vào đây để mở rộng...
Vậy thì chỉ phải kiểm tra lại và báo cáo: "Đúng là thế, em nhầm". Hoặc: "Không phải, em muốn thế này cơ ...".

Tôi viết
Mà thôi, nếu muốn theo thứ tự ngược lại với hiện có thì thay TẤT CẢ After thành Before.
Nhấp chuột vào đây để mở rộng...
Chỉ phải kiểm tra lại với Before rồi báo cáo đã đúng ý hay chưa.

Có cái gì liên quan tới Văn ở đây?
 
Upvote 0
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" à?
Nhấp chuột vào đây để mở rộng...
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
 
Upvote 0
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Web KT

Bài viết mới nhất

Bạn Đoàn
Em muốn làm bảng phân tích nhanh hơn từ BOM bên khách hàng cho, Mong anh chị giúp đỡ ạ
Trả lời
0
Đọc
1
Bạn Đoàn
Bạn Đoàn
D
  • Question
Xin giải pháp nhập dữ liệu vào ô trống hàng loạt
Trả lời
15
Đọc
406
Hoàng Tuấn 868
H
G
Vẽ mặt cắt dầm từ excel
    • Yêu thích
    • Cảm ơn
    • Thích
Trả lời
3
Đọc
129
VetMini
V
D
  • Đã khóa
  • Question
Nhờ GPE viết code nhập dữ liệu từ 2 textbox vào listbox
    • Cười
Trả lời
15
Đọc
321
ptm0412
ptm0412
H
Xin giúp đỡ công thức tính tổng không trùng
Trả lời
3
Đọc
154
hienmax
H
Xem thêm…

Facebook

Giaiphapexcel.com

Group

DIỄN ĐÀN GIẢI PHÁP EXCEL Group 1
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 2

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Back
Top Bottom