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

• #7144 Delila_1 veterán nagytomi10 #7143

  Új Válasz 2010-05-10 11:55:46 #7144

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

  Azért töröltetettem ki az utolsó sort, mert a Do - Loop ciklusban az első találat sorát az utolsó után mégegyszer beírja.
  Ha kijelölsz egy területet (pl. Range("A1100").select), akkor azon a területen keres a Find.

• #7094 Delila_1 veterán nagytomi10 #7088

  Új Válasz 2010-05-06 09:14:34 #7094

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

  Az
  usor = ActiveSheet.UsedRange.Rows.Count + 1
  végéről töröld ki a +1-et.

• #7093 Delila_1 veterán nagytomi10 #7088

  Új Válasz 2010-05-06 08:55:19 #7093

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

  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á.

• #7092 perfag aktív tag nagytomi10 #7088

  Új Válasz 2010-05-06 07:30:48 #7092

  Ú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

  

  perfag

  aktív tag

  válasz nagytomi10 #7088 üzenetére

  Biztos, hogy akarsz üzenetet? Nem tudom mennyi adattal dolgozol, de beleszaladhatsz egy olyanba, hogy csak kattingatsz és kattintgatsz ...
  A VBA On Error hibakezelőjét nézd meg a súgóban, vagy olvasd el Chip Pearson összefoglalóját. [Error Handling in VBA]
  Én az On Error Resume Next-re szavazok, de ha kellenek a cellák ahol az ismétlődések vannak akkor inkább gyűjtsd ki egy listába.
  Óvatosan a hibakezelővel, ki is kell kapcsolni! különben nagyon elszáll az Excel, ments gyakrabban.

• #7073 perfag aktív tag nagytomi10 #7071

  Új Válasz 2010-05-05 11:02:40 #7073

  Ú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

  

  perfag

  aktív tag

  válasz nagytomi10 #7071 üzenetére

  Most a munkahelyemről, itt 2003-as Excelen: Activesheet. kell az 5., 6., 30. és 32. sorokba és műxik.

• #7072 WildBoarTeam senior tag nagytomi10 #7071

  Új Válasz 2010-05-05 09:00:07 #7072

  Ú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

  

  WildBoarTeam

  senior tag

  válasz nagytomi10 #7071 üzenetére

  2003-at használsz amúgy?
  Nekem egyszer volt hasonló jelenségem (tán még a hibaüzenet is ez volt). Delila_1-val néztük ugyanazt a fájlt. Ő 2007-es excelben, én meg 2003-asban és nekem ugyanígy hibaüzenettel megállt, nála meg ment rendesen minden. Én azt csináltam, hogy nyitottam egy új modult a VBA-ban, átmásoltam oda a kódot, töröltem a régi modult és működött. Ez csak egy tipp, ha 2003-ad van.

• #7070 perfag aktív tag nagytomi10 #7068

  Új Válasz 2010-05-05 08:32:10 #7070

  Ú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

  

  perfag

  aktív tag

  válasz nagytomi10 #7068 üzenetére

  Tegyél elé egy ActiveSheet.-et, és a következő sorba is a Range elé is.

• #7069 WildBoarTeam senior tag nagytomi10 #7068

  Új Válasz 2010-05-05 08:24:51 #7069

  Ú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

  

  WildBoarTeam

  senior tag

  válasz nagytomi10 #7068 üzenetére

  Tehát akkor a Sheets("Találatok").Select sor még jó.
  Próbáltad idézőjelek nélkül? Rows(2).Select (így is működnie kell)
  Mert ez ugye kijelöli a második sort, majd elmegy az utolsó sorig, ahol adatot talál (próbáld ki manuálisam: kijelölöd a 2. sort, majd Shift+End+lefelenyíl), végül a kód következő soraiban törli a tartalmát a kijelölt résznek.
  Szerintem szedd ki az idézőjeleket, ha nem lesz jó, akkor próbálkozunk mással.

• #7067 WildBoarTeam senior tag nagytomi10 #7066

  Új Válasz 2010-05-05 08:04:53 #7067

  Ú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

  

  WildBoarTeam

  senior tag

  válasz nagytomi10 #7066 üzenetére

  Próbáld meg linkelni a fájlt, mert így nehéz lesz megtalálni a hibát.
  vagy próbáld meg lépésenként futtatni a makrót (VBA-ban F7 bill.) és látni fogod, hogy hol akad meg a hibával.

• #7065 perfag aktív tag nagytomi10 #7063

  Új Válasz 2010-05-05 07:25:21 #7065

  Ú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

  

  perfag

  aktív tag

  válasz nagytomi10 #7063 üzenetére

  nem működik - ennél azért több infót adj, ha kérdezel!
  Milyen Exceled van? Ha 2007-es, akkor Office gomb, Az Excel beállításai ..., Adatvédelmi központ, Az Adatvédelmi központ beállításai .., Makróbeállítások: Az összes makró engedélyezése -- ez megvolt? Ettől fut a makró.
  Ha a makró fut, de hibát jelez, akkor valószínűleg nincs Találatok, vagy Munka1 nevű munkalapod. Ebben az esetben ugyanis a makró Subscript out of range üzenettel kiakad.

• #7064 WildBoarTeam senior tag nagytomi10 #7063

  Új Válasz 2010-05-05 07:12:40 #7064

  Ú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

  

  WildBoarTeam

  senior tag

  válasz nagytomi10 #7063 üzenetére

  Ez attól függ mit akarsz csinálni.
  Például nézted a #6541 hsz-ben lévő xls-t?
  Én kipróbáltam. A Munka2-t átneveztem Találatok-ra, a hét számait tartalmazó címsort átmásoltam rá a Munka1-ről
  Beírtam a Munka1 A1 cellájába a nevet, amit ki akarok gyűjteni és szépen hozta.

  Ja, és én modulként vettem fel a VBA editorban és nem a Microsoft script editorban.

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