Chọn ô có công thức mà đã có giá trị

[TamPhuc]

Chào các bạn,

Trong Sheet BTG, mình có range (A2:z15) trong đó cột B2:B15 là cột có công thức nhưng chỉ có B2:B7 là có giá trị. Các bạn cho mình xin code khi nhấn vào button 1 vùng chọn sẽ chọn từ B2 đến ô cuối cùng có giá trị trong cột B tức là ô B7 trong trường hợp này. Và sau đó sẽ chọn qua cột A, cột C,.. đến cột Z. Nói tóm lại là nhấn vào button 1, máy sẽ chọn từ A7 dến Z7.

Cám ơn

 

[ndu96081631]

Chào các bạn,

Trong Sheet BTG, mình có range (A2:z15) trong đó cột B2:B15 là cột có công thức nhưng chỉ có B2:B7 là có giá trị. Các bạn cho mình xin code khi nhấn vào button 1 vùng chọn sẽ chọn từ B2 đến ô cuối cùng có giá trị trong cột B tức là ô B7 trong trường hợp này. Và sau đó sẽ chọn qua cột A, cột C,.. đến cột Z. Nói tóm lại là nhấn vào button 1, máy sẽ chọn từ A7 dến Z7.

Cám ơn

Cái này rất.. phiền nếu dùng vòng lập... nhưng lại rất dể nếu dùng AutoFilter
Code như sau:

Sub Chon()
  With Range("A1").CurrentRegion
    .AutoFilter 2, "<>"
    .SpecialCells(12).Select
    .AutoFilter
  End With
End Sub

 

[TamPhuc]

Còn cách nào khác không bạn?

 

[ndu96081631]

Còn cách nào khác không bạn?

Cách thì thiếu gì, nhưng tôi nghĩ viết code kết hợp Autofilter như thế sẽ cho tốc độ nhanh nhất
Sao bạn lại hỏi Còn cách nào khác :
- Ý bạn muốn tìm hiểu thêm nhiều cách?
- Cách tôi đưa lên chưa đáp ứng được yêu cầu?
- Hay là.... ?
Xin nói rõ 1 chút !!!
Cách khác mà bạn có thể nghĩ đến đầu tiên đó là vòng lập... tuy nhiên tôi không ủng hộ cách này (quá chậm chạp)

 

[TamPhuc]

Cách thì thiếu gì, nhưng tôi nghĩ viết code kết hợp Autofilter như thế sẽ cho tốc độ nhanh nhất
Sao bạn lại hỏi Còn cách nào khác :
- Ý bạn muốn tìm hiểu thêm nhiều cách?
- Cách tôi đưa lên chưa đáp ứng được yêu cầu?
- Hay là.... ?
Xin nói rõ 1 chút !!!
Cách khác mà bạn có thể nghĩ đến đầu tiên đó là vòng lập... tuy nhiên tôi không ủng hộ cách này (quá chậm chạp)

Cách của bạn cũng được, nhưng khi click vào button, nó không chọn những column bị hide. Xin chỉ giúp. cám ơn nhiều