gå til bestemt celle
Jeg har et regneark med en kolonne med telefonnr., jeg har lavet en makro der kan finde telefonnr. eller fortælle, hvis telefonnr. ikke findes. Så langt så godt. Problemet er, at jeg gerne vil have makroen til at scrolle til den celle, hvor telefonnr. står, hvordan får jeg den til det?Private Sub OkFindPerson_Click()
' Sluk lige skærmen
Application.ScreenUpdating = False
Dim dTal As Double
With txtIndtastBox
If IsNumeric(.Text) = False Or Len(.Text) = 0 Then
.Text = ""
MsgBox "Det skal indtastes et telefonnr."
.SetFocus
Exit Sub
Else
'Teksten konverteres til et tal
dTal = CDbl(.Text)
End If
End With
'Tallet indsættes i celle
Range("N2").Value = dTal
If Range("N1").Value = 0 Then
MsgBox "Det indtastede telefonnr. findes ikke på listen"
Else
Range("N2").Select
Selection.Copy
Cells.find(What:=Range("N2"), After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Application.CutCopyMode = False
End If
'Formularen lukkes
Unload Me
End Sub