2 different excel workbooks

[Shaun]

I am trying to connect 2 different excel workbooks to 2 different tabs but and getting errors in VBA when the code executes, here are the macros, how do i get these to not cause an error.

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Columns.Count <> 16 Then Exit Sub
Application.EnableEvents = False
With ThisWorkbook
If .Sheets("Data").Range("T2").Value <> 1 Then
   .Sheets("Data").Range("T3").Value = 0
End If
If .Sheets("Data").Range("T2").Value = 1 And .Sheets("Data").Range("T3").Value <> 1 Then
   .Sheets("Results").Range("P" & Rows.Count).End(xlUp).Offset(1, 0).Resize(1, 4).Value = Sheets("Trading").Range("R9:U9").Value
   .Sheets("Data").Range("T3").Value = 1
End If
End With
Application.EnableEvents = True
End Sub


Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Columns.Count <> 16 Then Exit Sub
Application.EnableEvents = False
With ThisWorkbook
If .Sheets("Race1").Range("T2").Value <> 1 Then
   .Sheets("Race1").Range("T3").Value = 0
End If
If .Sheets("Race1").Range("T2").Value = 1 And .Sheets("Race1").Range("T3").Value <> 1 Then
   .Sheets("Results1").Range("H" & Rows.Count).End(xlUp).Offset(1, 0).Resize(1, 4).Value = Sheets("Control").Range("P9:S9").Value
   .Sheets("Race1").Range("T3").Value = 1
End If
End With
Application.EnableEvents = True
End Sub


[alrodopial]

I don't see the dot at

Code: Select all

= Sheets("Trading").Range("R9:U9").Value

is it required?

[Shaun]

It is part of the line above it, but am i supposed to include a . because it refers to a sheet or only at the beginning of a new line of code with sheet?

[alrodopial]

Code: Select all

With ThisWorkbook
If .Sheets("Data").Range("T2").Value <> 1 Then
................

in the code the dot means:

"If ThisWorkbook.Sheets("Data").Range("T2").Value <> 1 Then"
it's a kind of abbreviation

you know your code so check if it is important to be there
check if the errors you are getting relate to it

[alrodopial]

you are using two different workbooks (and not in the same workbook two different worksheets) so in theory you wont get errors from data interfering each other. What kind of errors are you getting?

[Shaun]

Yeah, you are correct, that missing dot was my issue.

[alrodopial]

note that both pieces of code you provided in the first post have missing dot