• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

Příspěvky uživatele

Takže až keď zlyhajú všetky možnosti, tak treba vložiť prílohu?

@veny
Máš pravdu aj v anglickom exceli je to rovnako.
No vloudila se chybička.

A keď si tam zadáš hodnotu 100, tak ti to má vytvoriť 100 riadkov s hodnotou "Tužka"?
To dáva zmysel.

Potrebuješ list tabuľky? Tak si ho vytvor. Tu to nikto za teba neurobí.

No zabudol som povedať, že keď to všetko urobíš, tak ten stlpec B môžeš vymazať.
Filtrovať alebo zoraďovať tie zoznamy môžeš hocikedy.

Že by vymazať tú procedúru?

Do B1 dáš vzorec
=IF(COUNTIF(A1;C:C)=0;NA();"ok")
a skopíruješ do konca

Potom stlač
F5
vyber špeciálne > vzorce
zaškrtni iba chyby
a dáš odstrániť riadky.
Teda ak ti nevadí aj odstránenie stlpca C. Pre istotu si ho skopíruj na iný hárok.

Stačí takýto návod?

@Matus
A ty si porozumel tomu tvojmu zadaniu bez toho aby si sa pozeral na tie tvoje súbory?

Do bunky A1 predsa dáš hodnotu a nie vzorec
do B1 daj
=SUMIF(F7:O22;A1;OFFSET(F7:O22;0;1))

@eLCHa
Iste to stačí.
Ja som celkom neporozumel zadaniu.
"hodnoty sú napravo" som predpokladal, že môže ísť o viac stlpcov a nie iba o jeden. Preto som skúšal ten OFFSET, napríklad pre 4 stlpce OFFSET(f7:o22;0;1;1;4), ale to nefunguje vo funkcii SUMIF a zrejme ani v iných funkciách.

=SUMIF(F7:O22;119;OFFSET(F7:O22;0;1))
alebo maticovo
=SUM((F7:O22=119)*OFFSET(F7:O22;0;1))

Nedal si tých informácií priveľa? Stačila by polovica z nich a efekt by bol rovnaký. Teda okrem času potrebného na prečítanie zadania.

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ý.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje