Sub VYPIS()
Dim oblast As Range, bunka As Range
Worksheets("Seznam VINek").Activate
Set oblast = Range(Cells(2, 2), Cells(2, 2).End(xlDown))
With Worksheets("TISK")
For Each bunka In oblast
.Cells(2, 1) = bunka
.PrintPreview ' namiesto PRINTPREVIEW daj PRINTOUT
Next bunka
End With
Set oblast = Nothing
End Sub
Škoda, že nerozumiem po mongolsky.
No myslím, že xlnc poradil dosť užitočne
Dim Vztah As Long
vyriešilo celý problém. Nič iné nebolo treba. A bolo zbytočné kvôli takejto prkotine sa toľko rozpisovať.
@elninoslov
Myslím, že si nepochopil zadanie. Prílohu nebude dávať zadávateľ, ale ju máme dodať my.
Čo je to ten atribut?
No ja viem zo zadaných hodnôt vytvoriť graf. Ale opačný postup v exceli nepoznám (Z grafu vyrobiť hodnoty).
Ak nevieš tie hodnoty zadať do zošita, tak sa na celý excel vykašli. Ja ich za teba vymýšľať nebudem.
Takže chceš aby ti niekto urobil ten graf a ty si potom doplníš hodnoty? Nechceš sa radšej venovať niečomu inému - jednoduchšiemu?
karelvlnka napsal/a:
Příloha: 40667_40636_graf_posuvnikvcaseamnozstvedat.xls (81kB, staženo 1x)
Radek-Klepacek napsal/a:
Tak jsem na každou vyhledávanou položku ze sloupce "D" napsal zvlášť proceduru.
Radek
@janík
Akí sú všetci zvedaví. A tebe je to predsa úplne jasné, no nie?
No ak sa stým pohráš.....
A čo tak vyskúšať záznamník?
@elninoslov
predsa si nenechá vykradnúť celé jeho "How-know"
@vovka
toto som nepoznal, ale tento zápis bez vysvetliviek môže byť zavádzajúci(hlavne pre začiatočníkov - každý nemusí postrehnúť tie medzery na konci obecného formátu). A potom sa niekto diví, prečo sú tam rôzne hodnoty pri tom istom čísle. Je to iste zaujímavé, ale s veľkou pravdepodobnosťou tomu porozumie iba autor takéhoto zápisu(a po mesiaci možno na to aj zabudne)
napríklad takto.
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.