Snasui Excel Forum

Code: Select all

Sub Record()
    Dim i&
    With ActiveSheet
        .Unprotect Password:="3890" '<==UnProtect
        If .Range("R2") <> "" And .Range("D2") <> "" _
            And .Range("K2") <> "" And .Range("E4") <> "" _
            And .Range("N4") <> "" And .Range("AE4") <> "" _
            And .Range("C6") <> "" _
            And .Range("N6") <> "" And .Range("AE6") <> "" _
            And .Range("E8") <> "" And .Range("S8") <> "" Then
        i = .Range("A" & .Rows.Count).End(xlUp).Offset(1, 0).Row
        .Range("a" & i).Value = .Range("a11").Value
        .Range("b" & i).Value = .Range("b11").Value
        .Range("c" & i).Value = .Range("E11").Value
        .Range("d" & i).Value = .Range("W11").Value
        .Range("e" & i).Value = .Range("AH11").Value
        .Range("F" & i).Value = .Range("AS11").Value
        .Range("G" & i).Value = .Range("AX11").Value
        .Range("H" & i).Value = .Range("BC11").Value
               .Range("K2,S8") _
               .SpecialCells(xlCellTypeConstants).ClearContents
            MsgBox ("ºÑ¹·Ö¡¢éÍÁÙÅàÃÕºÃéÍÂ")
        Else
            MsgBox ("¤Ø³ÂѧãÊè¢éÍÁÙÅäÁè¤Ãº")
            .Range("R4").Activate
        End If
        .Protect Password:="3890" '<==Protect Again
    End With
End Sub

Code: Select all

Sub Record()
    Dim i&
    With ActiveSheet
        .Unprotect Password:="3890" '<==UnProtect
        If .Range("R2") <> "" And .Range("D2") <> "" _
            And .Range("K2") <> "" And .Range("E4") <> "" _
            And .Range("N4") <> "" And .Range("AE4") <> "" _
            And .Range("D7") <> "" And .Range("C6") <> "" _
            And .Range("N6") <> "" And .Range("AE6") <> "" _
            And .Range("E8") <> "" And .Range("S8") <> "" Then
        i = .Range("A" & .Rows.Count).End(xlUp).Offset(1, 0).Row
        .Range("a" & i).Value = .Range("a11").Value
        .Range("b" & i).Value = .Range("b11").Value
        '.......
        '.......
        
        .Range("K2,S8") _
               .SpecialCells(xlCellTypeConstants).ClearContents
            MsgBox ("บันทึกข้อมูลเรียบร้อย")
        Else
            MsgBox ("คุณยังใส่ข้อมูลไม่ครบ")
            .Range("R4").Activate
        End If
        .Protect Password:="3890" '<==Protect Again
    End With
End Sub

Code: Select all

.Range("A11:BH11").Copy .Range("A" & .Rows.Count) _
        .End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues _
        .Range("K2,S8").SpecialCells(xlCellTypeConstants).ClearContents

Code: Select all

.Range("A11:BH11").Copy 
.Range("A" & .Rows.Count) _
        .End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
.Range("K2,S8").SpecialCells(xlCellTypeConstants).ClearContents

Code: Select all

Sub Record()
    With ActiveSheet
        .Unprotect Password:="3890" '<==UnProtect
        If .Range("R2") <> "" And .Range("D2") <> "" _
            And .Range("K2") <> "" And .Range("E4") <> "" _
            And .Range("N4") <> "" And .Range("AE4") <> "" _
            And .Range("C6") <> "" _
            And .Range("N6") <> "" And .Range("AE6") <> "" _
            And .Range("E8") <> "" And .Range("S8") <> "" Then
	.Range("A11:BH11").Copy .Range("A" & .Rows.Count) _
        .End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues _
        .Range("K2,S8").SpecialCells(xlCellTypeConstants).ClearContents
            MsgBox ("ºÑ¹·Ö¡¢éÍÁÙÅàÃÕºÃéÍÂ")
        Else
            MsgBox ("¤Ø³ÂѧãÊè¢éÍÁÙÅäÁè¤Ãº")
            .Range("R4").Activate
        End If
        .Protect Password:="3890" '<==Protect Again
    End With
End Sub

Code: Select all

.Range("A" & Rows.Count) _
    .End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues

Code: Select all

Sub Record()
    With ActiveSheet
        .Unprotect Password:="3890" '<==UnProtect
        If .Range("R2") <> "" And .Range("D2") <> "" _
            And .Range("K2") <> "" And .Range("E4") <> "" _
            And .Range("N4") <> "" And .Range("AE4") <> "" _
            And .Range("D7") <> "" And .Range("C6") <> "" _
            And .Range("N6") <> "" And .Range("AE6") <> "" _
            And .Range("E8") <> "" And .Range("S8") <> "" Then
        .Range("A11", "BH11").Copy .Range("A" & .Rows.Count) _
            .End(xlUp).Offset(1, 0)
        .Range("K2,S8") _
               .SpecialCells(xlCellTypeConstants).ClearContents
            MsgBox ("บันทึกข้อมูลเรียบร้อย")
        Else
            MsgBox ("คุณยังใส่ข้อมูลไม่ครบ")
            .Range("R4").Activate
        End If
        .Protect Password:="3890" '<==Protect Again
    End With
End Sub

Code: Select all

Sub Record()
ActiveSheet.Unprotect Password:="3890" '<==UnProtect
If Range("R2") <> "" And Range("D2") <> "" And Range("K2") <> "" And Range("E4") <> "" And Range("N4") <> "" And Range("AE4") <> "" And Range("D7") And Range("C6") And Range("N6") And Range("AE6") And Range("E8") And Range("S8") Then
.Range("A11:BC11") _
.Range("BH11").Copy
.Range("A" & Rows.Count) _
    .End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
.Range("K2,S8") _
       .SpecialCells(xlCellTypeConstants).ClearContents
    MsgBox ("ºÑ¹·Ö¡¢éÍÁÙÅàÃÕºÃéÍÂ")
Else
    MsgBox ("¤Ø³ÂѧãÊè¢éÍÁÙÅäÁè¤Ãº")
    Range("R4").Activate
End If
ActiveSheet.Protect Password:="3890" '<==Protect Again
End Sub