Új hozzászólás Aktív témák

• #32194 Delila_1 veterán bteebi #32191

  Új Válasz 2016-07-27 18:02:54 #32194

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz bteebi #32191 üzenetére

  Kihagytam a másik füzet megnyitását, csak a saját minta füzetemben kerestettem. Majd beírod.

  Sub Ugras()
Dim srch As String, ws As Worksheet, lel
srch = "KeresettSzoveg"
For Each ws In Worksheets
On Error Resume Next
lel = ws.Cells.Find(What:=srch, LookIn:=xlValues, LookAt:=xlPart).Address
If lel Then
Application.Goto reference:=Sheets(ws.Name).Range(lel)
Exit Sub
End If
Next ws
End Sub

Új hozzászólás Aktív témák