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

• #32191 bteebi veterán

  Új Válasz 2016-07-27 15:12:26 #32191

  Ú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

  

  bteebi

  veterán

  Sziasztok! Egy adott értéket (ami a D8-as cellában található) szeretnék megkeresni egy makróval megnyitott, elég sok lapot tartalmazó munkafüzetben. Azt szeretném, hogy a keresett értéket tartalmazó cellára ugorjon a makró (elvileg csak egy ilyen cella van). A keresés része nem működik. Megnéznétek, hogy mi a gond vele? Előre is köszönöm!

  Sub holvan()
Dim srch As String, ws As Worksheet
srch = ActiveSheet.Range("D8")
Workbooks.Open Filename:="D:\proba\minta.xls", ReadOnly:=True
For Each ws In Workbooks("minta.xls").Worksheets
Set found = ws.Cells.Find(What:=srch, LookIn:=xlValues, LookAt:=xlPart)
Next ws
End Sub

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