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

• #20649 Louro őstag

  Új Válasz 2014-02-24 23:34:58 #20649

  Ú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

  

  Louro

  őstag

  Sziasztok

  Ebből a fórumból jó sokat lehet tanulni!!! Köszönöm a sok-sok hasznos itt mindenkinek.

  Ami az én problémám lenne: lenne egy ablak, ahol kiválaszthatok egy fájlt. (Ez megvan.) Mivel több fájl van, eltérő fejléccel, de van egy oszlop - végéről a 3. - , amire szeretnék szűrni és a talált sorokat törölni. Mindig szeretném kitörölni a #N/A értékeket abban. Ezt most úgy csinálom, hogy megnyitom a fájlt. A végére megyek, filterezek az #N/A értékre és törlöm a sorokat .

  Amit írtam:
  Dim i As Integer
  For i = 1 To Range("A" & "65536").End(xlUp).Row Step 1
  If Application.WorksheetFunction.CountIf(Range("A" & i & "F" & i), "#N/A") > 0 Then
  Range("A" & i).EntireRow.Delete
  End If
  Next i

  Sajnos több helyen is szerepel #N/A, ahol az adott sorokat nem kellene törölni. És a lefutása során folyamatosan dolgozott és kb. annyi időt igényelt, ha nem többet, mintha kézzel csináltam volna.

  Remélem sikerült jól leírnom.

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