Skús tento kód
Sub VytvorList()
Dim tento As String
tento = ActiveSheet.Name
For Each bunka In Range("C7:A350")
If bunka <> "" Then
On Error Resume Next
Sheets.Add After:=Worksheets(Sheets.Count): ActiveSheet.Name = bunka
On Error GoTo 0
End If
Next bunka
Sheets(tento).Activate
End Sub
Ale ak tam už taký list bude, tak čo sa má urobiť?
C7:A350 ?????
To potrebuješ vytvoriť prípadne aj 1000 nových listov?
To akože v exceli?
No lúštiť kód nemienim.
Ale xlnc dal dostatočný návod ako to urobiť.
Aj elninoslov bod č.3 je dobrý. A nielen ten bod ale všetko.
Možno ešte pred ukončením procedúra by bolo vhodné dať to ešte prepočítať. Ale to nemienim stopovať.
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.
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.