Mě něco napadlo: makrocitovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: Vyplň chybějící datumy ve sloupci
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 29x)
48896_datumdopln.rar (9kB, staženo 29x)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
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
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články