Snasui Excel Forum

Code: Select all

Sub SaveHistory()
On Error Resume Next
MyVar = [Source]
[Target] = MyVar
End Sub
Sub SaveCash()
    On Error Resume Next
    MyVar = [Source2]
    [Target2] = MyVar
End Sub
Sub InputDBF()
    On Error Resume Next
    MyVar = Range("inputrow")
    Range("inputcustomer") = MyVar
End Sub


Sub ResetIndexFML()
    On Error Resume Next
    Range("V4").Select
    Selection.Copy
    Range("B4").Select
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Range("V5").Select
    Selection.Copy
    Range("B5").Select
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Range("V6").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("B6").Select
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Range("B2:C3").Select
    Selection.ClearContents
    Range("B8:B13").Select
    Selection.ClearContents
    Range("C9:C13").Select
    Selection.ClearContents
    Range("B17:B19").Select
    Selection.ClearContents
    Range("B3").Select
End Sub

Sub ClickInput()
    ActiveSheet.Unprotect

    Call InputDBF
    Call SaveHistory
    Call SaveCash
    Call ResetIndexFML
    
    ActiveSheet.Protect
End Sub