Sub GotoMytext()
If ActiveCell.Offset(3, 0).Value = "AKTIVITETER" Then ActiveCell.Offset(3, 0).Select
If ActiveCell.Offset(5, 0).Value = "AKTIVITETER" Then ActiveCell.Offset(5, 0).Select
End Sub
Sub GotoMytext()
Dim SearchString As String
Dim i As Long
Application.ScreenUpdating = False
SearchString = "AKTIVITETER"
For i = 3 To 5 Step 2
If ActiveCell.Offset(i) = SearchString Then
ActiveCell.Offset(i).Select
Exit For
End If
Next i
Application.ScreenUpdating = True
End Sub
hi!
can,t solve this,
Sub GotoMytext()
If ActiveCell.Offset(3, 0).Value = "AKTIVITETER" Or ActiveCell.Offset(5, 0).Value = "AKTIVITETER" Then
'if one of them is true then I wnant to select/go to that cell
End If
End Sub
Tanks, its workning.