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

• #6613 Delila_1 veterán sonar #6608

  Új Válasz 2010-03-16 16:24:49 #6613

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

  Gyorsabb, ha az Excel saját keresőjét használod.
  A keresőbe beviszed az L1_L1-et, és a "Listába mind" gombbal kiíratod a találatokat.
  A lista tartalmát kijelölöd, és indítod az alábbi makrót:

  Sub gyűjt()
  Dim KövSor As Range
  Set KövSor = Sheets("Munka2").Range("A" & Rows.Count).End(xlUp).Offset(1).EntireRow
  Selection.EntireRow.Copy KövSor
  End Sub

• #6610 ulrik19 tag sonar #6608

  Új Válasz 2010-03-16 16:11:21 #6610

  Ú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

  

  ulrik19

  tag

  válasz sonar #6608 üzenetére

  Ha a keresett szövegdarabbal kezdődnek a vizsgálandó cellák, akkor talán az ABC-rendezéssel és az algoritmus kicsi átalakításával némileg gyorsítható.

  illetve ha pár kiértékelést átalakítasz (de ez nem biztos, hogy gyorsít, sosem teszteltem)

  pl.

  meddig = 50000 ' persze ezt kiszámolni valahogy előtte, pl. darabteli()-vel
  For i = 9 to meddig
  If InStr(1, Cells(i, 1), "MOVE_L1_L1") > 1 Then
  Cells(x, 3) = Cells(i, 1)
  x = x + 1
  End If
  Next i

• #6609 Azura csendes tag sonar #6608

  Új Válasz 2010-03-16 15:32:10 #6609

  Ú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

  

  Azura

  csendes tag

  válasz sonar #6608 üzenetére

  köszönöm szépen a segítségeket, minden működik

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