Xuất dữ liệu theo nhiều điều kiện

Liên hệ QC

Ai_Ma_Biet

Thành viên hoạt động
Tham gia
22/4/15
Bài viết
127
Được thích
20
Giới tính
Nam
Chào Anh, Chị.

Mình có file Excel cần xuất ra nhiều file Excel theo điều kiện bên dưới. Nhờ Anh, Chị viết code giúp cho 2 trường hợp như bên dưới:

Mình có xuất thử mỗi loại 2 file như bên dưới
Cách 1: file Bang ke-50dao.xlsx và file Bang ke-50san.xlsx
Cách 2: file Bang ke-50lac.xlsx và file Bang ke-60cuong.xlsx

1602572154604.png

Cám ơn Anh, Chị
 

File đính kèm

  • Xuat file excel theo dieu kien.xlsx
    342.1 KB · Đọc: 11
  • Bang ke-50dao.xlsx
    17.7 KB · Đọc: 1
  • Bang ke-50lac.xlsx
    17 KB · Đọc: 2
  • Bang ke-60CUONG.xlsx
    15.4 KB · Đọc: 0
  • Bang ke-50san.xlsx
    16.9 KB · Đọc: 0
Lần chỉnh sửa cuối:
Kết quả xuất ra nằm ở đâu, cụ thể thế nào, bạn điền 1 vài dòng mẫu nhé
 
Kết quả xuất ra nằm ở đâu, cụ thể thế nào, bạn điền 1 vài dòng mẫu nhé
Xuất ra nằm chung folder đó luôn nha bạn.

Mình có xuất thử mỗi loại 2 file như bên dưới
Cách 1: file Bang ke-50dao.xlsx và file Bang ke-50san.xlsx
Cách 2: file Bang ke-50lac.xlsx và file Bang ke-60cuong.xlsx
 

File đính kèm

  • Bang ke-50dao.xlsx
    17.7 KB · Đọc: 4
  • Bang ke-50lac.xlsx
    17 KB · Đọc: 4
  • Bang ke-60CUONG.xlsx
    15.4 KB · Đọc: 1
  • Bang ke-50san.xlsx
    16.9 KB · Đọc: 1
Chào Anh, Chị.

Mình có file Excel cần xuất ra nhiều file Excel theo điều kiện bên dưới. Nhờ Anh, Chị viết code giúp cho 2 trường hợp như bên dưới:

Mình có xuất thử mỗi loại 2 file như bên dưới
Cách 1: file Bang ke-50dao.xlsx và file Bang ke-50san.xlsx
Cách 2: file Bang ke-50lac.xlsx và file Bang ke-60cuong.xlsx

View attachment 247331

Cám ơn Anh, Chị
Anh, Chị giúp mình với.
 
File đính kèm là code cho yêu cầu 1. Yêu cầu 2 cũng không khác gì nhiều, bạn nghiên cứu tự làm thử xem.
Tôi có quay lại quá trình làm yêu cầu 1, bạn có thể tham khảo.


 

File đính kèm

  • Xuat file excel theo dieu kien.xlsm
    368.5 KB · Đọc: 16
File đính kèm là code cho yêu cầu 1. Yêu cầu 2 cũng không khác gì nhiều, bạn nghiên cứu tự làm thử xem.
Tôi có quay lại quá trình làm yêu cầu 1, bạn có thể tham khảo.


Làm không được bạn ơi, với lại bạn chỉnh giúp mình file xuất ra có format y như file gốc giúp (màu, kích thước các cột).
 
File đính kèm là code cho yêu cầu 1. Yêu cầu 2 cũng không khác gì nhiều, bạn nghiên cứu tự làm thử xem.
Tôi có quay lại quá trình làm yêu cầu 1, bạn có thể tham khảo.


Chỗ cách 2 mình sửa như bên dưới nhưng không ra được cột I, vẫn ra cột J
.Range("Q14").Value = .Range("I1").Value

Mã:
With Sheet1
    .Range("O14:P14").Value = .Range("A1").Value
    .Range("Q14").Value = .Range("I1").Value
    .Range("R14").Value = .Range("M1").Value
    .Range("O15").Value = "'>=" & .Range("P2").Value2
    .Range("P15").Value = "'<=" & .Range("Q2").Value2
    .Range("R15").Value = "C" & ChrW(244) & "ng ty"
End With
For i = 2 To UBound(aKH, 1)
    If VBA.IsNumeric(Left(aKH(i, 1), 1)) Then
        Sheet1.Range("Q15").Value = aKH(i, 1)
        Rng.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheet1.Range _
            ("O14:R15"), CopyToRange:=TmpSh.Range("A1"), Unique:=False
        sFilename = ThisWorkbook.Path & "\Bang ke GM-" & aKH(i, 1) & ".xlsx"
        If Dir(sFilename) <> "" Then Kill sFilename
 
Lần chỉnh sửa cuối:
Chỗ cách 2 mình sửa như bên dưới nhưng không ra được cột I, vẫn ra cột J
.Range("Q14").Value = .Range("I1").Value

Mã:
With Sheet1
    .Range("O14:P14").Value = .Range("A1").Value
    .Range("Q14").Value = .Range("I1").Value
    .Range("R14").Value = .Range("M1").Value
    .Range("O15").Value = "'>=" & .Range("P2").Value2
    .Range("P15").Value = "'<=" & .Range("Q2").Value2
    .Range("R15").Value = "C" & ChrW(244) & "ng ty"
End With
For i = 2 To UBound(aKH, 1)
    If VBA.IsNumeric(Left(aKH(i, 1), 1)) Then
        Sheet1.Range("Q15").Value = aKH(i, 1)
        Rng.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheet1.Range _
            ("O14:R15"), CopyToRange:=TmpSh.Range("A1"), Unique:=False
        sFilename = ThisWorkbook.Path & "\Bang ke GM-" & aKH(i, 1) & ".xlsx"
        If Dir(sFilename) <> "" Then Kill sFilename
sửa giúp mình với.
 
Web KT
Back
Top Bottom