Excel Forum

Code: Select all

Sub Record()
    Dim i&
    With ActiveSheet
        .Unprotect Password:="3890" '<==UnProtect
            If .Range("R4") <> "" And .Range("X4") <> "" _
            And .Range("F4") <> "" And .Range("P9") <> "" _
            And .Range("F5") <> "" And .Range("F6") <> "" _
            And .Range("F7") <> "" And .Range("G10") <> "" _
            And .Range("G11") <> "" And .Range("T5") <> "" _
            And .Range("T6") <> "" And .Range("G12") <> "" _
            And .Range("G13") <> "" And .Range("F15") <> "" _
            And .Range("H14") <> "" And .Range("T7") <> "" 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