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

• #21586 Delila_1 veterán bandus #21584

  Új Válasz 2014-05-12 14:05:47 #21586

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

  Az egyszerűség kedvéért a keresést rögzítéssel vettem fel. utólag vettem észre, hogy nem állítottam le a rögzítést. A makró csak ennyi:

  Sub Keres()
  Dim tofind As Date, sor As Long, oszlop As Long
  tofind = Range("A3")
  
  Sheets("FEL").Select
  Cells.Find(What:=tofind, After:=ActiveCell, LookIn:= _
  xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
  xlNext, MatchCase:=False, SearchFormat:=False).Activate
  
  sor = Selection.Row
  oszlop = Selection.Column
  MsgBox "Sor: " & sor & vbLf & "Oszlop: " & oszlop
  End Sub

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