< návrat zpět
MS Excel
Téma: Vyplň chybějící datumy ve sloupci
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
Příloha: 48896_datumdopln.rar (9kB, staženo 28x)
Jiří497(17.11.2020 15:45)#048897 Mě něco napadlo: makro
citovat
marjankaj(17.11.2020 16:31)#048899 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 marjankaj
Děkuji to je presne ono krasny kod prostuduju
Děkuji za pomoc
citovat