Xuất dữ liệu theo nhiều điều kiện (1 người xem)

[Ai_Ma_Biet]

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



Cám ơn Anh, Chị

 

[bebo021999]

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é

 

[Ai_Ma_Biet]

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

 

[phulien1902]

--------------------------

 

[Ai_Ma_Biet]

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.

 

[Ai_Ma_Biet]

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é

giúp mình với..........................

 

[Ai_Ma_Biet]

--------------------------

là sao bạn, không làm được theo cách đó hả bạn.

 

[huuthang_bd]

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.

 

[Ai_Ma_Biet]

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).

 

[Ai_Ma_Biet]

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

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

 

[Ai_Ma_Biet]

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

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.

 

[doquy]

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.

Cho mình xin sdt hoặc zalo để hỏi thêm nhé

 

[huuthang_bd]

Cho mình xin sdt hoặc zalo để hỏi thêm nhé

Liên quan chủ đề này thì cứ hỏi trực tiếp ở đây đi bạn.

 

[Mr.hieudoanxd]

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.

Quả nhạc cháy quá. Bác ngồi làm việc mà nghe nhạc này cũng nể bác thật!!!

 

[huuthang_bd]

Quả nhạc cháy quá. Bác ngồi làm việc mà nghe nhạc này cũng nể bác thật!!!

Nhạc này là nhạc thêm vào video cho có âm thanh thôi bạn. Mà hình như Youtube cũng tự đổi nhạc khác rồi chứ không phải nhạc chọn lần đầu khi đăng video.