Lấy danh sách dữ liệu từ sheet tổng sang sheet khác có điều kiện

Liên hệ QC

tuan9xhg

Thành viên mới
Tham gia
24/6/17
Bài viết
21
Được thích
0
Nhờ các bác giúp e với ạ:
e có 1 file có 2 sheet. e muốn chuyển dữ liệu từ sheet 1 sang sheet 2 theo điều kiện của cột BC trong bảng tính thì làm thế nào ạ.
 

File đính kèm

  • ds.xlsx
    178.9 KB · Đọc: 24
điều kiện ở cột BC file đính kèm b ạ. mình muốn là khi nhập dữ liệu vào sheet 1 thì dữ liệu sẽ tự nhảy sang sheet 2 với điều kiện có trong cột BC3 trong bảng tính ạ. b giúp m vs
Cũng muốn giúp nhưng ngặt nỗi đọc tới lui chẳng hiểu bạn muốn gì luôn nửa.
 
hihi. giúp mình qua teamview đc không b ơi?
Bạn đợi ai hiểu bạn muốn gì thì người đó sẽ giúp cho bạn nhé. Ít nhất bạn phải giải thích lọc qua sheet2 thì nó lấy những dòng nào? Lý do lấy dòng đó và lý do không lấy những dòng còn lại?....
 
Bạn đợi ai hiểu bạn muốn gì thì người đó sẽ giúp cho bạn nhé. Ít nhất bạn phải giải thích lọc qua sheet2 thì nó lấy những dòng nào? Lý do lấy dòng đó và lý do không lấy những dòng còn lại?....
Cố lên anh ơi giúp bạn ấy.:D.
 
Bạn đợi ai hiểu bạn muốn gì thì người đó sẽ giúp cho bạn nhé. Ít nhất bạn phải giải thích lọc qua sheet2 thì nó lấy những dòng nào? Lý do lấy dòng đó và lý do không lấy những dòng còn lại?....
Ở cột BC sheet1 có giá trị là 1, 2, 3, 4, 5, 6
mình muồn tách các dòng từ bên sheet 1 sang sheet 2.
Ví dụ ở đây là:
- Các dòng ở cột BC có giá trị bằng 1 sẽ được hiện từ dòng thứ 3 của sheet 2
- Các dòng ở cột BC có giá trị bằng 2 sẽ được hiện từ dòng thứ 13 của sheet 2
và các dòng có giá trị khác tách ra các khoảng tương ứng
 
Ở cột BC sheet1 có giá trị là 1, 2, 3, 4, 5, 6
mình muồn tách các dòng từ bên sheet 1 sang sheet 2.
Ví dụ ở đây là:
- Các dòng ở cột BC có giá trị bằng 1 sẽ được hiện từ dòng thứ 3 của sheet 2
- Các dòng ở cột BC có giá trị bằng 2 sẽ được hiện từ dòng thứ 13 của sheet 2
và các dòng có giá trị khác tách ra các khoảng tương ứng
Góp ý cho bạn:
1/ Tôi làm ngành này mà bạn giải thích tôi còn không hiểu, thì người khác ngành làm sao hiểu cho nổi để giúp bạn.
2/ Bạn muốn theo dõi công việc gì thì nên nêu rõ tôi sẽ thiết kế lại giúp cho, chứ theo dõi kiểu bạn làm sao truy xuất dữ liệu, chứ chưa kể đến việc tổng hợp báo cáo.
3/ Số lượng dòng Insert sao không giống nhau thì dựa vào cột nào?
4/ Trong File sao không thấy thông tin quy hoạch và diện tích từng loại (nằm trong quy hoạch gì?), diện tích nào được cấp, diện tích nào không cấp?
5/ Sao không có cột sử dụng chung, riêng?
 
Lần chỉnh sửa cuối:
e có 1 file có 2 sheet. e muốn chuyển dữ liệu từ sheet 1 sang sheet 2 theo điều kiện của cột BC trong bảng tính thì làm thế nào ạ.
Có nghĩa là tại cột BC có số 2 thì chép thành 2 dòng?
Các dòng dữ liệu khi chép sang có dãn cách 09 dòng trống?
. . .

Các lưu ý cần thiết với chủ bài đăng:
(1) Không nên tô màu cả cột hay cả hàng; Chỉ nên tô màu các ô có dữ liệu mà thôi;
 
Có nghĩa là tại cột BC có số 2 thì chép thành 2 dòng?
Các dòng dữ liệu khi chép sang có dãn cách 09 dòng trống?
. . .

Các lưu ý cần thiết với chủ bài đăng:
(1) Không nên tô màu cả cột hay cả hàng; Chỉ nên tô màu các ô có dữ liệu mà thôi;
Góp ý cho bạn:
1/ Tôi làm ngành này mà bạn giải thích tôi còn không hiểu, thì người khác ngành làm sao hiểu cho nổi để giúp bạn.
2/ Bạn muốn theo dõi công việc gì thì nên nêu rõ tôi sẽ thiết kế lại giúp cho, chứ theo dõi kiểu bạn làm sao truy xuất dữ liệu, chứ chưa kể đến việc tổng hợp báo cáo.
3/ Số lượng dòng Insert sao không giống nhau thì dựa vào cột nào?
4/ Trong File sao không thấy thông tin quy hoạch và diện tích từng loại (nằm trong quy hoạch gì?), diện tích nào được cấp, diện tích nào không cấp?
5/ Sao không có cột sử dụng chung, riêng?
file đó hơi nhiều dữ liệu. m gửi file ít dữ liệu đây ạ. có gì b hỗ trợ m vs.
e muốn trích xuất dữ liệu từ sheet1 sang sheet 2 theo điều kiện cột mặt hàng ạ.
và dữ liệu sheet2 sẽ tự động cập nhật khi bảng dữ liệu ở sheet1 thay đổi.
b giúp m vs nhé.
 

