Chọn vùng coppy, dán từ file này sang file khác

phanngoctrai1981 · 4/9/23

Yêu cầu:

Em muốn copy dữ liệu tại cột B của sheet 2 file "chon sheet" và dán vào cột D của sheets vừa tạo ra theo ngày hiện tại trong file “Boot1”

Kinh mong các Anh/Chị xem viết thêm giúp ah.

Em có file đính kèm và Code đến chổ đang gặp khó khăn.

Maika8008 · 4/9/23

Bạn chép code ra để tiện cho thành viên nào ngại mở file hoặc đang ở trên di động trả lời cho bạn.

phanngoctrai1981 · 4/9/23

Maika8008 đã viết:
Bạn chép code ra để tiện cho thành viên nào ngại mở file hoặc đang ở trên di động trả lời cho bạn.

Sub ThemMoi_Sheetthe

B1()
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 du lieu can di chuyen", Title:="Thong bao", Type:=8)
VungDL.Copy ActiveCell
'Code pass du lieu
End Sub

heyhey1994 · 6/9/23

Mã:

Sub Macro1()
    Range("D2:D99999").clearcontents
    Windows("Chon sheee.xlsm").Activate
    Range("B1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Windows("Book1.xlsm").Activate
    Range("D2").Select
    ActiveSheet.Paste
End Sub

Trình độ đến đây nên chỉ có thể làm cái marco copy qua thôi nha anh.

phanngoctrai1981 · 6/9/23

heyhey1994 đã viết:
Mã:

Sub Macro1() Range("D2:D99999").clearcontents Windows("Chon sheee.xlsm").Activate Range("B1").Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Windows("Book1.xlsm").Activate Range("D2").Select ActiveSheet.Paste End Sub

Trình độ đến đây nên chỉ có thể làm cái marco copy qua thôi nha anh.

Cảm ơn anh rất nhiều

phanngoctrai1981 · 9/9/23

phanngoctrai1981 đã viết:
Sub ThemMoi_SheettheB1()
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 du lieu can di chuyen", Title:="Thong bao", Type:=8)
VungDL.Copy ActiveCell
'Code pass du lieu
End Sub

Vẫn chưa làm được, mọi người xem giúp với.
Em cần viết thêm lệnh dán dử liệu vào sheet vừa tạo ra từ code trên

Bài đã được tự động gộp: 9/9/23

Maika8008 · 9/9/23

phanngoctrai1981 đã viết:
Vẫn chưa làm được, mọi người xem giúp với.
Em cần viết thêm lệnh dán dử liệu vào sheet vừa tạo ra từ code trên

Bài đã được tự động gộp: 9/9/23

Mã lệnh copy

Rich (BB code):

    Worksheets(Array("02")).Select
    wb.Sheets("Sheet3").Range("A2:F6").Copy ThisWorkbook.Sheets(TenSheet).Range("A2")
    wb.Close ' Lenh dong file

phanngoctrai1981 · 9/9/23

Maika8008 đã viết:
Mã lệnh copy

Rich (BB code):

Worksheets(Array("02")).Select wb.Sheets("Sheet3").Range("A2:F6").Copy ThisWorkbook.Sheets(TenSheet).Range("A2") wb.Close ' Lenh dong file

Dạ copy được rồi, Em cảm ơn anh.
Cho em hỏi thêm tý .
- Muốn tự chọn "sheet" để lấy dử liệu (thay vì ở đây là " sheet3)
- Muốn tự dùng chuột chọn vùng cần copy (thay vì ở đây là Range"A2:F6")
Có được không Anh.

Maika8008 · 9/9/23

phanngoctrai1981 đã viết:
Dạ copy được rồi, Em cảm ơn anh.
Cho em hỏi thêm tý .
- Muốn tự chọn "sheet" để lấy dử liệu (thay vì ở đây là " sheet3)
- Muốn tự dùng chuột chọn vùng cần copy (thay vì ở đây là Range"A2:F6")
Có được không Anh.

Dim Rng As Range
Set Rng = Application.InputBox("Chon vung can copy", Type:=8)
Rng.Copy ThisWorkbook.Sheets(TenSheet).Range("A2")

phanngoctrai1981 · 9/9/23

Maika8008 đã viết:
Dim Rng As Range
Set Rng = Application.InputBox("Chon vung can copy", Type:=8)
Rng.Copy ThisWorkbook.Sheets(TenSheet).Range("A2")

HIHI. Dạ em cảm ơn Anh rất nhiều, đã rất tốt rồi anh ơi
Đây là code hoàn hiện anh ạ.

Sub ThemMoi()
Dim NewWS As Worksheet, ws As Worksheet, ws1 As Worksheet
Dim TenSheet As String
Dim VungDL As Range
Set ws = Workbooks("Book1").Sheets("menu")
'Tao sheet va doi ten theo ô
Worksheets.Add after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
Set NewWS = ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
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
'Mo file
Set ws = Workbooks("Book1").Sheets("menu")
duongdan = ws.Range("B5").Value ' Vi trí cap nhat duong dan de mo file (ban chi can copy thay doi duong dan vao O B5")
Tenfile = ws.Range("B6").Value ' Ten file can mo (ban chi can copy ten file vao O B6")
Name_Open = duongdan & "\" & Tenfile ' Lenh mo file
Set wb = Workbooks.Open(Name_Open)
Worksheets(Array("02")).Select
'Copy du lieu tu file mo len va paste vao sheets tu dong tao ra
Set VungDL = Application.InputBox(Prompt:="Quet vung du lieu can di chuyen", Title:="Thong bao", Type:=8)
VungDL.Copy ThisWorkbook.Sheets(TenSheet).Range("A2")
Workbooks("Book1").Sheets("menu").Activate ' Tham khao tai: https://freetuts.net/ref/cach-su-dung-thuoc-tinh-select-vba-390.html
End Sub

Maika8008 · 9/9/23

phanngoctrai1981 đã viết:
HIHI. Dạ em cảm ơn Anh rất nhiều, đã rất tốt rồi anh ơi
Đây là code hoàn hiện anh ạ.

Sub ThemMoi()
Dim NewWS As Worksheet, ws As Worksheet, ws1 As Worksheet
Dim TenSheet As String
Dim VungDL As Range
Set ws = Workbooks("Book1").Sheets("menu")
'Tao sheet va doi ten theo ô
Worksheets.Add after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
Set NewWS = ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
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
'Mo file
Set ws = Workbooks("Book1").Sheets("menu")
duongdan = ws.Range("B5").Value ' Vi trí cap nhat duong dan de mo file (ban chi can copy thay doi duong dan vao O B5")
Tenfile = ws.Range("B6").Value ' Ten file can mo (ban chi can copy ten file vao O B6")
Name_Open = duongdan & "\" & Tenfile ' Lenh mo file
Set wb = Workbooks.Open(Name_Open)
Worksheets(Array("02")).Select
'Copy du lieu tu file mo len va paste vao sheets tu dong tao ra
Set VungDL = Application.InputBox(Prompt:="Quet vung du lieu can di chuyen", Title:="Thong bao", Type:=8)
VungDL.Copy ThisWorkbook.Sheets(TenSheet).Range("A2")
Workbooks("Book1").Sheets("menu").Activate ' Tham khao tai: https://freetuts.net/ref/cach-su-dung-thuoc-tinh-select-vba-390.html
End Sub

Sau này mà đăng code VBA thì bấm công cụ này

chọn

dán code vào đấy

phanngoctrai1981 · 9/9/23

Maika8008 đã viết:
Sau này mà đăng code VBA thì bấm công cụ này View attachment 294657 chọn
View attachment 294658
dán code vào đấy

Dạ, cái vụ này mới nè, mà sao phải như vậy mà không phải là copy rồi dán vào ạ

Chọn vùng coppy, dán từ file này sang file khác

phanngoctrai1981

Thành viên chính thức

File đính kèm

Maika8008

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

phanngoctrai1981

Thành viên chính thức

heyhey1994

Thành viên chính thức

phanngoctrai1981

Thành viên chính thức

phanngoctrai1981

Thành viên chính thức

File đính kèm

Maika8008

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

phanngoctrai1981

Thành viên chính thức

Maika8008

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

phanngoctrai1981

Thành viên chính thức

File đính kèm

Maika8008

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

phanngoctrai1981

Thành viên chính thức

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

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