Good day,
I'm trying to match the value of 2 cells from one sheet to 2 column in another sheet. I can get to work with only one data but not both. The main point is to be able to look up previously entered information and avoid duplicate. here is the code i'm using to find duplicate.
Set sht = Sheets("Timesheet_Data")
Application.GoTo Reference:=Worksheets("Timesheet_data").Range("A1")
exist = Application.Application.Match("PeriodStart" & "InstName", sht.Range("A:B"), 0)
Set allData = Worksheets("Timesheet_data").Range("A:A")
If Not IsError(exist) Then
Dim Msg, Style, Title, Response
Msg = "Data already exists for this date. Would you like to overwrite the existing data?"
Style = vbYesNo + vbInformation + vbDefaultButton1
Title = "Existing Data Found"
Response = MsgBox(Msg, Style, Title)
If Response = vbYes Then
Rows(exist).Delete
Else
Sheets("Timesheet_data").Select
sht.Visible = False
Exit Sub
End If
End If
I'm trying to match the value of 2 cells from one sheet to 2 column in another sheet. I can get to work with only one data but not both. The main point is to be able to look up previously entered information and avoid duplicate. here is the code i'm using to find duplicate.
Set sht = Sheets("Timesheet_Data")
Application.GoTo Reference:=Worksheets("Timesheet_data").Range("A1")
exist = Application.Application.Match("PeriodStart" & "InstName", sht.Range("A:B"), 0)
Set allData = Worksheets("Timesheet_data").Range("A:A")
If Not IsError(exist) Then
Dim Msg, Style, Title, Response
Msg = "Data already exists for this date. Would you like to overwrite the existing data?"
Style = vbYesNo + vbInformation + vbDefaultButton1
Title = "Existing Data Found"
Response = MsgBox(Msg, Style, Title)
If Response = vbYes Then
Rows(exist).Delete
Else
Sheets("Timesheet_data").Select
sht.Visible = False
Exit Sub
End If
End If