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

• Delila_1 veterán

  #7093

  #7088 nagytomi10

  2010-05-06 08:55:19

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  #7088 nagytomi10

  Hibakezeléssel:

  Private Sub CommandButton1_Click()
  
  Application.ScreenUpdating = False
  
  Sheets("Találatok").Select
  ActiveSheet.Rows("2").Select
  ActiveSheet.Range(Selection, Selection.End(xlDown)).Select
  Selection.Delete Shift:=xlUp
  
  sor_k = 2
  sz = Sheets("Munka2").Cells(1)
  
  Sheets("Munka1").Select
  
  On Error GoTo Hiba
  Cells.Find(What:=sz, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
  :=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
  False, SearchFormat:=False).Activate
  
  sor = Selection.Row: sor_m = sor + 1
  Rows(sor).Copy Sheets("Találatok").Rows(sor_k)
  sor_k = sor_k + 1
  
  Do 'Keresés ismétlése
  Cells.FindNext(After:=ActiveCell).Activate
  sor = Selection.Row
  Rows(sor).Copy Sheets("Találatok").Rows(sor_k)
  sor_k = sor_k + 1
  Loop While sor >= sor_m
  
  Sheets("Találatok").Select
  usor = ActiveSheet.UsedRange.Rows.Count + 1
  ActiveSheet.Rows(usor).Select
  Selection.Delete Shift:=xlUp
  ActiveSheet.Cells(1).Select
  Application.ScreenUpdating = True
  Exit Sub
  
  Hiba:
  MsgBox "Nincs '" & sz & "' érték a Munka1 lapon"
  
  End Sub

  2003-as verzióban írtam, ahhoz nem kellett az ActiveSheet. Látom, áttetted a Munka2!A1-be a keresendő értéket. Jobb, mert ha az adatok között egyébként nem szerepelne, a Find ezt az egyet megtalálná.

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