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

• #5327 Delila_1 veterán Lamair #5325

  Új Válasz 2009-09-04 08:53:36 #5327

  Ú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 Lamair #5325 üzenetére

  Tegyél ki egy gombot az Űrlap eszköztárról, és rendeld hozzá a lenti makrót. Az A oszlopban keresi a bekért értéket, és kijelöli a sort, ahol megtalálta.

  Sub keres()
  f = 0
  v% = InputBox("Kérem a keresendő értéket", "Keresés")
  sor = Cells(Rows.Count, "A").End(xlUp).Row
  Do Until sor = 2
  If Cells(sor, 1) = v% Then
  Rows(sor).Select
  f = 1
  Exit Sub
  Else
  sor = sor - 1
  End If
  Loop
  If f = 0 Then MsgBox "Nincs ilyen érték"
  End Sub

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