Are you thinking about creating an Amazon Web Services account for your business? Not sure where to start? In this course you’ll get an overview of the history of AWS and take a tour of their user interface.
Private Sub Worksheet_Change(ByVal Target As Range) 'Description: 'Upon a change in the worksheet, this process is run. If the changed cell happens to be in one 'of the specified columns(A-E), then createTable is called to update the database type list in Backup Data 'Dependencies 'None, because it works off the worksheet object and reacts to events Dim KeyCells As Range Dim x As Range ' The variable KeyCells contains the cells that will ' cause an alert when they are changed. Set KeyCells = Range("A:F") Application.ScreenUpdating = False If (Cells(1, 1).Value = "Established Rate Schedules") Then If Not Application.Intersect(KeyCells, Range(Target.Address)) _ Is Nothing Then If ((Target.Column = 4) And (Target.Value <> "") And (Target.Offset(0, 1).Value <> "")) Then If (MsgBox("Would you like to overwrite the data in Annual Salary?", vbYesNo) = vbYes) Then Target.Offset(0, 1).ClearContents Else Target.ClearContents End If ElseIf ((Target.Column = 5) And (Target.Value <> "") And (Target.Offset(0, -1).Value <> "")) Then If (MsgBox("Would you like to overwrite the data in Total Rate?", vbYesNo) = vbYes) Then Target.Offset(0, -1).ClearContents Else Target.ClearContents End If End If Set x = ActiveCell Call createTable Sheets("Rate Schedules").Select x.Select End If End If Application.ScreenUpdating = True End Sub