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

• #31146 Nowitzki csendes tag

  Új Válasz 2016-03-27 20:46:25 #31146

  Ú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

  

  Nowitzki

  csendes tag

  Sziasztok,

  Egy kis segítséget szeretnék kérni.
  Van egy munkafüzet jó pár ezer sorral. Az adatok alapesetben hetes csoportokban vannak (101-107), de néha olyan adatokat is regisztrál a gép aminek nincs meg mind a hét sora. Ezeket a sorokat szeretném automatikusan törölni egy makróval. Írtam is rá egyet de nem úgy működik ahogy szeretném. Tudnátok segíteni nekem ebben?

  

  Sub DeletingUnnecessaryRows()
  For i = 2 To ThisWorkbook.Worksheets(1).Cells(ThisWorkbook.Worksheets(1).Rows.Count, 1).End(xlUp).Row
  If Cells(i + 1, 1) - Cells(i, 1) <> 1 And Cells(i + 1, 1) - Cells(i, 1) <> -6 Then
  Rows(i).EntireRow.Delete
  End If
  Next
  End

  Előre is nagyon szépen köszönöm!

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