Lấy dữ liệu từ một Sheet sang Sheet khác

[quyetttvtvp]

Xin chào các anh chị trên diễn đàn. Mình là một thành viên mới rất muốn làm quen và trao đổi cùng anh chị.
Hiện giờ mình có một bài toán như sau rất mong các ah chị giúp đỡ.
Mình muốn lấy dữ liệu từ một Sheet này sang một sheet khác các bạn viết giúp một code giúp mình nhé. Cái VBA mình chưa biết mấy.Cảm ơn nhiều.

 

[yeuthamhangxom]

Xin chào các anh chị trên diễn đàn. Mình là một thành viên mới rất muốn làm quen và trao đổi cùng anh chị.
Hiện giờ mình có một bài toán như sau rất mong các ah chị giúp đỡ.
Mình muốn lấy dữ liệu từ một Sheet này sang một sheet khác các bạn viết giúp một code giúp mình nhé. Cái VBA mình chưa biết mấy.Cảm ơn nhiều.

có thể không cần dùng VBA có được không?

 

[hoang2ha2]

Xin chào các anh chị trên diễn đàn. Mình là một thành viên mới rất muốn làm quen và trao đổi cùng anh chị.
Hiện giờ mình có một bài toán như sau rất mong các ah chị giúp đỡ.
Mình muốn lấy dữ liệu từ một Sheet này sang một sheet khác các bạn viết giúp một code giúp mình nhé. Cái VBA mình chưa biết mấy.Cảm ơn nhiều.

ý bạn lấy tất cả dữ liệu từ sheet này sang sheet khác hay chỉ một số cột hay dong thôi

 

[vuminh1601]

Xin chào các anh chị trên diễn đàn. Mình là một thành viên mới rất muốn làm quen và trao đổi cùng anh chị.
Hiện giờ mình có một bài toán như sau rất mong các ah chị giúp đỡ.
Mình muốn lấy dữ liệu từ một Sheet này sang một sheet khác các bạn viết giúp một code giúp mình nhé. Cái VBA mình chưa biết mấy.Cảm ơn nhiều.

Bạn nên gửi file lên và nói rõ yêu cầu, mọi người sẽ cùng giúp bạn

 

[NH_DK]

Xin chào các anh chị trên diễn đàn. Mình là một thành viên mới rất muốn làm quen và trao đổi cùng anh chị.
Hiện giờ mình có một bài toán như sau rất mong các ah chị giúp đỡ.
Mình muốn lấy dữ liệu từ một Sheet này sang một sheet khác các bạn viết giúp một code giúp mình nhé. Cái VBA mình chưa biết mấy.Cảm ơn nhiều.

Việc này làm được nhưng bạn phải post file lên thì mới giúp bạn được chứ?

 

[SA_DQ]

Có thể bạn í có khó khăn trong việc đưa file lên.

Giờ mình muốn lấy dữ liệu từ một Sheet này sang một sheet khác các bạn viết giúp một code giúp mình nhé.

Bạn tham khảo bước đầu 2 macro sau:

Option Explicit
Sub CopyToSheet0()
1 Range("A1:B5").Copy Destination:=Sheets("CSDL").[A5]
End Sub

Đây là câu lệnh copy 1 vùng dữ liệu sang 1 vùng của trang tính khác có tên là 'CSDL'
Câu lệnh này cũng có thể bạn gặp dưới dạng bóng bãy sau:

[A1].Resize(5,2).Copy Destination:=Sheets("CSDL").[A5]

Hay có người dùng fương cách gán trực tiếp:

Sheets("CSDL").[A5].Resize(5,2).value= [A1].Resize(5,2).value

Ở cả ba trường hợp, vùng đích cần chép đến bắt đầu bỡi ô [A5] của trang 'CSDL'; Còn vùng dữ liệu nguồn là vùng A1:B5 của trang tính hiện hành (Trang đang được kích hoạt)

Các trường hợp trên là ta cần chép từ vùng đến vùng; Còn có trường hợp hi hữu hơn, như chép dữ liệu của 1 vùng nằm trong 1 cột & paste sang 'CSDL' theo dòng. Trường hợp này thường gặp khi ta nhập liệu từ 1 trang tính vô 1 CSDL (Như hồ sơ nhân viên 1 cơ quan, trường học, hoặc 1 hóa đơn bán hay nhập hàng,. . . )
Lúc đó ta xài macro có dạng sau:

[B]Sub CopyToSheet1()[/B]
    Range("B1:B5").Select:                Selection.Copy
2    Sheets("CSDL").Select
    [A65500].End(xlUp).Offset(1).Select
4    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
      Application.CutCopyMode = False
[B]End Sub[/B]

