Lọc theo điều kiện và copy sheet qua sheet (1 người xem)

1986QV · 8/8/14

Bài toán đặt ra là có các dãy số chữ hỗn hợp, Lọc thoải điều kiện BS=BT= 4, hoặc 5,hoặc 6
copy sheet1 qua sheet 2. Được kết quả như file. Mọi người coi kỹ và có Code chạy VBA chính xác với bài toán này.

Cảm ơn GPE!

Ba Tê · 8/8/14

1986QV đã viết:
Bài toán đặt ra là có các dãy số chữ hỗn hợp, Lọc thoải điều kiện BS=BT= 4, hoặc 5,hoặc 6
copy sheet1 qua sheet 2. Được kết quả như file. Mọi người coi kỹ và có Code chạy VBA chính xác với bài toán này.

Cảm ơn GPE!

Đọc xong không biết bạn muốn sao.
Tôi đọc kỹ rồi, có code rồi.
Rồi sao nữa?

1986QV · 8/8/14

Ba Tê đã viết:
Đọc xong không biết bạn muốn sao.
Tôi đọc kỹ rồi, có code rồi.
Rồi sao nữa?

Em nói có sai. Bác hay đùa. ý nhờ các bác viết code cho bài toán này.
Cảm ơn bác quan tâm.

Quang_Hải · 8/8/14

1986QV đã viết:
Em nói có sai. Bác hay đùa. ý nhờ các bác viết code cho bài toán này.
Cảm ơn bác quan tâm.

Mình đọc vào thì hiểu ngay ý bạn muốn lọc ra 3 nhóm: 4,5 và 6. Nhưng tại cách bạn diễn tả kỳ quá mà. Chỉ là bài toán lọc thôi, dùng autofilter cũng xong, code chi cho mệt não

1986QV · 8/8/14

quanghai1969 đã viết:
Mình đọc vào thì hiểu ngay ý bạn muốn lọc ra 3 nhóm: 4,5 và 6. Nhưng tại cách bạn diễn tả kỳ quá mà. Chỉ là bài toán lọc thôi, dùng autofilter cũng xong, code chi cho mệt não

tại nếu có Code để nó nhanh hơn chút. nếu dùng ấn tay cũng mất chút times. nên đành nhờ các bác GPE vậy.

Quang_Hải · 8/8/14

1986QV đã viết:
tại nếu có Code để nó nhanh hơn chút. nếu dùng ấn tay cũng mất chút times. nên đành nhờ các bác GPE vậy.

Muốn code thì cho code

PHP:

Sub abc()
Dim i, C
C = 1
For i = 1 To 3
   With Sheet1
      .[A3:BT10000].AutoFilter 71, i + 3
      .[A3:BT10000].AutoFilter 72, i + 3
      .[A3:B10000].SpecialCells(12).Copy Sheet2.Cells(2, C)
   End With
   C = C + 3
Next
End Sub

Ba Tê · 8/8/14

1986QV đã viết:
tại nếu có Code để nó nhanh hơn chút. nếu dùng ấn tay cũng mất chút times. nên đành nhờ các bác GPE vậy.

Vậy thì làm 1 cái ô chọn thôi.

1986QV · 8/8/14

quanghai1969 đã viết:
Muốn code thì cho code

PHP:

Sub abc() Dim i, C C = 1 For i = 1 To 3 With Sheet1 .[A3:BT10000].AutoFilter 71, i + 3 .[A3:BT10000].AutoFilter 72, i + 3 .[A3:B10000].SpecialCells(12).Copy Sheet2.Cells(2, C) End With C = C + 3 Next End Sub

Đoạn này của bác lọc cả phần ở C:BR vào. hiểu bác kiểm tra lại giúp em.

Quang_Hải · 8/8/14

1986QV đã viết:
Đoạn này của bác lọc cả phần ở C:BR vào. hiểu bác kiểm tra lại giúp em.

