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

• #21517 alfa20 senior tag Snoop-y #21514

  Új Válasz 2014-05-09 15:01:23 #21517

  Ú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

  

  alfa20

  senior tag

  válasz Snoop-y #21514 üzenetére

  nem a legelegánsabb megoldás, de majd jön Delila_1 és majd megoldja profin

  Sub keres()
  
  Dim keres As Variant
  
  keres = InputBox("Keresendő szöveg, szám:", "Keresés")
  
  Cells.Find(What:=keres, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
  xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
  , SearchFormat:=False).Activate
  
  MsgBox ActiveCell.Address
  
  End Sub

  és meg is jött

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