Giúp e lập 1 hàm tự động copy có điều kiện

[buihuy96]

Em có 1 gía trị "x" trong column A giờ khi cứ có bất kỳ giá trị x này ở bất kỳ dòng nào trong A xuất hiện thì ở dòng tương ứng bên column B trong cùng sheet cũng sẽ bằng x. Mong các bác giúp e, viết để auto caculate ạ. Em cảm ơn các bác nhiều

 

[phulien1902]

Em có 1 gía trị "x" trong column A giờ khi cứ có bất kỳ giá trị x này ở bất kỳ dòng nào trong A xuất hiện thì ở dòng tương ứng bên column B trong cùng sheet cũng sẽ bằng x. Mong các bác giúp e, viết để auto caculate ạ. Em cảm ơn các bác nhiều

Bạn thử:

Dim Rng
    For Each Rng In Range("A2", Range("A" & Rows.Count).End(3))
        If Rng.Value = "x" Then
            Rng.Offset(, 1) = "x"
        End If
    Next

 

[VetMini]

Bạn thử:

Dim Rng
    For Each Rng In Range("A2", Range("A" & Rows.Count).End(3))
        If Rng.Value = "x" Then
            Rng.Offset(, 1) = "x"
        End If
    Next

Bạn nhanh tay quá. Trước khi viết, bạn không hề thắc mắc muốn hỏi thớt "auto calculate" là ý thế nào sao?

 

[AutoReply]

Bạn nhanh tay quá. Trước khi viết, bạn không hề thắc mắc muốn hỏi thớt "auto calculate" là ý thế nào sao?

Bạn nhanh tay quá. Thớt chỉ muốn caculate chứ đâu có muốn calculate đâu.

 

[VetMini]

Bạn nhanh tay quá. Thớt chỉ muốn caculate chứ đâu có muốn calculate đâu.

Bạn còn nhanh hơn, cắt mất "auto" của người ta. Hay là do kỵ huý ?