Nếu thấy code không đúng thì thôi đừng xài.
Có điều làm sao code có thể lấy được cái vùng từ C đến BR
Nếu có thể đọc code thì nhìn chỗ này: .[A3:B10000].SpecialCells(12).Copy Sheet2.Cells(2, C)

1986QV · 8/8/14

quanghai1969 đã viết:
Nếu thấy code không đúng thì thôi đừng xài.
Có điều làm sao code có thể lấy được cái vùng từ C đến BR
Nếu có thể đọc code thì nhìn chỗ này: .[A3:B10000].SpecialCells(12).Copy Sheet2.Cells(2, C)

Em góp ý bác để bác coi xem bị lỗi ở đâu. em sai, bác thì sao. file đây bác.

Ba Tê · 9/8/14

1986QV đã viết:
Em góp ý bác để bác coi xem bị lỗi ở đâu. em sai, bác thì sao. file đây bác.

Kết quả chạy code của Quang Hải giống hệt kết quả bạn muốn có.
Ý bạn là sao?
Hay sửa code lại như vầy cho dễ hiểu:
[GPECODE=vb]Sub abc()
Dim i, C
C = 1
For i = 1 To 3
With Sheet1
.[BS2:BT10000].AutoFilter 1, i + 3
.[BS2:BT10000].AutoFilter 2, i + 3
.[A3:B10000].SpecialCells(12).Copy Sheet2.Cells(2, C)
End With
C = C + 3
Next
End Sub[/GPECODE]

concogia · 9/8/14

Ba Tê đã viết:
Kết quả chạy code của Quang Hải giống hệt kết quả bạn muốn có.
Ý bạn là sao?
Hay sửa code lại như vầy cho dễ hiểu:
[GPECODE=vb]Sub abc()
Dim i, C
C = 1
For i = 1 To 3
With Sheet1
.[BS2:BT10000].AutoFilter 1, i + 3
.[BS2:BT10000].AutoFilter 2, i + 3
.[A3:B10000].SpecialCells(12).Copy Sheet2.Cells(2, C)
End With
C = C + 3
Next
End Sub[/GPECODE]

1) Sao không cho i = 4 to 6 luôn nhỉ ??? cho bằng 1 tới 3 rồi lại........cộng 3. +-+-+-+

2) Dùng Filter rồi thì làm ơn trả lại hiện trường ban đầu chứ nhỉ ???
Híc

Quang_Hải · 9/8/14

concogia đã viết:
1) Sao không cho i = 4 to 6 luôn nhỉ ??? cho bằng 1 tới 3 rồi lại........cộng 3.
2) Dùng Filter rồi thì làm ơn trả lại hiện trường ban đầu chứ nhỉ ???
Híc

Bởi vậy cho nên đến giờ này mới chỉ có 2534 bài viết. Viết như anh đợi tới cóc mọc râu chưa lên sao.
Anh biết tính em mà, hỏi gì chứ. 1 bài trả lời ít nhất 2 lần mới xong.

Ba Tê · 9/8/14

concogia đã viết:
1) Sao không cho i = 4 to 6 luôn nhỉ ??? cho bằng 1 tới 3 rồi lại........cộng 3.
2) Dùng Filter rồi thì làm ơn trả lại hiện trường ban đầu chứ nhỉ ???
Híc

Code đó của quanghai1969 mà "đại ca".
Tác giả thấy trong code filter từ cột A:BT nên "hoảng lên", không xem kỹ dòng dưới.
Tui "bẻ cò" lại một chút thôi, còn lại là "rin" của quanghai1969.
-------------

quanghai1969 đã viết:
................
1 bài trả lời ít nhất 2 lần mới xong.

Nếu lọc 3 con số thì filter - copy -paste 3 lần, nếu lọc 1 - 10 thì 10 lần, ... hihi, ...
Sẽ sửa tiếp ít nhất 3 lần nữa

VetMini · 9/8/14

concogia đã viết:
1) Sao không cho i = 4 to 6 luôn nhỉ ??? cho bằng 1 tới 3 rồi lại........cộng 3
...

