VBA to position text box based on specific cell value

[platypus007]

Hi, I need help: I have only one row (lets call it row10) with values from 1 to 5. I need to automatically place text box to cell with value 3 (into row10).Now I have this VBA for exact cell...How can I do it?

Public Sub Area33A()
    MoveShape ActiveSheet.Shapes("kriz"), Range("v43")
End Sub

Private Sub MoveShape(ByVal shp As Excel.Shape, ByVal Target As Excel.Range)
    shp.IncrementLeft -(shp.TopLeftCell.Left - Target.Left)
    shp.IncrementTop -(shp.TopLeftCell.Top - Target.Top)
End Sub

 

[GWteB]

The below code searches within row 10 for any cell containing the value 2, stops at the first cell found and moves your shape.

Private Sub MoveShape(ByVal shp As Excel.Shape, ByVal Target As Excel.Range)
     shp.Top = Target.Top
     shp.Left = Target.Left
End Sub

Public Sub platypus007()
    Const cValueToSearchFor As Long = 2
    Dim c As Range
    For Each c In ActiveSheet.Rows(10)
        If c.Value = cValueToSearchFor Then
            MoveShape ActiveSheet.Shapes("kriz"), c
            Exit For
        End If
    Next
End Sub