Lấy dữ liệu từ Sheet theo số thứ tự tùy chọn. (1 người xem)

Liên hệ QC

Người dùng đang xem chủ đề này

Đang trực tuyến: 1 (Thành viên: 0, Khách: 1)
Cát Lượng

Cát Lượng

Thành viên tiêu biểu
Tham gia
14/11/18
Bài viết
403
Được thích
66
Em xin được nhờ các anh/chị giúp em:
Em muốn lấy dữ liệu từ sheet(DM_HD) sang hai sheet(List_Ly lich_16) và Sheet(List_Kinh Nghiem_17)
1/ Dữ liệu được lấy từ sheet(DM_HD) để điền sang sheet(List_Ly lich_16) là các ô tương ứng từ dòng 15
trở đi và thuộc các cột A, cột D, cột F, cột M, Cột N, Cột AA (những cột tô nền xanh trong sheet sheet(DM_HD)trong sheet(DM_HD)
2/ Dữ liệu được lấy từ sheet(DM_HD) để điền sang Sheet(List_Kinh Nghiem_17)là các là các ô tương ứng từ dòng 15
trở đi và thuộc các cột A, cột D, Cột AA trong sheet(DM_HD).
***** Sheet(DM_HD) được đánh số thứ tự từ 1 và tăng dần đều, lấy dữ liệu từ sheet(DM_HD) theo cột STT: lấy từ số
nào đến số nào (từ 1 đến 3) hoặc chọn các số tương ứng với số thứ tự cần lấy (lấy số 1,3,4..) để điền
dữ liệu tương ứng với số thứ tự và Mã Nhân Viên sang cả hai sheet(List_Ly lich_16) và Sheet(List_Kinh Nghiem_17).

11111.png33333.png222222.png
 

File đính kèm

Bạn viết yêu cầu hơi rối mình đọc hơi khó hiểu chút, góp ý bạn là nên viết súc tích hơn với ít viết lặp Sheet sheet đi, đọc hồi mắt mình toàn chữ sheet thôi. ý bạn là giờ cần 1 nút, khi nhấn vào dữ liệu sẽ điền từ "DM_HD" sang các Sheet khác theo số thứ tự phải không?
 
thukhon2014 đã viết:
Bạn viết yêu cầu hơi rối mình đọc hơi khó hiểu chút, góp ý bạn là nên viết súc tích hơn với ít viết lặp Sheet sheet đi, đọc hồi mắt mình toàn chữ sheet thôi. ý bạn là giờ cần 1 nút, khi nhấn vào dữ liệu sẽ điền từ "DM_HD" sang các Sheet khác theo số thứ tự phải không?
Nhấp chuột vào đây để mở rộng...
Dạ! Hi...
Vâng anh/chị giúp em đoạn code để khi chạy code::
Lấy dữ liệu từ "DM_HD" (cột tô nềnxanh) sẽ được điền sang "List_Ly Lich_16" và "List_Kinh Nghiem_17".
Lấy theo số thứ tự: Khi chạy code sẽ hỏi số thứ tự tương ứng với dòng từ "DM_HD" để lấy sang "List_Ly Lich_16" và"List_Kinh Nghiem_17"
Và có thể chọn số lấy theo ý muôn : lấy từ số này đến số này hoặc chọn số cần lấy (1,3,6...) dữ liệu sang.
Ở file trên số thứ tự ở "DM_HD" là 1,2,3 em lấy dữ liệu tương ứng với số 2, 3 sang "List_Ly Lich_16" và "List_Kinh Nghiem_17" chứ không lấy cả 1,2,3
Anh/chị giúp em, em xin cảm ơn!
 
Mình tạo thêm 1 vùng để lựa chọn dữ liệu ở vùng AC3 trong sheet "DM_HD", có 2 nút để lấy dữ liệu (theo thứ tự và theo lựa chọn). Cột AD có viền là nơi bạn chọn các STT mong muốn. Do không có thời gian nên mình chưa viết lệnh bỏ qua dữ liệu trùng. Mình thì không giỏi CODE nên CODE sẽ không được chỉnh chu mong có gì bạn thông cảm nha (xem file)
Mã: 
Sub Chuyen_Trang_Den_Trang()
Dim Dongcuoi16 As Long
Dim Dongcuoi17 As Long
Dim i As Long
For i = [AD3] + 14 To [AF3] + 14
    Sheets("List_Ly Lich_16").Activate
    With ActiveSheet
        Dongcuoi16 = .Cells(.Rows.Count, "B").End(xlUp).Row + 1
    End With
    Sheets("List_Ly Lich_16").Range("B" & Dongcuoi16) = Sheets("DM_HD").Range("A" & i).Value
    Sheets("List_Ly Lich_16").Range("C" & Dongcuoi16) = Sheets("DM_HD").Range("AA" & i).Value
    Sheets("List_Ly Lich_16").Range("D" & Dongcuoi16) = Sheets("DM_HD").Range("D" & i).Value
    Sheets("List_Ly Lich_16").Range("E" & Dongcuoi16) = Sheets("DM_HD").Range("F" & i).Value
    Sheets("List_Ly Lich_16").Range("F" & Dongcuoi16) = Sheets("DM_HD").Range("M" & i).Value
    Sheets("List_Ly Lich_16").Range("G" & Dongcuoi16) = Sheets("DM_HD").Range("N" & i).Value
    Sheets("List_Kinh Nghiem_17").Activate
    With ActiveSheet
        Dongcuoi17 = .Cells(.Rows.Count, "B").End(xlUp).Row + 1
    End With
    Sheets("List_Kinh Nghiem_17").Range("B" & Dongcuoi17) = Sheets("DM_HD").Range("A" & i).Value
    Sheets("List_Kinh Nghiem_17").Range("C" & Dongcuoi17) = Sheets("DM_HD").Range("AA" & i).Value
    Sheets("List_Kinh Nghiem_17").Range("D" & Dongcuoi17) = Sheets("DM_HD").Range("D" & i).Value
Next i
End Sub
Mã: 
Sub Chuyen_Theo_Lua_Chon()
Dim DongcuoiDM As Long
Dim Dongcuoi16 As Long
Dim DongChon As Long
Dim i As Long
Sheets("DM_HD").Activate
With ActiveSheet
    DongcuoiDM = .Cells(.Rows.Count, "A").End(xlUp).Row + 1
End With
For i = 4 To DongcuoiDM
    Sheets("List_Ly Lich_16").Activate
    With ActiveSheet
        Dongcuoi16 = .Cells(.Rows.Count, "B").End(xlUp).Row + 1
    End With
    DongChon = Sheets("DM_HD").Range("AD" & i).Value + 14
    If DongChon = 14 Then
        Exit Sub
    End If
    Sheets("List_Ly Lich_16").Range("B" & Dongcuoi16) = Sheets("DM_HD").Range("A" & DongChon).Value
    Sheets("List_Ly Lich_16").Range("C" & Dongcuoi16) = Sheets("DM_HD").Range("AA" & DongChon).Value
    Sheets("List_Ly Lich_16").Range("D" & Dongcuoi16) = Sheets("DM_HD").Range("D" & DongChon).Value
    Sheets("List_Ly Lich_16").Range("E" & Dongcuoi16) = Sheets("DM_HD").Range("F" & DongChon).Value
    Sheets("List_Ly Lich_16").Range("F" & Dongcuoi16) = Sheets("DM_HD").Range("M" & DongChon).Value
    Sheets("List_Ly Lich_16").Range("G" & Dongcuoi16) = Sheets("DM_HD").Range("N" & DongChon).Value
    Sheets("List_Kinh Nghiem_17").Activate
    With ActiveSheet
        Dongcuoi17 = .Cells(.Rows.Count, "B").End(xlUp).Row + 1
    End With
    Sheets("List_Kinh Nghiem_17").Range("B" & Dongcuoi17) = Sheets("DM_HD").Range("A" & DongChon).Value
    Sheets("List_Kinh Nghiem_17").Range("C" & Dongcuoi17) = Sheets("DM_HD").Range("AA" & DongChon).Value
    Sheets("List_Kinh Nghiem_17").Range("D" & Dongcuoi17) = Sheets("DM_HD").Range("D" & DongChon).Value
Next i
End Sub
 

File đính kèm

thukhon2014 đã viết:
Mình tạo thêm 1 vùng để lựa chọn dữ liệu ở vùng AC3 trong sheet "DM_HD", có 2 nút để lấy dữ liệu (theo thứ tự và theo lựa chọn). Cột AD có viền là nơi bạn chọn các STT mong muốn. Do không có thời gian nên mình chưa viết lệnh bỏ qua dữ liệu trùng. Mình thì không giỏi CODE nên CODE sẽ không được chỉnh chu mong có gì bạn thông cảm nha (xem file)
Mã: 
Sub Chuyen_Trang_Den_Trang()
Dim Dongcuoi16 As Long
Dim Dongcuoi17 As Long
Dim i As Long
For i = [AD3] + 14 To [AF3] + 14
    Sheets("List_Ly Lich_16").Activate
    With ActiveSheet
        Dongcuoi16 = .Cells(.Rows.Count, "B").End(xlUp).Row + 1
    End With
    Sheets("List_Ly Lich_16").Range("B" & Dongcuoi16) = Sheets("DM_HD").Range("A" & i).Value
    Sheets("List_Ly Lich_16").Range("C" & Dongcuoi16) = Sheets("DM_HD").Range("AA" & i).Value
    Sheets("List_Ly Lich_16").Range("D" & Dongcuoi16) = Sheets("DM_HD").Range("D" & i).Value
    Sheets("List_Ly Lich_16").Range("E" & Dongcuoi16) = Sheets("DM_HD").Range("F" & i).Value
    Sheets("List_Ly Lich_16").Range("F" & Dongcuoi16) = Sheets("DM_HD").Range("M" & i).Value
    Sheets("List_Ly Lich_16").Range("G" & Dongcuoi16) = Sheets("DM_HD").Range("N" & i).Value
    Sheets("List_Kinh Nghiem_17").Activate
    With ActiveSheet
        Dongcuoi17 = .Cells(.Rows.Count, "B").End(xlUp).Row + 1
    End With
    Sheets("List_Kinh Nghiem_17").Range("B" & Dongcuoi17) = Sheets("DM_HD").Range("A" & i).Value
    Sheets("List_Kinh Nghiem_17").Range("C" & Dongcuoi17) = Sheets("DM_HD").Range("AA" & i).Value
    Sheets("List_Kinh Nghiem_17").Range("D" & Dongcuoi17) = Sheets("DM_HD").Range("D" & i).Value
Next i
End Sub
Mã: 
Sub Chuyen_Theo_Lua_Chon()
Dim DongcuoiDM As Long
Dim Dongcuoi16 As Long
Dim DongChon As Long
Dim i As Long
Sheets("DM_HD").Activate
With ActiveSheet
    DongcuoiDM = .Cells(.Rows.Count, "A").End(xlUp).Row + 1
End With
For i = 4 To DongcuoiDM
    Sheets("List_Ly Lich_16").Activate
    With ActiveSheet
        Dongcuoi16 = .Cells(.Rows.Count, "B").End(xlUp).Row + 1
    End With
    DongChon = Sheets("DM_HD").Range("AD" & i).Value + 14
    If DongChon = 14 Then
        Exit Sub
    End If
    Sheets("List_Ly Lich_16").Range("B" & Dongcuoi16) = Sheets("DM_HD").Range("A" & DongChon).Value
    Sheets("List_Ly Lich_16").Range("C" & Dongcuoi16) = Sheets("DM_HD").Range("AA" & DongChon).Value
    Sheets("List_Ly Lich_16").Range("D" & Dongcuoi16) = Sheets("DM_HD").Range("D" & DongChon).Value
    Sheets("List_Ly Lich_16").Range("E" & Dongcuoi16) = Sheets("DM_HD").Range("F" & DongChon).Value
    Sheets("List_Ly Lich_16").Range("F" & Dongcuoi16) = Sheets("DM_HD").Range("M" & DongChon).Value
    Sheets("List_Ly Lich_16").Range("G" & Dongcuoi16) = Sheets("DM_HD").Range("N" & DongChon).Value
    Sheets("List_Kinh Nghiem_17").Activate
    With ActiveSheet
        Dongcuoi17 = .Cells(.Rows.Count, "B").End(xlUp).Row + 1
    End With
    Sheets("List_Kinh Nghiem_17").Range("B" & Dongcuoi17) = Sheets("DM_HD").Range("A" & DongChon).Value
    Sheets("List_Kinh Nghiem_17").Range("C" & Dongcuoi17) = Sheets("DM_HD").Range("AA" & DongChon).Value
    Sheets("List_Kinh Nghiem_17").Range("D" & Dongcuoi17) = Sheets("DM_HD").Range("D" & DongChon).Value
Next i
End Sub
Nhấp chuột vào đây để mở rộng...
Cám ơn anh/chị nhé!
 
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Web KT

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

ongke0711
  • Question Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba (1 người xem)
    • Thích
    • Yêu thích
    • Cảm ơn
16 17 18
Trả lời
354
Đọc
34K
ongke0711
ongke0711
V
  • Question Question
Mình nhờ các cao thủ chỉ giúp (1 người xem)
Trả lời
1
Đọc
51
Hoàng Tuấn 868
H
V
  • Question Question
Chuyển 1 sheet thành 1 file (2 người xem)
2 3
Trả lời
59
Đọc
47K
viho79
V
khang2303
Lỗi khi đặt mật khẩu bảo vệ file
Trả lời
0
Đọc
38
khang2303
khang2303
D
Gõ chữ trong Excel rất chậm hiển thị, bị delay lâu và lỗi
Trả lời
2
Đọc
104
daotuan_tc
D
GPE-Trợ Lý
[GPE] HỘI THẢO POWER QUERY – CÔNG CỤ QUẢN LÝ DỮ LIỆU HCM
    • Thích
Trả lời
5
Đọc
2K
kimthanhvu
K
Thien
  • Question Question
Save file dạng giá trị
Trả lời
14
Đọc
5K
Chang82
Chang82
htktdm2020
HỎI XIN CÁCH " SAVE FILE CHỈ LẤY GIÁ TRỊ LOẠI BỎ CÔNG THỨC " !!!!!
Trả lời
17
Đọc
2K
Chang82
Chang82
V
Có cách nào để kiểm tra sheet/workbook có bị #SPILL! hay không?
Trả lời
2
Đọc
97
vic_it
V
nghilt6
Giúp mình code VBA tạo mã QR nhận tiền
2
Trả lời
23
Đọc
2K
moihocvba
M
H
Sửa câu lệnh sql từ bảng tính khác
Trả lời
1
Đọc
51
Hoale85
H
H
Sửa câu lệnh sql
Trả lời
0
Đọc
31
Hoale85
H
Maithy46
Giúp mình về việc lập bảng theo dõi chi tiết, báo cáo sản lượng công đoạn trong ngành may mặc ạ (1 người xem)
Trả lời
3
Đọc
133
haianh89
H
Emyeuexcel
Cộng 4 tuần theo 1 qui luật qui định
Trả lời
12
Đọc
335
HieuCD
H
O
XIN ANH CHỊ GIÚP ĐỠ HƯỚNG DẪN CHUYỂN VĂN BẢN THÀNH GIỌNG NÓI TRONG EXCEL Ạ.
2
Trả lời
27
Đọc
984
ongke0711
ongke0711
H
V/v xóa, gỡ marco ẩn_nguy hại
Trả lời
8
Đọc
6K
vc_đi chơi
vc_đi chơi
H
Tra cứu mã ngành theo hóa đơn
Trả lời
9
Đọc
329
Hoale85
H
B
Xin cách hướng dẫn đặt gốc toạ độ trục X trong biểu đồ là điều kiện đầu tiên của giá trị tương ứng trục Y. (2 người xem)
Trả lời
1
Đọc
61
PhanTuHuong
PhanTuHuong
Nguyễn thị nhung90
lỗi khi sử dụng hàm subtotal
Trả lời
7
Đọc
175
Nguyễn thị nhung90
Nguyễn thị nhung90
ptm0412
  • Dán lên cao
Hàm LET trong Excel 365
    • Thích
    • Yêu thích
    • Cười
2
Trả lời
26
Đọc
10K
Emyeuexcel
Emyeuexcel
Xem thêm…

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

Đếm ngược thời gian

000
Ngày
00
Giờ
00
phút
00
giây
[GPE] HỘI THẢO POWER QUERY – CÔNG CỤ QUẢN LÝ DỮ LIỆU HCM
Back
Top Bottom