khi e dùng bộ lọc thì tìm dòng cuối n tính thế nào khi dòng khác đã đk lọc

Chào bạn, bạn có thể mô tả rõ hơn được không?

Là khi e dùng bộ lọc kết hợp với dòng cuối để e chèn phần chữ ký cuối trang ý. Nhưng khi dùng bộ lọc thì nó lại mất dòng nên phần chữ ký cuối trang e k hiện đk

Chào bạn ở đây bạn lấy dòng cuối + đơn vị nữa nhé ví dụ như sau

dòng cuối =20 chữ ký tại dòng 25 thì dòng cuối code sẽ như sau

dongcuoi = dongcuoi + 5 đê lấy thêm phần chữ ký

Chào cái phần chữ ký của bạn các bao nhiêu dòng vậy? bạn có thể đẩy file lên cho gitiho được không?

Sub chuky ()

dim dongcuoi as long

dongcuoi = sheet1.range(“a” & rows.count).end(xlup).row

range(“c” & dongcuoi + 1).value = “chu ký”

end sub

nhưng e dùng bộ lọc filter thì cái dòng chèn chữ ký vào n cũng đã bị lọc mất rồi

Chào bạn bạn đẩy file lên nhé, mình xem file rồi hỗ tợ bạn

Sub chuky()
    
    'tim dong cuoi khi dung filter
    Dim dongcuoi As Long
    dongcuoi = Sheet1.Range("a" & Rows.Count).End(xlUp).Row
    ' chen chu ky
    Range("c" & dongcuoi + 1).Value = "chu kư"
    
End Sub

tên sản phẩm	số lượng
chanh	12
bưởi	4
lê	16
đào	18
mận	5
quýt	9
cam	15
táo	7
ổi	8
		" chữ ký"

gửi file qua đâu ạ

Chào bạn bạn xem code sau nhé: với ô E1 là điều kiện lọc

Option Explicit
Sub Loccochuky()
    Dim DC As Long
    DC = Sheet1.Range("a" & Rows.Count).End(xlUp).Row
    ActiveSheet.Range("$A$1:$B$" & DC).AutoFilter Field:=2, Criteria1:=">=" & Range("e1").Value, _
    Operator:=xlAnd
End Sub

Thầy ơi của thầy mới là lọc còn e muồn chèn thêm phần chữ ký giống thầy. Để mỗi khi e lọc dữ liệu là lại chèn thêm phần chữ ký để e đỡ phải copy paste nk ý ah

Chào bạn bạn xem phần lọc của bạn là phần nào nhé nó có vượt quá dòng cuối không  ví dụ trên dòng cuối  mình là b9 và cữ ký từ dòng b11 trở đi

E hiểu rồi. Nhưng e vẫn còn một thắc mắc nữa h e nhập thêm số liệu thì e muốn lấy cố định dòng cuối đó không thay đổi khi filter thì lm thế nào ạ

chào bạn code dòng cuối sẽ tự thay đổi

Vâng đúng rùi ah nhưng e muốn code dòng cuối n không đổi khi filter ạ

Chào bạn, bạn thử code của mình nhé dòng cuối sẽ thay đổi theo độ dài như code của mình đang viết nhé. sẽ có kết quả như bạn mong ước đấy

https://drive.google.com/file/d/1GKLJ...

Chào bạn code của bạn sẽ nhưu sau:

Option Explicit
Sub Macro1()
Dim dongcuoi As Long
    dongcuoi = Sheet1.Range("a" & Rows.Count).End(xlUp).Row
    ActiveSheet.Range("$A$1:$B$" & dongcuoi).AutoFilter Field:=2, Criteria1:=">=" & Range("d1").Value, _
        Operator:=xlAnd
    Range("c" & dongcuoi + 4).Value = "ký ten"
    Range("c" & dongcuoi + 5).Value = "gitiho"
    
End Sub

Nhưng thầy ơi e lm y như thế nhưng dongcuoi+4 với dongcuoi+5 của e vẫn bị ẩn bình thường. Vì dòng e lọc n đến dòng 4 nhưng dòng lọc ẩn thì n ẩn mất dòng đến tận dòng 10 thì dongcuoi+4 với dongcuoi+5 n có đến dòng 8 với 9 lên n vẫn bị ẩn bình thường

Chào bạn phần chữ ký luôn ở cuối báo cáo nhé, nên để chắc chắn bạn có thể để là range("A"&dongcuoi +4) nhé.

E cảm ơn thầy

Chúc bạn học tốt cùng gitiho