C cũng không cần. Nếu i = 4 to 6 thì C = i*3-11
Nếu i = 1 to 3 thì C = i*3 - 2

1986QV · 22/8/14

Ba Tê đã viết:
Kết quả chạy code của Quang Hải giống hệt kết quả bạn muốn có.
Ý bạn là sao?
Hay sửa code lại như vầy cho dễ hiểu:
[GPECODE=vb]Sub abc()
Dim i, C
C = 1
For i = 1 To 3
With Sheet1
.[BS2:BT10000].AutoFilter 1, i + 3
.[BS2:BT10000].AutoFilter 2, i + 3
.[A3:B10000].SpecialCells(12).Copy Sheet2.Cells(2, C)
End With
C = C + 3
Next
End Sub[/GPECODE]

Code em chỉnh sửa chút để lấy các giá trị lọc 3,4,5 mà chỉ lấy được giá trị 3,4 mà giá trị 5 không lấy là sao.

Sub abc()
Dim i, C
C = 1
For i = 1 To 2
With Sheet1
.[BS2:BT10000].AutoFilter 1, i + 2
.[BS2:BT10000].AutoFilter 2, i + 2
.[A3:B10000].SpecialCells(12).Copy Sheet2.Cells(2, C)
End With
C = C + 2
Next
End Sub

Các bác xem lỗi ở đâu chỉ giúp em.

Quang_Hải · 22/8/14

1986QV đã viết:
Code em chỉnh sửa chút để lấy các giá trị lọc 3,4,5 mà chỉ lấy được giá trị 3,4 mà giá trị 5 không lấy là sao.

Sub abc()
Dim i, C
C = 1
For i = 1 To 2
With Sheet1
.[BS2:BT10000].AutoFilter 1, i + 2
.[BS2:BT10000].AutoFilter 2, i + 2
.[A3:B10000].SpecialCells(12).Copy Sheet2.Cells(2, C)
End With
C = C + 2
Next
End Sub

Các bác xem lỗi ở đâu chỉ giúp em.

PHP:

Sub abc()
Dim i, C
C = 1
For i = 3 To 5
      With Sheet1
            .[BS2:BT10000].AutoFilter 1, i
            .[BS2:BT10000].AutoFilter 2, i
            .[A3:B10000].SpecialCells(12).Copy Sheet2.Cells(2, C)
      .AutoFilter 
      End With
      C = C + 2
Next
End Sub

HUYNHTIEN0202 · 23/8/14

quanghai1969 đã viết:

PHP:

Sub abc()
Dim i, C
C = 1
For i = 3 To 5
      With Sheet1
            .[BS2:BT10000].AutoFilter 1, i
            .[BS2:BT10000].AutoFilter 2, i
            .[A3:B10000].SpecialCells(12).Copy Sheet2.Cells(2, C)
      .AutoFilter 
      End With
      C = C + 2
Next
End Sub

Chào Anh
Lần đầu tham gia GPE em thấy file này hay nhưng không biết bài toán này làm cái gì
Anh co thể giải thích nội dung cho em biết để tham khảo thêm
Cám ơn anh nhiều

Quang_Hải · 23/8/14

HUYNHTIEN0202 đã viết:
Chào Anh
Lần đầu tham gia GPE em thấy file này hay nhưng không biết bài toán này làm cái gì
Anh co thể giải thích nội dung cho em biết để tham khảo thêm
Cám ơn anh nhiều

Chịu khó tìm mấy topic VBA cơ bản mà học, chứ trụi lủi kiến thức VBA thì giảng kiểu gì cũng không hiểu. Mà cái tật của mình thì không giải thích.

HUYNHTIEN0202 · 23/8/14

quanghai1969 đã viết:
Chịu khó tìm mấy topic VBA cơ bản mà học, chứ trụi lủi kiến thức VBA thì giảng kiểu gì cũng không hiểu. Mà cái tật của mình thì không giải thích.

Cám ơn anh
Anh cho em hỏi thêm được không
Hiện tại bài này qui định lộc điều kiện mặt định là 4,5,6
không biết mình có thể để điều kiện ở 1 ô nào đó rồi dùng list chọn xong thì nó loc

