Code save file vào chung 1 folder (1 người xem)

[thangteotdtt]

Mình có code này nhưng không biết sai chổ nào xin hướng dẫn giúp. cảm phiền các bác giúp dùm xin cảm ơn nhiều ạk

Sub MACRO()Dim wb As Workbook
Dim NameSh As String
NameSh = Range("I3").Value
Range("A613").Select
Selection.Copy
Workbooks.Add
Range("A6").Select
ActiveSheet.Paste
.SaveAs Filename:=ThisWorkbook.Path & "\" & NameSh & " (" & Format(Now, "hh-MM-ss") & ")"
.Close
End Sub

 

[VetMini]

Mình có code này nhưng không biết sai chổ nào xin hướng dẫn giúp. cảm phiền các bác giúp dùm xin cảm ơn nhiều ạk

Sai ra sao?

 

[ndu96081631]

Mình có code này nhưng không biết sai chổ nào xin hướng dẫn giúp. cảm phiền các bác giúp dùm xin cảm ơn nhiều ạk

Sửa code thành vầy nhé:

Sub MACRO()
  Dim NameSh As String
  NameSh = Range("I3").Value
 [COLOR=#ff0000] With Workbooks.Add[/COLOR]
    [COLOR=#ff0000]ThisWorkbook.Sheets(1).Range("A6:D13").Copy .Sheets(1).Range("A6")[/COLOR]
    .SaveAs ThisWorkbook.Path & "\" & NameSh & " (" & Format(Now, "hh-MM-ss") & ")"
    .Close
  [COLOR=#ff0000]End With[/COLOR]
End Sub

Chổ màu đỏ là những chổ đã sửa lại

 

[thangteotdtt]

Sửa code thành vầy nhé:

Sub MACRO()
  Dim NameSh As String
  NameSh = Range("I3").Value
  With Workbooks.Add
    ThisWorkbook.Sheets(1).Range("A6:D13").Copy .Sheets(1).Range("A6")
    .SaveAs ThisWorkbook.Path & "\" & NameSh & " (" & Format(Now, "hh-MM-ss") & ")"
    .Close
  End With
End Sub

Chổ màu đỏ là những chổ đã sửa lại

Cảm ơn bạn đúng rồi có điều mình copy rất nhiều vùng thì làm sao vậy bạn. như trong code là vùng A613. Mình copy 1 vùng khác như A620 hoặc A6:F38.........Có phải như vầy không bạn.
ThisWorkbook.Sheets(1).Range("A613").Range("A620"). Copy .Sheets(1).Range("A6")