Excel Forum

Code: Select all

Sub record()
Dim i&
    With ActiveSheet
        .Unprotect Password:="3890" '<==UnProtect
         If .Range("H6") <> "" And .Range("H4") <> "" _
            And .Range("H8") <> "" And .Range("G10") <> "" _
            And .Range("G12") <> "" And .Range("G14") <> "" _
            And .Range("G16") <> "" And .Range("G18") <> "" _
            And .Range("G20") <> "" And .Range("G22") <> "" _
            And .Range("24") <> "" Then
        i = .Range("q" & .Rows.Count).End(x1Up).Offset(5, 0).Row
        .Range("q" & i).Value = .Range("q2").Value
        .Range("r" & i).Value = .Range("r2").Value
        .Range("s" & i).Value = .Range("s2").Value
        .Range("t" & i).Value = .Range("t2").Value
        .Range("u" & i).Value = .Range("u2").Value
        .Range("v" & i).Value = .Range("v2").Value
        .Range("w" & i).Value = .Range("w2").Value
        .Range("x" & i).Value = .Range("x2").Value
        .Range("y" & i).Value = .Range("y2").Value
        .Range("z" & i).Value = .Range("z2").Value
        .Range("aa" & i).Value = .Range("aa2").Value
        .Range("ab" & i).Value = .Range("ab2").Value
               .Range("h8,G10,G12,G14,G16,H18,G20,G22,G24") _
               .SpecialCells(xlCellTypeConstants).ClearContents
            MsgBox ("ºÑ¹·Ö¡¢éÍÁÙÅàÃÕºÃéÍÂ")
        Else
            MsgBox ("¤Ø³ÂѧãÊè¢éÍÁÙÅäÁè¤Ãº")
            .Range("R4").Select
        End If
        .Protect Password:="3890" '<==Protect Again
    End With
End Sub