Can't get my code to work
 

Hi all,
Could somebody look at the following code and, essentially, make it work
please?
Private Sub CommandButton2_Click()
Dim Target As Range
On Error GoTo ws_exit:
Application.EnableEvents = False
If Not Intersect(Target.Me.Range("L4:L10000")) Is Nothing Then
With Target
If .Value = "P" Then
.Offset(0, 1).Value = TextBox1.Text 'copies text box data to cell
End If
End With
'Cancel = True
End If

TIA

--
Traa Dy Liooar

Jock

Can't get my code to work
 

Hi
Replace
Intersect(Target.Me.Range("L4:L10000"))

with
Intersect(Target, Me.Range("L4:L10000"))

What does "Me" refer to here? Try leaving it out

Intersect(Target, Range("L4:L10000"))

regards
Paul

On Sep 7, 11:07*am, Jock wrote:
Hi all,
Could somebody look at the following code and, essentially, make it work
please?
Private Sub CommandButton2_Click()
Dim Target As Range
* * On Error GoTo ws_exit:
* * *Application.EnableEvents = False
* * * If Not Intersect(Target.Me.Range("L4:L10000")) Is Nothing Then
* * * * *With Target
* * * * * If .Value = "P" Then
* * * * * * *.Offset(0, 1).Value = TextBox1.Text 'copies text box data to cell
* * * * * *End If
* * * * End With
* * * 'Cancel = True
* * * End If

TIA

--
Traa Dy Liooar

Jock

Can't get my code to work
 

Hello Jock,

I am not sure that what I have answered is what you want. I have assumed
that CommandButton2 is on a worksheet because you have used Me with the range
and would have to be a worksheet. Your code does not show what range Target
represents. I have set it to Activecell just for the test.

You had a dot between Target and Me and should be a comma.


Private Sub CommandButton2_Click()
Dim Target As Range

Set Target = ActiveCell

On Error GoTo ws_exit:
Application.EnableEvents = False
If Not Intersect(Target, Me.Range("L4:L10000")) Is Nothing Then
With Target
If .Value = "P" Then
.Offset(0, 1).Value = TextBox1.Text 'copies text box data to cell
End If
End With
'Cancel = True
End If

ws_exit:
End Sub

--
Regards,

OssieMac


"Jock" wrote:

Hi all,
Could somebody look at the following code and, essentially, make it work
please?
Private Sub CommandButton2_Click()
Dim Target As Range
On Error GoTo ws_exit:
Application.EnableEvents = False
If Not Intersect(Target.Me.Range("L4:L10000")) Is Nothing Then
With Target
If .Value = "P" Then
.Offset(0, 1).Value = TextBox1.Text 'copies text box data to cell
End If
End With
'Cancel = True
End If

TIA

--
Traa Dy Liooar

Jock

Can't get my code to work
 

Got it.
Apologies for being vague, but used Ossies code and Paul's "lose the .me"
advice and it works now.
It is on a User Form btw
--
Traa Dy Liooar

Jock


" wrote:

Hi
Replace
Intersect(Target.Me.Range("L4:L10000"))

with
Intersect(Target, Me.Range("L4:L10000"))

What does "Me" refer to here? Try leaving it out

Intersect(Target, Range("L4:L10000"))

regards
Paul

On Sep 7, 11:07 am, Jock wrote:
Hi all,
Could somebody look at the following code and, essentially, make it work
please?
Private Sub CommandButton2_Click()
Dim Target As Range
On Error GoTo ws_exit:
Application.EnableEvents = False
If Not Intersect(Target.Me.Range("L4:L10000")) Is Nothing Then
With Target
If .Value = "P" Then
.Offset(0, 1).Value = TextBox1.Text 'copies text box data to cell
End If
End With
'Cancel = True
End If

TIA

--
Traa Dy Liooar

Jock