Nhờ chỉ dẫn cách ẩn các dòng trống

[tamrua]

Tám có bảng tính dạng:

A B C

1 STT HovaTen Namsinh
2 1 Nguyen A 1985
3 2 Hoang B 1982
4
5
6
7

Tám muốn khi bảng tính có dữ liệu đến dòng thứ 3 thì những dòng trống phía dưới sẽ được ẩn đi, chỉ chừa dòng 4.
Bây giờ tại dòng thứ 4 còn trống, mình nhập dữ liệu mới, thì sẽ hiện ra dòng trống thứ 5.
Tương tự vậy khi mình nhập dữ liệu vào dòng trống thứ 5 sẽ hiện ra dòng trống thứ 6....

Các anh ch5i giúp Tám với.
Cám ơn nhiều nhiều nhiều

 

[Hai Lúa Miền Tây]

Tám có bảng tính dạng:

A B C

1 STT HovaTen Namsinh
2 1 Nguyen A 1985
3 2 Hoang B 1982
4
5
6
7

Tám muốn khi bảng tính có dữ liệu đến dòng thứ 3 thì những dòng trống phía dưới sẽ được ẩn đi, chỉ chừa dòng 4.
Bây giờ tại dòng thứ 4 còn trống, mình nhập dữ liệu mới, thì sẽ hiện ra dòng trống thứ 5.
Tương tự vậy khi mình nhập dữ liệu vào dòng trống thứ 5 sẽ hiện ra dòng trống thứ 6....

Các anh ch5i giúp Tám với.
Cám ơn nhiều nhiều nhiều

Qua miêu tả của bạn mình thấy bạn nên dùng List cho nó tiện nhé. Chịu hong ? nếu chịu ta tiếp tục.

 

[tamrua]

Tám chưa biết cách nào 9ể làm và làm như thế nào. Nhờ domfootwear giúp dùm nha...
Cảm ơn nhiều nhiều

 

[Hai Lúa Miền Tây]

Tám chưa biết cách nào 9ể làm và làm như thế nào. Nhờ domfootwear giúp dùm nha...
Cảm ơn nhiều nhiều

Bạn vào Data\List, Create list là xong (Bạn từ từ ngâm cứu nhé), Bạn xem file nhé

 

[tamrua]

DOMFOOT ơi ! ý của Tám không phải như vậy rồi.
Điều Tám cần là:
Khi mình nhập tiếp dữ liệu vào dòng trống cuối cùng, sẽ tự hiện (unhide) dòng trống kế tiếp.
File Tám gửi kèm là hiển thị khi chưa nhập dữ liệu.
Khi mình tiếp tục nhập liệu vào dòng thứ 11 thì dòng thứ 12 sẽ tự hiện ra.

Nhờ DOMFOOT và các Anh chị nghiên cứu chỉ giùm với nha
Cám ơn nhiều nhiều nhiều

 

[Hai Lúa Miền Tây]

DOMFOOT ơi ! ý của Tám không phải như vậy rồi.
Điều Tám cần là:
Khi mình nhập tiếp dữ liệu vào dòng trống cuối cùng, sẽ tự hiện (unhide) dòng trống kế tiếp.
File Tám gửi kèm là hiển thị khi chưa nhập dữ liệu.
Khi mình tiếp tục nhập liệu vào dòng thứ 11 thì dòng thứ 12 sẽ tự hiện ra.

Nhờ DOMFOOT và các Anh chị nghiên cứu chỉ giùm với nha
Cám ơn nhiều nhiều nhiều

Bạn xem thử file coi đúng ý chưa nhé.

 

[tamrua]

Đúng là thuốc Tám đang thiếu... DOMFOOT hay quá.... cám ơn rất nhiều nhiều

 

[tamrua]

Về cơ bản, Tám đã giải quyết được vấn đề.
Tuy nhiên, nhờ DOMFOOT và các anh chị hướng dẫnt hêm 01 tí:
1/. Khi làm hiện được 01 dòng ẩn thì công thức của các cột F, M không được gán vào luôn, phải copy từng cell xuống; chỉ có cột A do trước dây đã kéo côgn thức tới dòng 50 nên khi hiện ra là có công thức sẵn. Vậy nếu không phải kéo công thức sẵn, làm cách nào để khi mình cho hiện dòng kế tiếp thì công thức sẽ được tự đ6ọng gán vào luôn ??
2/. Khi nhập dữ liệu vào cột B (khóa chính) của dòng thứ 5 (dòng cuối cùng) thì lập tức hiện dòng 6 --> đây là điều cần thiết. Nhưng khi xóa dữ liệu dòng 5 đi thì dòng 6 vẫn còn nguyên. Vậy cần phải làm sao để khi xóa dữ liệu thì dòng sẽ được ẩn lại ??

Rất mong nhận được hồi âm giúp đỡ của DOMFOOT và các anh chị

 

[Hai Lúa Miền Tây]

Về cơ bản, Tám đã giải quyết được vấn đề.
Tuy nhiên, nhờ DOMFOOT và các anh chị hướng dẫnt hêm 01 tí:
1/. Khi làm hiện được 01 dòng ẩn thì công thức của các cột F, M không được gán vào luôn, phải copy từng cell xuống; chỉ có cột A do trước dây đã kéo côgn thức tới dòng 50 nên khi hiện ra là có công thức sẵn. Vậy nếu không phải kéo công thức sẵn, làm cách nào để khi mình cho hiện dòng kế tiếp thì công thức sẽ được tự đ6ọng gán vào luôn ??
2/. Khi nhập dữ liệu vào cột B (khóa chính) của dòng thứ 5 (dòng cuối cùng) thì lập tức hiện dòng 6 --> đây là điều cần thiết. Nhưng khi xóa dữ liệu dòng 5 đi thì dòng 6 vẫn còn nguyên. Vậy cần phải làm sao để khi xóa dữ liệu thì dòng sẽ được ẩn lại ??

Rất mong nhận được hồi âm giúp đỡ của DOMFOOT và các anh chị

Bạn dùng code sau thử nhé:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("b8:b2000"), Target) Is Nothing And Target.Count = 1 Then
On Error Resume Next
    With Target
        Range("a8").AutoFill Destination:=Range("a8:a" & Target.Row)
        Range("f8").AutoFill Destination:=Range("f8:f" & Target.Row)
        Range("m8").AutoFill Destination:=Range("m8:m" & Target.Row)
        Range("$B$8:$B$" & [A5].Value + 8).EntireRow.Hidden = False
        Range("$B$" & [A5].Value + 9 & ":$B$65536").EntireRow.Hidden = True
    End With
  End If
 
End Sub

Bạn xem thử file nhe.

P/S: Lưu ý là mình giới hạn vùng nhập liệu từ B8:B2000, nếu muốn thêm, bớt thì bạn vào code chỉnh lại theo ý nhé.

 

[tamrua]

Cám ơn DOMFOOT nhiều nha
Lúc đầu Tám thêm đoạn Code vào... chạy bị báo lỗi...
HIx.... kỹ tra kỹ lại mới thấy mình dốt và gà quá không chịu xóa code cũ đi
Bây giờ thì đạt yêu cầu mỹ mãn rùi...
Thanks DOMFOOT nhiều lắm nha