Finde række hvor knap er placeret
Jeg fylder noget data i flere range's , hvor data i hver ny range indsættes i en ny række vha. en userform.Til venstre for hver nyindsat range/række sættes en knap vha. flg. kode indeholdt i userformen:
'Delete button
Dim shp As Object
Dim dblLeft As Double
Dim dblTop As Double
Dim dblWidth As Double
Dim dblHeight As Double
With ActiveSheet
dblLeft = .Columns("A:A").Left + 3 'All buttons have same Left position
dblWidth = .Columns("A:A").Width - 6 'All buttons have same Width
dblHeight = ActiveCell.Height - 6 'Set Height to height of row
dblTop = ActiveCell.Top + 3 'Set Top top of row
ActiveCell.Offset(0, -1).Select
Set shp = .Buttons.Add(dblLeft, dblTop, dblWidth, dblHeight)
shp.Characters.Text = "Slet"
shp.Name = "sletteknap " & LoebeNr
Debug.Print shp.Name
End With
Nu vil jeg gerne finde referencen til den celle der ligger under en vilkårligt valgt knap, antallet af knapper er dynamisk og knappen skal bruges til at slette den linie der ligger under knappen, jeg har søgt længe både på Eksperten og nettet, men jeg kan ikke lige finde det jeg skal bruge.
På forhånd tak
Mvh . Jens