Có gì chưa rõ, bạn đặt vấn đề tiếp nha.

 

[Lê Duy Thương]

Bạn tham khảo bước đầu 2 macro sau:

Option Explicit
Sub CopyToSheet0()
1 Range("A1:B5").Copy Destination:=Sheets("CSDL").[A5]
End Sub

Đây là câu lệnh copy 1 vùng dữ liệu sang 1 vùng của trang tính khác có tên là 'CSDL'
Câu lệnh này cũng có thể bạn gặp dưới dạng bóng bãy sau:

[A1].Resize(5,2).Copy Destination:=Sheets("CSDL").[A5]

Hay có người dùng fương cách gán trực tiếp:

Sheets("CSDL").[A5].Resize(5,2).value= [A1].Resize(5,2).value

Ở cả ba trường hợp, vùng đích cần chép đến bắt đầu bỡi ô [A5] của trang 'CSDL'; Còn vùng dữ liệu nguồn là vùng A1:B5 của trang tính hiện hành (Trang đang được kích hoạt)

Các trường hợp trên là ta cần chép từ vùng đến vùng; Còn có trường hợp hi hữu hơn, như chép dữ liệu của 1 vùng nằm trong 1 cột & paste sang 'CSDL' theo dòng. Trường hợp này thường gặp khi ta nhập liệu từ 1 trang tính vô 1 CSDL (Như hồ sơ nhân viên 1 cơ quan, trường học, hoặc 1 hóa đơn bán hay nhập hàng,. . . )
Lúc đó ta xài macro có dạng sau:

[B]Sub CopyToSheet1()[/B]
Range("B1:B5").Select: Selection.Copy
2 Sheets("CSDL").Select
[A65500].End(xlUp).Offset(1).Select
4 Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Application.CutCopyMode = False
[B]End Sub[/B]

Có gì chưa rõ, bạn đặt vấn đề tiếp nha.

Em cũng đang tập có gì các bác chỉ giùm

Private Sub CommandButton1_Click()
Sheets("csdl").Select
ActiveSheet.Cells.Clear
ActiveSheet.Range("A2").Select
 
For i = 1 To 2
Ten_sheet = Trim(Str(i))
Sheets(Ten_sheet).Select
ActiveSheet.Range("A3:J62").Copy
Sheets("csdl").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats
ActiveSheet.Range("A" & i * 61 + 1).Select
Next
With Sheets("csdl")
j = .[B10000].End(xlUp).Row + 1
.Range(Sheets("csdl").Rows(j), Sheets("csdl").Rows(10000)).Clear
ActiveWorkbook.Save
End With
End Sub

 

[cuongtuyen]

em muốn copy 1 đoạn dữ liệu trong một cột trong sheet1 có cấu trúc giống nhau ở nhiều file vào một file tổng hợp. Nhưng copy dữ liệu ở mỗi file thì lại đặt nó theo thứ tự cột B,C,D,...............
Rất mong sự giúp đỡ của các bác.
Xin chân thành cảm ơn!

 

[nhapmon]

doan code copy tu mot file khac,
sua lai cac sheet cho phu hop voi muc dich su dung cua cac ban

Sub COPPY()


Const nPerColumn As Long = 38 'number of items per column
Const nWidth As Long = 13 'width of each letter
Const nHeight As Long = 18 'height of each row
Const sID As String = "___SheetGoto" 'name of dialog sheet
Const kCaption As String = " Select sheet to goto"
'dialog caption

Dim i As Long
Dim TopPos As Long
Dim iBooks As Long
Dim cCols As Long
Dim cLetters As Long
Dim cMaxLetters As Long
Dim cLeft As Long
Dim thisDlg As DialogSheet
Dim CurrentSheet As Worksheet
Dim cb As CheckBox
Dim Answer As String
Dim MyNote As String





Application.ScreenUpdating = False

If ActiveWorkbook.ProtectStructure Then
MsgBox "Workbook is protected.", vbCritical
Exit Sub
End If

On Error Resume Next
Application.DisplayAlerts = False
ActiveWorkbook.DialogSheets(sID).Delete
Application.DisplayAlerts = True

Do
On Error GoTo 0
Set CurrentSheet = ActiveSheet
Set thisDlg = ActiveWorkbook.DialogSheets.Add

With thisDlg

.Name = sID
.Visible = xlSheetHidden


iBooks = 0
cCols = 0
cMaxLetters = 0
cLeft = 78
TopPos = 40


For i = 1 To ActiveWorkbook.Worksheets.Count

If i Mod nPerColumn = 1 Then
cCols = cCols + 1
TopPos = 40
cLeft = cLeft + (cMaxLetters * nWidth)
cMaxLetters = 0
End If

