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

• #7143 nagytomi10 csendes tag Delila_1 #7094

  Új Válasz 2010-05-10 09:39:58 #7143

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

  Nekem így visszatörli az utolsó sort.

  Ha ez szerepel a kérdéses részen akkor viszont jól működik:
  usor = ActiveSheet.UsedRange.Rows.Count
  usor = usor + 1

  A Cells.Find függvénynek valahogy be lehet állítani, hogy hol keressen?

• #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

• #7071 nagytomi10 csendes tag perfag #7070

  Új Válasz 2010-05-05 08:44:40 #7071

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

  ActiveSheet.Select-re gondoltál?
  Beraktam mindkét helyre, de ugyanaz a probléma.
  Idézőjeleket kitöröltem, de így se változott semmi.

• #7068 nagytomi10 csendes tag WildBoarTeam #7067

  Új Válasz 2010-05-05 08:07:07 #7068

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

  A harmadik sornál akad meg:
  Rows("2").Select

• #7066 nagytomi10 csendes tag perfag #7065

  Új Válasz 2010-05-05 07:58:39 #7066

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

  Konkrétan egy Private Sub CommandButton1_Click() eseménybe másoltam be egy az egybe és ezt az üzenetet kapom:
  Range osztály select metódusa hibás.

  Van Munka1 és Találatok munkalapom.

• #7063 nagytomi10 csendes tag Delila_1 #6546

  Új Válasz 2010-05-04 23:49:50 #7063

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

  Sziasztok!

  Az én problémámra gyakorlatilag tökéletes lenne ez a megoldás
  [link], de ez nem működik ha VBA scriptként illesztem be.
  Mit kell módosítanom ahhoz, hogy működjön?

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