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