Excel Forum

Code: Select all

Sub Record()
    Dim i&
    With ActiveSheet
        .Unprotect Password:="3890" '<==UnProtect
        If .Range("V2") <> "" And .Range("AC2") <> "" _
            And .Range("B2") <> "" And .Range("B8") <> "" _
            And .Range("B4") <> "" And .Range("L4") <> "" _
            And .Range("AE4") <> "" And .Range("AA8") <> "" _
            And .Range("B6") <> "" And .Range("L6") <> "" _
            And .Range("AC2") <> "" And .Range("AI8") <> "" _
            And .Range("AI8") <> "" _
            And .Range("AA6") <> "" And .Range("P8") <> "" Then
        i = .Range("A" & .Rows.Count).End(xlUp).Offset(1, 0).Row
        .Range("a" & i).Value = .Range("a12").Value
        .Range("b" & i).Value = .Range("b12").Value
        .Range("e" & i).Value = .Range("e12").Value
        .Range("H" & i).Value = .Range("H12").Value
        .Range("Q" & i).Value = .Range("Q12").Value
        .Range("Z" & i).Value = .Range("Z12").Value
        .Range("ak" & i).Value = .Range("ak12").Value
        .Range("av" & i).Value = .Range("av12").Value
        .Range("ba" & i).Value = .Range("ba12").Value
        .Range("bf" & i).Value = .Range("bf12").Value
        .Range("bk" & i).Value = .Range("bk12").Value
        .Range("bp" & i).Value = .Range("bp12").Value
        .Range("bu" & i).Value = .Range("bu12").Value
        .Range("bz" & i).Value = .Range("bz12").Value
               .Range("V2,B8,J2,B4,L4,AE4,B6,L6,AA6,P8,AA8,AC2,AI8") _
               .SpecialCells(xlCellTypeConstants).ClearContents
            MsgBox ("ºÑ¹·Ö¡¢éÍÁÙÅàÃÕºÃéÍÂ")
        Else
            MsgBox ("¤Ø³ÂѧãÊè¢éÍÁÙÅäÁè¤Ãº")
            .Range("R4").Select
        End If
        .Protect Password:="3890" '<==Protect Again
    End With
End Sub