help me! lọc và ghi dữ liệu sang một sheet khác trong một file

[duynguyenkk]

dear all
mình có một file tổng hợp vật tư ở sheet CONG TRINH bây giờ mình muốn lọc vật tư kính ra và ghi vào sheet TONG HOP KINH
nhờ tất cả mọi người chỉ giáo giúp mình với
https://drive.google.com/file/d/0B075UkAw9fa3VTlDWlNjc0MzcWc/view?usp=sharing

 

[giaiphap]

File đâu giúp bạn, bạn chú ý tiêu đề bài viết của mình.

 

[duynguyenkk]

file trong link đó bạn

 

[giaiphap]

File của bạn ở Sheet CONG TRINH cột Tên NVL có ô có ô không, rồi lấy tiêu chí nào để lọc bác.

 

[duynguyenkk]

File của bạn ở Sheet CONG TRINH cột Tên NVL có ô có ô không, rồi lấy tiêu chí nào để lọc bác.
Tên NVL + Mã NVL làm tiêu chí đó bạn, ở Tên NVL=Kính + Mã NVL= Mã NVL Kính thì coppy kích thước và cắt góc
cám ơn bạn đã quan tâm đến bài của mình

 

[Ba Tê]

File của bạn ở Sheet CÔNG TRÌNH cột Tên NVL có ô có ô không, rồi lấy tiêu chí nào để lọc bác.
Tên NVL + Mã NVL làm tiêu chí đó bạn, ở Tên NVL=Kính + Mã NVL= Mã NVL Kính thì coppy kích thước và cắt góc
cám ơn bạn đã quan tâm đến bài của mình

Sheet CÔNG TRÌNH ô A38 là "Kính", ô A39 là rỗng, có coi nó là "Kính" không?
Bảo nó hiểu là "như trên" hay sao? Nếu là "như trên" thì dòng 40 cũng là "kính" trong khi cả dòng trống?
Tốt nhất là Excel không để trống kiểu "như trên".

 

[duynguyenkk]

có đó bác
dòng 40 lại qua 1 loại khác đó bác
ở dòng có Mã NVL đều là dữ liệu lọc đó bác

 

[duynguyenkk]

Mã NVL cũng là 1 tiêu chí để lọc nhưng nó thay đổi nên em không biết lọc thế nào đấy bác

 

[Ba Tê]

có đó bác
dòng 40 lại qua 1 loại khác đó bác
ở dòng có Mã NVL đều là dữ liệu lọc đó bác

Nếu dùng VBA xử cũng được, nhưng thấy có "help me!", "dear all" tôi hổng khoái.Chờ một chút chắc có người giúp bạn thôi.

 

[duynguyenkk]

Nếu dùng VBA xử cũng được, nhưng thấy có "help me!", "dear all" tôi hổng khoái.Chờ một chút chắc có người giúp bạn thôi.
cảm ơn bác nhiều nhé

 

[Ba Tê]

Nếu dùng VBA xử cũng được, nhưng thấy có "help me!", "dear all" tôi hổng khoái.Chờ một chút chắc có người giúp bạn thôi.
cảm ơn bác nhiều nhé

Không làm gì sao dám nhận "cảm ơn".

Public Sub GPE_KINH()
Dim sArr(), dArr(), I As Long, K As Long, R As Long, Tem As String, DK As String
DK = "Kính"
With Sheets("CONG TRINH")
    sArr = .Range("A3", .Range("B60000").End(xlUp)).Resize(, 8).Value
    R = UBound(sArr)
End With
ReDim dArr(1 To R, 1 To 7)
For I = 1 To R
    If sArr(I, 1) <> Empty Then Tem = sArr(I, 1)
    If Tem = DK Then
        If sArr(I, 2) <> Empty Then
            K = K + 1
            dArr(K, 1) = K
            dArr(K, 2) = sArr(I, 2):    dArr(K, 3) = Tem
            dArr(K, 4) = sArr(I, 8):    dArr(K, 5) = sArr(I, 5)
            dArr(K, 6) = sArr(I, 4):    dArr(K, 7) = sArr(I, 6)
        End If
    End If
Next I
With Sheets("TONG HOP KINH")
    .Range("A2:G1000").ClearContents
    .Range("A2:G2").Resize(K) = dArr
End With
End Sub

 

[duynguyenkk]

Không làm gì sao dám nhận "cảm ơn".

Public Sub GPE_KINH()
Dim sArr(), dArr(), I As Long, K As Long, R As Long, Tem As String, DK As String
DK = "Kính"
With Sheets("CONG TRINH")
    sArr = .Range("A3", .Range("B60000").End(xlUp)).Resize(, 8).Value
    R = UBound(sArr)
End With
ReDim dArr(1 To R, 1 To 7)
For I = 1 To R
    If sArr(I, 1) <> Empty Then Tem = sArr(I, 1)
    If Tem = DK Then
        If sArr(I, 2) <> Empty Then
            K = K + 1
            dArr(K, 1) = K
            dArr(K, 2) = sArr(I, 2):    dArr(K, 3) = Tem
            dArr(K, 4) = sArr(I, 8):    dArr(K, 5) = sArr(I, 5)
            dArr(K, 6) = sArr(I, 4):    dArr(K, 7) = sArr(I, 6)
        End If
    End If
Next I
With Sheets("TONG HOP KINH")
    .Range("A2:G1000").ClearContents
    .Range("A2:G2").Resize(K) = dArr
End With
End Sub
em thử thành công rồi bác ah
em biết bác sẽ giúp nên em cảm ơn trước đó mà

 

[giaiphap]

Nếu bạn dùng Excel 2007 trở lên có thể tham khảo bằng cách dùng công thức cho cột phụ.

 

[duynguyenkk]

Nếu bạn dùng Excel 2007 trở lên có thể tham khảo bằng cách dùng công thức cho cột phụ.

mình thích cách của bạn
cám ơn bạn nhiều

 

[duynguyenkk]

Public Sub GPE_KINH()
Dim sArr(), dArr(), I As Long, K As Long, R As Long, Tem As String, DK As String
DK = "Kính"
With Sheets("CONG TRINH")
    sArr = .Range("A3", .Range("B60000").End(xlUp)).Resize(, 8).Value
    R = UBound(sArr)
End With
ReDim dArr(1 To R, 1 To 7)
For I = 1 To R
    If sArr(I, 1) <> Empty Then Tem = sArr(I, 1)
    If Tem = DK Then
        If sArr(I, 2) <> Empty Then
            K = K + 1
            dArr(K, 1) = K
            dArr(K, 2) = sArr(I, 2):    dArr(K, 3) = Tem
            dArr(K, 4) = sArr(I, 8):    dArr(K, 5) = sArr(I, 5)
            dArr(K, 6) = sArr(I, 4):    dArr(K, 7) = sArr(I, 6)
        End If
    End If
Next I
With Sheets("TONG HOP KINH")
    .Range("A2:G1000").ClearContents
    .Range("A2:G2").Resize(K) = dArr
End With
End Sub

Nhờ Bác Ba Tê dịch giúp em đoạn code với