Excel - každý 60 řádek z databáze

[amos.zamba]

Dobrý den,
potřeboval bych nějak vyřešit problém. Mám databázi dat, která se ukládá po 10 sekundách. Z té databáze ale potřebuji jen desetiminutové data, tzn nechat každý šedesátý řádek, ostatní vymazat.
Řeším to zatím takhle (viz níže) ale nevím jestli to je nejvhodnější řešení a dále mám problém že pokud neoznačím jen sloupec s daty a označím celý sloupec tak se mi to zacykluje.
Dík za každou radu.

Kód: Vybrat vše

Sub Prevod_dat_MK()

   ' Deklarace proměnných.
   Y = True             
                         
   I = 2
   R = 1
   Set xRng = Selection

   ' Jednou opakovat pro každý řádek výběru.
   For xCounter = 1 To xRng.Rows.Count
       
       ' Pokud má proměnná Y hodnotu True, pak...
       If Y = True Then

           ' ...odstranit celý řádek buněk.
           xRng.Cells(I).EntireRow.Delete

       ' Jinak...
       Else

           ' ...zvýšit hodnotu proměnné I o 1, aby bylo možné projít rozsahem cyklu.
           I = I + 1
       
       End If
       
       If R < 60 Then
            Y = True
            R = R + 1
           
        Else
            Y = False
            R = 1
       
        End If

   Next xCounter
   

End Sub


[Reklama]

[Poki]

co takto:

Kód: Vybrat vše

Sub odstran_radky()
Dim i, p As Integer
Dim prvniRadek As Integer
prvniRadek = 1
p = 0
Do Until IsEmpty(Cells(prvniRadek + p, 1))
 Rows(prvniRadek + p & ":" & prvniRadek + p + 58).Delete
 p = p + 1
Loop
End Sub

promenna prvniRadek je cislo, ktera oznacuje, na kterem radku je prvni zapis databaze