File đính kèm

  • Đơn hàng.xlsx
    11.8 KB · Đọc: 15
file đó hơi nhiều dữ liệu. m gửi file ít dữ liệu đây ạ. có gì b hỗ trợ m vs.
e muốn trích xuất dữ liệu từ sheet1 sang sheet 2 theo điều kiện cột mặt hàng ạ.
và dữ liệu sheet2 sẽ tự động cập nhật khi bảng dữ liệu ở sheet1 thay đổi.
b giúp m vs nhé.
Thế trong trường hợp này thêm 1 mặt hàng mới thì làm sao ta.Thêm 1 sheets mới à.
 
file đó hơi nhiều dữ liệu. m gửi file ít dữ liệu đây ạ. có gì b hỗ trợ m vs.
e muốn trích xuất dữ liệu từ sheet1 sang sheet 2 theo điều kiện cột mặt hàng ạ.
và dữ liệu sheet2 sẽ tự động cập nhật khi bảng dữ liệu ở sheet1 thay đổi.
b giúp m vs nhé.
Sao đưa File bài 1 (một đằng), File này lại một nẽo vậy.
File tách với nhiều chức năng nên tốc độ hơi chậm, nhưng đáp ứng được yêu cầu khỏi canh trang in, khỏi đánh số TT, khỏi cần định dạng lại. Khi tách xong cứ thế mà in.

Không cần tự động cập nhật gì cả, khi in xong thì nhấn nút xóa sheet, khi nhập thêm chủng loại vào danh sách khi cần in thì nhấn nút tách và chỉ việc in.
 

File đính kèm

  • TACH DON HANG.xlsm
    41.3 KB · Đọc: 26
Lần chỉnh sửa cuối:
Sao đưa File bài 1 (một đằng), File này lại một nẽo vậy.
File tách với nhiều chức năng nên tốc độ hơi chậm, nhưng đáp ứng được yêu cầu khỏi canh trang in, khỏi đánh số TT, khỏi cần định dạng lại. Khi tách xong cứ thế mà in.

Không cần tự động cập nhật gì cả, khi in xong thì nhấn nút xóa sheet, khi nhập thêm chủng loại vào danh sách khi cần in thì nhấn nút tách và chỉ việc in.
thanks bác ạ. e dùng A-Tools chuyển đc rồi ạ.
 
Nhờ các bác giúp e với ạ:
e có 1 file có 2 sheet. e muốn chuyển dữ liệu từ sheet 1 sang sheet 2 theo điều kiện của cột BC trong bảng tính thì làm thế nào ạ.
Code cũng không phải là không được nhưng sao nó cứ kỳ kỳ
Mã:
Sub lu_xu_bu()
Dim sArr(), dArr(), i As Long, j As Long, k As Long, n As Long
With Sheets("sheet 1")
   sArr = .Range("B3", .[B65536].End(3).Offset(1)).Resize(, 113).Value
End With
ReDim dArr(1 To UBound(sArr) * 10, 1 To UBound(sArr, 2))
For i = 1 To UBound(sArr) - 1
   If sArr(i, 54) <> Empty Then
      k = k + 1
      For j = 1 To UBound(sArr, 2)
         dArr(k, j) = sArr(i, j)
      Next
      If sArr(i, 54) = sArr(i + 1, 54) Then
         n = n + 1
      Else
         k = k + 9 - n
         n = 0
      End If

   End If
Next
Sheets("sheet 2").[B3].Resize(k, UBound(dArr, 2)) = dArr
End Sub
 

File đính kèm

  • ds.xlsb
    37.9 KB · Đọc: 28
cảm ơn các
Code cũng không phải là không được nhưng sao nó cứ kỳ kỳ
Mã:
Sub lu_xu_bu()
Dim sArr(), dArr(), i As Long, j As Long, k As Long, n As Long
With Sheets("sheet 1")
   sArr = .Range("B3", .[B65536].End(3).Offset(1)).Resize(, 113).Value
End With
ReDim dArr(1 To UBound(sArr) * 10, 1 To UBound(sArr, 2))
For i = 1 To UBound(sArr) - 1
   If sArr(i, 54) <> Empty Then
      k = k + 1
      For j = 1 To UBound(sArr, 2)
         dArr(k, j) = sArr(i, j)
      Next
      If sArr(i, 54) = sArr(i + 1, 54) Then
         n = n + 1
      Else
         k = k + 9 - n
         n = 0
      End If

   End If
Next
Sheets("sheet 2").[B3].Resize(k, UBound(dArr, 2)) = dArr
End Sub
hay quá bác ơi. e đã test thử và đã thành công. đạ tạ pro
 
Web KT
Back
Top Bottom