VBA IF Function Help

[Bolsa68]

Hello,

What would be the proper way to write the following in VBA language?

if Window1,Sheet1,Range A1 = Window2,Sheet2,Range A2 then
exit sub
end if

What I am trying to do is a macro that if a cell in a workbook is the same as another cell in a different workbook, the code will exit. The cells that I am comparing are a time stamp that looks like this: 13-Apr-2016 10:00:09 AM AST
Any help would be greatly appreciated!

 

[Fishboy]

Hello,

What would be the proper way to write the following in VBA language?

if Window1,Sheet1,Range A1 = Window2,Sheet2,Range A2 then
exit sub
end if

What I am trying to do is a macro that if a cell in a workbook is the same as another cell in a different workbook, the code will exit. The cells that I am comparing are a time stamp that looks like this: 13-Apr-2016 10:00:09 AM AST
Any help would be greatly appreciated!

Hi Bolsa68, welcome to the boards.

It should be something simple along these lines. Be sure to amend the bold red part with the correct name of the second workbook:

Sub Check()
' Defines variables
Dim wb1 As Workbook, wb2 As Workbook


' Defines which workbook is which
Set wb1 = ThisWorkbook
Set wb2 = "The Other Workbook Name.xlsx"


' If the value of Sheet1 A1 of workbook 1 matches Sheet2 A2 of workbook 2 then...
If wb1.Sheets("Sheet1").Range("A1").Value = wb2.Sheets("Sheet2").Range("A2").Value Then
    ' Exit the macro
    Exit Sub
End If


End Sub

 

[Bolsa68]

Thank you so much for taking of your time and helping me out!
Cheers.

 

[Fishboy]

Thank you so much for taking of your time and helping me out!
Cheers.

No problem, happy to help