If Range("M4M" & dongcuoi)Value = vbNull ThenRange("M4M" & dongcuoi)Value = Range("K4K"

If Range("M4:M" & dongcuoi).Value = vbNull Then

Range("M4:M" & dongcuoi).Value = Range("K4:K" & dongcuoi).Value

End If

Mình có dòng code này.

Nếu giả sử value ở cột M là rỗng, thì sẽ nhận giá trị của cột K.

Và nếu giá trị của cột K khác rỗng, thì keep giá chị. Nhưng mình với viết được 1 vế trên thì lỗi báo debug rồi.

3 câu trả lời

215 lượt xem

vỗ tay

Tran Thuy Lien 10:08 - Aug 20, 2021

chào bạn bạn thêm điều kiện else if nữa nhé.

vỗ tay

Tran Thuy Lien 11:08 - Aug 20, 2021

Chào thầy . Mình đã bổ sung rồi nhưng không ra.

Vẫn báo lỗi mismatch

If Range("M4:M" & dongcuoi).Value = vbNull Then

Range("M4:M" & dongcuoi).Value = Range("K4:K" & dongcuoi).Value

ElseIf Range("M4:M" & dongcuoi).Value <> "" Then

Range("M4:M" & dongcuoi).Value = Range("M4:M" & dongcuoi).Value

End If

vỗ tay

Tran Thuy Lien 12:08 - Aug 20, 2021

Chào bạn bạn thử code sau

Sub TestIsEmpty()
    If WorksheetFunction.CountA(Range("m4:m")) = 0 Then
        MsgBox "Empty"
        Range("M4:M" & dongcuoi).Value = Range("K4:K" & dongcuoi).Value
    Else
        Range("M4:M" & dongcuoi).Value = Range("M4:M" & dongcuoi).Value
    End If
End Sub

vỗ tay

Gói Hội viên Gitiho: Trọn bộ khoá học theo Khung năng lực

Gói Hội viên G-Skills: 03 kỹ năng bổ trợ thiết yếu

If Range("M4M" & dongcuoi)Value = vbNull ThenRange("M4M" & dongcuoi)Value = Range("K4K"

Câu hỏi liên quan