Quang_Hải · 23/8/14

HUYNHTIEN0202 đã viết:
Cám ơn anh
Anh cho em hỏi thêm được không
Hiện tại bài này qui định lộc điều kiện mặt định là 4,5,6
không biết mình có thể để điều kiện ở 1 ô nào đó rồi dùng list chọn xong thì nó loc

Bạn cần gì thì mở 1 topic rõ ràng, đính kèm file đủ thông tin cần thiết sẽ có người trợ giúp nếu có thể.
Đừng chen ngang rồi topic chẳng ra làm sao. Vậy nha.

HUYNHTIEN0202 · 23/8/14

quanghai1969 đã viết:
Bạn cần gì thì mở 1 topic rõ ràng, đính kèm file đủ thông tin cần thiết sẽ có người trợ giúp nếu có thể.
Đừng chen ngang rồi topic chẳng ra làm sao. Vậy nha.

em chĩ hỏi thêm 1 chút vậy thôi
em sẽ tạo file và gửi
Cám ơn anh đã chỉ

1986QV · 23/8/14

quanghai1969 đã viết:

PHP:

Sub abc()
Dim i, C
C = 1
For i = 3 To 5
      With Sheet1
            .[BS2:BT10000].AutoFilter 1, i
            .[BS2:BT10000].AutoFilter 2, i
            .[A3:B10000].SpecialCells(12).Copy Sheet2.Cells(2, C)
      .AutoFilter 
      End With
      C = C + 2
Next
End Sub

Anh Quanghai1969 xem có phải sai dòng này k?

.AutoFilter

Quang_Hải · 23/8/14

1986QV đã viết:
Anh Quanghai1969 xem có phải sai dòng này k?

.AutoFilter

Chắc vậy quá. edit code trực tiếp không để ý
Sửa thử lại thế này
.Parent.AutoFilter
***
Hình như cũng không phải. Dạo này sinh tật không test code luôn.
Chắc vầy quá
.Usedrange.AutoFilter

1986QV · 23/8/14

quanghai1969 đã viết:
Chắc vậy quá. edit code trực tiếp không để ý
Sửa thử lại thế này
.Parent.AutoFilter
***
Hình như cũng không phải.

Nếu thay đó vao báo lỗi 438
nếu bỏ đi chạy ok lắm anh Quanghai1969coi.

Quang_Hải · 23/8/14

1986QV đã viết:
Nếu thay đó vao báo lỗi 438
nếu bỏ đi chạy ok lắm anh Quanghai1969coi.

Xem lại bài 24. Nếu bỏ hẳn thì sau khi kết thúc code bảng tính sẽ còn bị chế độ autofilter xấu òm
Vụ này phải đổ thừa anh Cò, tại anh Cò kêu trả về nguyên thủy nên mới sinh ra bệnh lung tung.
Thấy mọi người hay viết vầy chắc cùng được

.ShowAllData

1986QV · 23/8/14

OK. Thanks anh Quang hai1969

Lọc theo điều kiện và copy sheet qua sheet (1 người xem)

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

Thành viên hoạt động

File đính kèm

Cạo Rồi Khỏi Gội

Thành viên hoạt động

Thành viên gạo cội

Thành viên hoạt động

Thành viên gạo cội

Cạo Rồi Khỏi Gội

File đính kèm

Thành viên hoạt động

Thành viên gạo cội

Thành viên hoạt động

Cạo Rồi Khỏi Gội

File đính kèm

Gội rồi mới Cạo

Thành viên gạo cội

Cạo Rồi Khỏi Gội

Đang đi tìm hòn đá

Thành viên hoạt động

Thành viên gạo cội

Thành viên chính thức

Thành viên gạo cội

Thành viên chính thức

Thành viên gạo cội

Thành viên chính thức

Thành viên hoạt động

Thành viên gạo cội

Thành viên hoạt động

Thành viên gạo cội

Thành viên hoạt động

Thời gian đếm ngược.