I have a couple of questions about shapes including counting the specific text in them. I have a code that I was helped with some time ago for moving shapes to specific cells. What I want to do is instead of moving it , when click on I want it to copy and paste it into the cell that I select with the mouse. Here is my current code for just moving the shape.
Sheet 1
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Ob Is Nothing Then
Ob.Left = Target.Left - Ob.Width / 2 + Target.Width / 2
Ob.Top = Target.Top - Ob.Height / 2 + Target.Height / 2
End If
Set Ob = Nothing
End Sub
Module 1
Option Explicit
Public Ob As Object
Sub oMove()
Application.ScreenUpdating = False
Set Ob = ActiveSheet.Shapes(Application.Caller)
Application.ScreenUpdating = True
End Sub
I will have a bunch of the same shapes with different text in them as selection sitting on the page. My intent is to place the specific ones in cells across my sheet under a date range that runs horizontal. I want to be able to count in each row the specific text. I want to use shapes instead of having spreadsheet with drop downs in over a 1000 cells. Can anyone help on this ?
Thank you
Sheet 1
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Ob Is Nothing Then
Ob.Left = Target.Left - Ob.Width / 2 + Target.Width / 2
Ob.Top = Target.Top - Ob.Height / 2 + Target.Height / 2
End If
Set Ob = Nothing
End Sub
Module 1
Option Explicit
Public Ob As Object
Sub oMove()
Application.ScreenUpdating = False
Set Ob = ActiveSheet.Shapes(Application.Caller)
Application.ScreenUpdating = True
End Sub
I will have a bunch of the same shapes with different text in them as selection sitting on the page. My intent is to place the specific ones in cells across my sheet under a date range that runs horizontal. I want to be able to count in each row the specific text. I want to use shapes instead of having spreadsheet with drop downs in over a 1000 cells. Can anyone help on this ?
Thank you