< návrat zpět
MS Excel
Téma: Vyplň chybějící datumy ve sloupci ![rss](./plugins/templates/wall_2C/images/icons/rss.png)
Zaslal/a Merlin99 17.11.2020 13:29
Zdarvim
potreboval bych vyresit jeden problem kde ve slou
ve sloupci A mám datumy kde sem tam datum chybi a je potreba je vlozit. Vlozit presne tolik radku kolik je třeba a doplnit dany datum do sloupce A aby vysledkem byl sloupec plny datumu az do DNES -1. viz priloha pokud nekoho neco napadne
Děkuji ![1](./plugins/templates/wall_2C/images/smileys/1.gif)
Příloha:
48896_datumdopln.rar (9kB, staženo 28x)
Jiří497(17.11.2020 15:45)#048897 ![avatar](./pictures/avatars/no-avatar.jpg)
Mě něco napadlo: makro
citovat
marjankaj(17.11.2020 16:31)#048899 ![avatar](./pictures/avatars/no-avatar.jpg)
Niečo takéto?
Sub Makro1()
riadok = 3
Do Until Cells(riadok, 1) = ""
If Cells(riadok - 1, 1) + 1 <> Cells(riadok, 1) Then
Cells(riadok, 1).EntireRow.Insert
Cells(riadok, 1) = Cells(riadok - 1, 1) + 1
riadok = riadok + 1
Else
riadok = riadok + 1
End If
Loop
End Subcitovat
Merlin99(17.11.2020 16:56)#048901 ![Merlin99](./pictures/avatars/5b79c6f43998e.jpg)
marjankaj
Děkuji to je presne ono krasny kod prostuduju
Děkuji za pomoc
citovat