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

• #21591 Delila_1 veterán bandus #21587

  Új Válasz 2014-05-12 14:25:21 #21591

  Ú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 bandus #21587 üzenetére

  mit = Range("a5")
  
  Columns("A:A").Find(What:=mit, After:=ActiveCell, LookIn:= _
  xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
  xlNext, MatchCase:=False, SearchFormat:=False).Select
  
  MsgBox Selection.Row

  Szerk.: itt a keresés végén a Select utasítást látod. Erre azért van szükség, hogy utána le tudd kérdezni a pozícióját. Előtte az A oszlopot jelölted ki, Activate utasítással 1-et írna a találat sorának.

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