Veď preto sa obrátil na toto fórum, lebo si myslel, že tu sú samí odborníci. A nie že bude musieť niečo dovysvetľovať.
No neviem, či ti pomôže toto makro.
Sub Makro1()
Dim pasterow As Long
Dim lastrow As Long
pasterow = InputBox("Kolik variant chcete vložit?", "Počet nových variant", 1)
lastrow = Cells(Cells.Rows.Count, "A").End(xlUp).Row + 1
Range(Rows(lastrow), Rows(lastrow).Offset(pasterow - 1)).EntireRow.Insert
Range(Cells(lastrow - 1, "D"), Cells(lastrow - 1, "H")).Copy _
Range(Cells(lastrow, "D"), Cells(lastrow, "D").Offset(pasterow - 1))
Range(Rows(lastrow), Rows(lastrow).Offset(pasterow - 1)).ClearContents
Range(Cells(lastrow, "D"), Cells(lastrow, "D").Offset(pasterow - 1)) = "V"
End Sub
Neviem aké sú vstupy a ani ako má vyzerať výstup. Ale keď som pozrel do čarovnej gule, tak som si pracne vytvoril súbor. Keďže je to moje know-how tak ho tu nebudem zverejňovať, aby mi ho niekto neukradol. Sú to citlivé údaje.
A nechceš začať s niečím jednoduchším?
Napríklad makrom vyplniť aktuálnu bunku hodnotou 1234?
Sub vypln()
ActiveCell = 1234
End Sub
Inak kód bez dát je na prd, keď nie je jasné, čo sa má kopírovať. Ako ho má niekto vyskúšať? A je zbytočne dlhý.
stlač F5 alebo CTRL+G
a zadaj danú bunku napríklad:
A1500
anyman napsal/a:
Jak píše Pavlus. Ono je rozdíl 52,30 nebo 52:30:00
No vydeľ tú hodnotu 7,5 teda (52,5/7,5)
a daj vlastný formát
d "dní " h "hodín "m "minút"
Vick napsal/a:
to: eLCHa
Díky
a můžeš sem napsat vzorec? Pokud ano, tak ho sem rovnou napiš..
Tibor napsal/a:
Zdravim,
zrejme ste zabudol pripojit prilohu.
Tibor
@xlnc
Ja som nechcel, aby to vyznelo, že sa navážam do českého excelu. Myslím, že aj Nemci si excel ponemčili a aj iní.
Len potom pri vzájomnej komunikácii jeden aby používal prekladový slovník. A aj tak to občas zahapruje.
A to už nehovorím o tých novších verziách, čím ďalej tým zamotanejšie. Napríklad ROUND, ROUNDUP, ROUNDDOWN, FLOOR, CEILING. V českej verzii je to radosť.
Snáď sa ti na to niekto pozrie. Ja 7z rozbaľovať nebudem.
Ty VBA dávať dohromady nemusíš. To už urobil Microsoft.
Stepanek100 napsal/a:
Tak mne to funguje.
VLOOKUP nefunguje, česky SVYHLEDAT Funguje. Proč je to tak?
No a teraz ten vzorec z prvej prílohy daj do tej druhej prílohy. Možno prídeš aj na to prečo to nezafungovalo.
A chceš povedať, že s tým tvojím vzorcom to ide?
Skús VLOOKUP(SVYHLEDAT) v kombinácii IFERROR.
IFERROR(VLOOKUP(E4;K4:L6;2;0);E4)
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
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.