Set CurrentSheet = ActiveWorkbook.Worksheets(i)
cLetters = Len(CurrentSheet.Name)
If cLetters > cMaxLetters Then
cMaxLetters = cLetters
End If

iBooks = iBooks + 1
thisDlg.CheckBoxes.Add cLeft, TopPos, cLetters * nWidth, 16.5
thisDlg.CheckBoxes(iBooks).Text = _
ActiveWorkbook.Worksheets(iBooks).Name
TopPos = TopPos + 13

Next i

.Buttons.Left = cLeft + (cMaxLetters * nWidth) + 24

CurrentSheet.Activate

With .DialogFrame
.Height = Application.Max(68, _
Application.Min(iBooks, nPerColumn) * nHeight + 10)
.Width = cLeft + (cMaxLetters * nWidth) + 24
.Caption = kCaption
End With

.Buttons("Button 2").BringToFront
.Buttons("Button 3").BringToFront


Application.ScreenUpdating = True
If thisDlg.Show Then
For Each cb In thisDlg.CheckBoxes
If cb.Value = xlOn Then
ActiveWorkbook.Worksheets(cb.Caption).Select

LR = Range("A" & Rows.Count).End(xlUp).Row 'di den dong du lieu cuoi cung
Range("A9:AP" & LR).Select 'vung du lieu ban muon chon
Selection.Copy
Sheets("sheet1").Select 'sheet ban muon chep toi
LR = Range("A" & Rows.Count).End(xlUp).Row 'di den dong cuoi cung cua so lieu
Range("A" & LR).Select
ActiveSheet.Paste



End If
Next cb
Else
Sheets("08MM").Select
Range("A2").Select
End If
Application.DisplayAlerts = False
.Delete

End With



Answer = MsgBox(MyNote, vbQuestion + vbYesNo, "Chep Sheet Nao Nua Khong?")

If Answer = vbNo Then
'Code for No button Press
'MsgBox "You pressed NO!"
Else
'Code for Yes button Press
'MsgBox "You pressed Yes!"
End If

Loop Until Answer = vbNo


End Sub

 

[khongco96]

Lấy dữ liệu từ hai sheet tạo ra sheet mới!

Hi các bạn và admin!
Các bạn và admin viết giúp mình một đoạn code VBA, cách copy dữ liệu từ hai sheet dữ liệu tạo ra một sheet mới như file excel đính kèm bên dưới.
Chúc các bạn và admin làm việc vui vẻ!
Vũ Hưng.

 

[Hai Lúa Miền Tây]

Hi các bạn và admin!
Các bạn và admin viết giúp mình một đoạn code VBA, cách copy dữ liệu từ hai sheet dữ liệu tạo ra một sheet mới như file excel đính kèm bên dưới.
Chúc các bạn và admin làm việc vui vẻ!
Vũ Hưng.

Bạn xem file đính kèm nhé.

 

[khongco96]

Tao bang tinh nhanh!

Có anh chị nào giúp mình giải quyết bài toán này với!
Với bài toán trước mình chỉ lấy được dữ liệu từ hai sheet sang một sheet khác mà không có điều kiện, trường hợp dưới đây là lấy dữ liệu có điều kiện. Mong các bạn và anh chị giải quyết bài toán này.
Chúc mọi người làm việc vẻ!

 

[Hai Lúa Miền Tây]

Có anh chị nào giúp mình giải quyết bài toán này với!
Với bài toán trước mình chỉ lấy được dữ liệu từ hai sheet sang một sheet khác mà không có điều kiện, trường hợp dưới đây là lấy dữ liệu có điều kiện. Mong các bạn và anh chị giải quyết bài toán này.
Chúc mọi người làm việc vẻ!

Chỉ làm cho bạn được ở file đính kèm thôi.

 

[vuongdanhthang]

Có thể bạn í có khó khăn trong việc đưa file lên.



Bạn tham khảo bước đầu 2 macro sau:

Option Explicit
Sub CopyToSheet0()
1 Range("A1:B5").Copy Destination:=Sheets("CSDL").[A5]
End Sub

Đây là câu lệnh copy 1 vùng dữ liệu sang 1 vùng của trang tính khác có tên là 'CSDL'
Câu lệnh này cũng có thể bạn gặp dưới dạng bóng bãy sau:

[A1].Resize(5,2).Copy Destination:=Sheets("CSDL").[A5]

Hay có người dùng fương cách gán trực tiếp:

Sheets("CSDL").[A5].Resize(5,2).value= [A1].Resize(5,2).value

