When I Click cell C8, I should see the command button shown in E8 not otherwise via vba coding

[krunal123]

When I Click cell C8, I should see the command button shown in E8 not otherwise via vba coding.

i was follow this code but not working pleased help me :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Me.Range("C8")) Is Nothing Then
Me.Shapes("CommandButton1").Visible = True
Else
Me.Shapes("CommandButton1").Visible = False
End If
End Sub

 

[Jimmypop]

Hi there

Try the below...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Me.Range("C8")) Is Nothing Then
ActiveSheet.Shapes.Range(Array("CommandButton1")).Visible = True
Else
ActiveSheet.Shapes.Range(Array("CommandButton1")).Visible = False
End If
End Sub

 

[krunal123]

Hi there

Try the below...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Me.Range("C8")) Is Nothing Then
ActiveSheet.Shapes.Range(Array("CommandButton1")).Visible = True
Else
ActiveSheet.Shapes.Range(Array("CommandButton1")).Visible = False
End If
End Sub

Error Showing Sir , pleased Help

 

[Jimmypop]

You have two Worksheet_Change Events...You can only have one... so basically you need too:

In your original code replace

If Not Intersect(Target, Me.Range("C8")) Is Nothing Then
Me.Shapes("CommandButton1").Visible = True
Else
Me.Shapes("CommandButton1").Visible = False
End If

with

If Not Intersect(Target, Me.Range("C8")) Is Nothing Then
ActiveSheet.Shapes.Range(Array("CommandButton1")).Visible = True
Else
ActiveSheet.Shapes.Range(Array("CommandButton1")).Visible = False
End If

 

[krunal123]

You have two Worksheet_Change Events...You can only have one... so basically you need too:

In your original code replace

If Not Intersect(Target, Me.Range("C8")) Is Nothing Then
Me.Shapes("CommandButton1").Visible = True
Else
Me.Shapes("CommandButton1").Visible = False
End If

with

If Not Intersect(Target, Me.Range("C8")) Is Nothing Then
ActiveSheet.Shapes.Range(Array("CommandButton1")).Visible = True
Else
ActiveSheet.Shapes.Range(Array("CommandButton1")).Visible = False
End If

i was i was tired is Not working Sir

 

[Jimmypop]

Is the command button of type Button(Form Control) or Command Button(ActiveX Control) or is it a shape that you draw yourself? Please provide full code of WorkSheet Selection Change