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

• #21518 Delila_1 veterán alfa20 #21517

  Új Válasz 2014-05-09 15:07:22 #21518

  Ú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 alfa20 #21517 üzenetére

  Csak egy apró egyszerűsítés.

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

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