Ở cả ba trường hợp, vùng đích cần chép đến bắt đầu bỡi ô [A5] của trang 'CSDL'; Còn vùng dữ liệu nguồn là vùng A1:B5 của trang tính hiện hành (Trang đang được kích hoạt)

Các trường hợp trên là ta cần chép từ vùng đến vùng; Còn có trường hợp hi hữu hơn, như chép dữ liệu của 1 vùng nằm trong 1 cột & paste sang 'CSDL' theo dòng. Trường hợp này thường gặp khi ta nhập liệu từ 1 trang tính vô 1 CSDL (Như hồ sơ nhân viên 1 cơ quan, trường học, hoặc 1 hóa đơn bán hay nhập hàng,. . . )
Lúc đó ta xài macro có dạng sau:

[B]Sub CopyToSheet1()[/B]
    Range("B1:B5").Select:                Selection.Copy
2    Sheets("CSDL").Select
    [A65500].End(xlUp).Offset(1).Select
4    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
      Application.CutCopyMode = False
[B]End Sub[/B]

Có gì chưa rõ, bạn đặt vấn đề tiếp nha.

Bạn ơi, giờ mình muốn copy một vùng ngược lại từ một sheet thư viện có sẵn sang sheet hiện hành, paste vào mốc đầu tiên là vị trí con trỏ thì code thế nào?

Mình chuẩn bị dạy học, nên sẽ phải chấm nhiều bài của học viên. Sheet thư viện này mình sẽ để đáp án dưới dạng cột cố định, sheet này có thể ẩn đi, khi chấm bài mỗi học viên mình muốn dùng Marco copy paste vào sheet bài làm của học viên để so sánh cho nhanh. Mỗi đáp án tương ứng với một bài tập mình sẽ để ở một cột hoặc một vùng riêng. (Tất nhiên là học viên sẽ làm bài tập trên file có sheet thư viện này).

Mong bạn giúp đỡ ạ.

 

[vuongdanhthang]

Có thể bạn í có khó khăn trong việc đưa file lên.



Bạn tham khảo bước đầu 2 macro sau:

Option Explicit
Sub CopyToSheet0()
1 Range("A1:B5").Copy Destination:=Sheets("CSDL").[A5]
End Sub

Đây là câu lệnh copy 1 vùng dữ liệu sang 1 vùng của trang tính khác có tên là 'CSDL'
Câu lệnh này cũng có thể bạn gặp dưới dạng bóng bãy sau:

[A1].Resize(5,2).Copy Destination:=Sheets("CSDL").[A5]

Hay có người dùng fương cách gán trực tiếp:

Sheets("CSDL").[A5].Resize(5,2).value= [A1].Resize(5,2).value

Ở cả ba trường hợp, vùng đích cần chép đến bắt đầu bỡi ô [A5] của trang 'CSDL'; Còn vùng dữ liệu nguồn là vùng A1:B5 của trang tính hiện hành (Trang đang được kích hoạt)

Các trường hợp trên là ta cần chép từ vùng đến vùng; Còn có trường hợp hi hữu hơn, như chép dữ liệu của 1 vùng nằm trong 1 cột & paste sang 'CSDL' theo dòng. Trường hợp này thường gặp khi ta nhập liệu từ 1 trang tính vô 1 CSDL (Như hồ sơ nhân viên 1 cơ quan, trường học, hoặc 1 hóa đơn bán hay nhập hàng,. . . )
Lúc đó ta xài macro có dạng sau:

[B]Sub CopyToSheet1()[/B]
    Range("B1:B5").Select:                Selection.Copy
2    Sheets("CSDL").Select
    [A65500].End(xlUp).Offset(1).Select
4    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
      Application.CutCopyMode = False
[B]End Sub[/B]

Có gì chưa rõ, bạn đặt vấn đề tiếp nha.

Em đã vọc vạch sửa lại code của bác SA_DQ, chuyển copy từ một sheet sang sheet hiện hành nhưng không biết cách áp dụng cho tất cả các sheet. Nhờ các anh chị giúp với ạ?

Code em sửa:

Sub CopyToSheet1()
Sheets("Thu vien").Select
Range("C5", Range("C65536").End(xlUp)).Select: Selection.Copy ‘=> Chỉ chọn vùng có dữ liệu trong cột.
Sheets("BOQ").Select ‘=> Nhờ các anh chị nghiên cứu áp dụng được cho sheet có tên bất kỳ (các sheet hiện hành bất kỳ khác, ở đây chỉ chạy được cho sheet có tên “BOQ”)???
  ActiveCell.Select
  Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False  ‘Nếu bằng True thì sẽ chuyển cột thành hàng
      Application.CutCopyMode = False
End Sub

Em có gửi file đính kèm ạ, code thì bỏ vào Module.