Copy file Excel ra nhiều file khác. (1 người xem)

[thangteotdtt]

VD em chọn 1 vùng nào đó theo nút combo sau đó copy vùng đó cho ra 1 file khác. Câu hỏi em có trong file. Xin các thành viên trong diễn đàn giúp đỡ cảm ơn

 

[nmhung49]

VD em chọn 1 vùng nào đó theo nút combo sau đó copy vùng đó cho ra 1 file khác. Câu hỏi em có trong file. Xin các thành viên trong diễn đàn giúp đỡ cảm ơn

Gắn nút xuất file cho code này xem sao

[GPECODE=vb]
Sub GPEXUATFILE()
Dim wb As Workbook
Dim NameSh As String
NameSh = ComboBox1.Value


Set wb = Workbooks.Add


With wb
ThisWorkbook.Sheets("Sheet1").Range("A165000").SpecialCells(xlCellTypeVisible).Copy Sheets("Sheet1").Range("A1")
.SaveAs Filename:=ThisWorkbook.Path & "\" & NameSh & " (" & Format(Now, "DD-MM-YYYY") & ") " & Format(Now, "h MM'")
.Close


End With
End Sub


[/GPECODE]

 

[thangteotdtt]

Cảm ơn bạn mình đã gán code trên thì bị lỗi dòng này NameSh = ComboBox1.Value, mình không hiểu code xin bạn giúp đỡ tiếp mình với nhé

 

[thangteotdtt]

Sub GPEXUATFILE()Dim wb As Workbook
Dim NameSh As String
NameSh = "ComboBox1.Value"


Set wb = Workbooks.Add


With wb
ThisWorkbook.Sheets("Sheet1").Range("A165000").SpecialCells(xlCellTypeVisible).Copy Sheets("Sheet1").Range("A1")
.SaveAs Filename:=ThisWorkbook.Path & "\" & NameSh & " (" & Format(Now, "DD-MM-YYYY") & ") " & Format(Now, "h MM'")
.Close


End With
End Sub

Mình đã thêm NameSh = "ComboBox1.Value" Thấy gần đúng ý mình đó bạn, có điều khi mình chọn từ 5 đội đến 23 đội thì không copy được hết các nhánh. Giả lại mình muốn khi xuất file cho ra là file Excel.

 

[thangteotdtt]

Bạn giúp tiếp mình với nhé, cảm ơn bạn

 

[nmhung49]

Bạn giúp tiếp mình với nhé, cảm ơn bạn

Thay đoạn code này luôn xem sao
[GPECODE=vb]
Sub GPEXUATFILE()
Dim wb As Workbook
Dim NameSh As String
NameSh = ComboBox1.Value


Set wb = Workbooks.Add


With wb
ThisWorkbook.Sheets("Sheet1").Range(Cells(5, 1), Cells(5, 1).SpecialCells(xlLastCell)).SpecialCells(xlCellTypeVisible).Copy Sheets("Sheet1").Range("A1")
.SaveAs Filename:=ThisWorkbook.Path & "\" & NameSh & " (" & Format(Now, "DD-MM-YYYY") & ") " & Format(Now, "h MM'")
.Close


End With
End Sub


[/GPECODE]

Xem file đính kèm

 

[thangteotdtt]

Cảm ơn bạn. Được rồi bạn, có điều chỉ xuất ra có 1 flie, mình muốn nhiều file. Khi nhấp chuột mấy lần thì cho ra mấy file đó bạn.

 

[thangteotdtt]

Bạn giúp tiếp mình với nhé, cảm ơn bạn

 

[nmhung49]

Bạn giúp tiếp mình với nhé, cảm ơn bạn

Ah chỉnh lại chỗ này nhen
Format(Now, "h MM'") thành Format(Now, "hh MM ss")

 

[thangteotdtt]

Ah chỉnh lại chỗ này nhen
Format(Now, "h MM'") thành Format(Now, "hh MM ss")

Cảm ơn bạn nhiều nha.