Copy du liệu từ file này và paste vào sheet ở file khác vừa tạo ra

[Phanngoc]

Sub ThemMoi_Sheettheo_OB1()
     Dim NewWS As Worksheet, ws As Worksheet
     Set ws = Workbooks("Book1").Sheets("menu")
     Set NewWS = ThisWorkbook.Worksheets.Add
     Dim TenSheet As String
     Dim VungDL As Range
     ws.Range("B1").FormulaR1C1 = "=DAY(RC[2])"
     TenSheet = ws.Range("B1")
     For Each ws In ThisWorkbook.Worksheets
          If ws.Name = TenSheet Then
              TenSheet = TenSheet & "(1)"
          End If
     Next ws
     NewWS.Name = TenSheet
     Workbooks.Open Filename:="C:\Users\Minhthy\Desktop\Chon sheee.xlsm"
     Worksheets(Array("02")).Select
     Set VungDL = Application.InputBox(Prompt:="Quet vung can copy", Title:="Thong bao", Type:=8)
     VungDL.Copy ActiveCell
     'Code paste du lieu
End Sub

Kinh mong các Anh/Chị xem bổ sung giúp.

 

[Thvba84]

Sub ThemMoi_Sheettheo_OB1()
     Dim NewWS As Worksheet, ws As Worksheet
     Set ws = Workbooks("Book1").Sheets("menu")
     Set NewWS = ThisWorkbook.Worksheets.Add
     Dim TenSheet As String
     Dim VungDL As Range
     ws.Range("B1").FormulaR1C1 = "=DAY(RC[2])"
     TenSheet = ws.Range("B1")
     For Each ws In ThisWorkbook.Worksheets
          If ws.Name = TenSheet Then
              TenSheet = TenSheet & "(1)"
          End If
     Next ws
     NewWS.Name = TenSheet
     Workbooks.Open Filename:="C:\Users\Minhthy\Desktop\Chon sheee.xlsm"
     Worksheets(Array("02")).Select
     Set VungDL = Application.InputBox(Prompt:="Quet vung can copy", Title:="Thong bao", Type:=8)
     VungDL.Copy ActiveCell
     'Code paste du lieu
End Sub

Kinh mong các Anh/Chị xem bổ sung giúp.

Bổ sung gì man?
Khoe code hay gì á?

 

[Phanngoc]

Bổ sung gì man?
Khoe code hay gì á?

Mình đang bị vướng chổ lệnh paste chưa biết viết, bạn bổ sung giúp nhen

 

[Thvba84]

Mình đang bị vướng chổ lệnh paste chưa biết viết, bạn bổ sung giúp nhen

gửi file qua mail: tdnkbjp@gmail.com mình xem.