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

• #7088 nagytomi10 csendes tag perfag #7073

  Új Válasz 2010-05-05 23:05:31 #7088

  Ú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

  

  nagytomi10

  csendes tag

  válasz perfag #7073 üzenetére

  Az ActiveSheet. beillesztése lett a megoldás, pedig nálam 2007-es Excel van. Köszi!

  Azt hogy lehetne megoldani, hogy ha nem talál azonos cellát a keresés, akkor ne Run-time error-ral szálljon el, hanem dobjon egy felugró ablakot, valamilyen üzenettel?

  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
  
  Sheets("Munka2").Select
  ActiveSheet.Cells(1, 1).Select
  sor_k = 2
  sz = Selection.Value
  
  Sheets("Munka1").Select
  
  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
  usor = usor + 1
  ActiveSheet.Rows(usor).Select
  Selection.Delete Shift:=xlUp
  ActiveSheet.Cells(1).Select
  Application.ScreenUpdating = True
  
  End Sub

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