VBA question

[drmidnight]

Hoping for help with this, which is probably obvious to someone who knows more vba than me. I am v much a beginner learning as i go. My excel sheet 1 is connected to an api, so using Private Sub Worksheet_Change(ByVal Target As Range), and With Target.Parent etc.
From sheet 1 I want to for example query the value of cell C2 in sheet 4 and if true place a different value in cell D1 in sheet 1. Have tried vba along the lines of but no joy with:
If Worksheets("Sheet4").Range("C2").Value = 10 Then
.Range("D1").Value = 15
End If

Project explorer is set to show sheet 4 as Sheet4 (Data)
Is this relevant. ? Would really appreciate help with the correct code on this.

 

[Micron]

If Sheet4 (Data) is what you see, Sheet4 is the codename property value for that sheet. It doesn't change if you change the sheet name/caption (what you see on the sheet tab). Use "Data" in this case.
AFAIK, you cannot start a line with .Range unless you've started a With block before that, otherwise vba does not know what .Range refers to.
You would have to write something like

With Worksheets.("Data")
  If .Range("C2"). = 10 Then .Range("D1") = 15
End With

or
If Worksheets("Data").Range("C2") = 10 Then Worksheets("Data").Range("C2") = 15
There are also other ways, such as creating a variable that you set to a sheet object. I usually don't do that if I'm only going to use the variable 1 or 2 times.

 

[Anthony47]

Can you show the complete code for your Sub Worksheet_Change?

(submitted 1 microsecond after Micron's suggestion)

 

[drmidnight]

Micron and ant, Many thnx for making time to reply. Yes My code is within a With block
With Target.Parent
' main code here
End With

So if c2 in my data sheet =10 then D1 in my active sheet will become = 15. Thie code will be
If Worksheets("Data").Range("C2") = 10 Then
.Range("D1").Value = 15
End If
It seems to work
Thnx again for your help.