Příspěvky uživatele
< návrat zpět
Tak teda ešte raz a pomaly. 
1. vyznač na 1.liste kopírovanú oblasť. napríklad A1:X100
2. daj kopírovať formáť. to je taký šteteček.
3. klikni na list2, stlač SHIFT a zároveň klikni na posledný list30
4. klikni na bunku A1.
5.hotovo
A keby si tak veľmo chcel makro, tak nech sa páči.
Sub Makro()
Sheets(1).Range("A1:x100").Copy
Sheets(Array(2, 3, 6)).Select
Sheets(2).Range("A1").PasteSpecial Paste:=xlPasteFormats
Application.CutCopyMode = False
End Sub
Ja som na to potreboval cca 6 klikov.
Veď to nekopíruj po jednotlivých bunkách. Kopíruj celé oblasti, napríklad A1:X100.
Tiež nedávam prílohu. Naozaj nie je potreba.
@stejzi
To makro aj tak bude iba jednorazové.
Pre nový zošit ho budeš musieť upravovať.
To ti za tých pár klikov naozaj stojí?
No zapni si nahrávanie makra
A postup som už uviedol.
A makro si už iba "učešeš".
No asi to ide aj bez VBA.
1. vyznač na 1.liste kopírovanú oblasť.
2. daj kopírovať formáť. to je taký šteteček.
3.klikni na listy na ktoré chceš formát skopírovať. Klikni na prvý a pri stlačenom CTRL na ďalšie) alebo klikni na prvý a stlač SHIFT a potom na posledný)
4. vyznač oblasť na ktorú chceš kopírovať(mala by byť rovnaká ako úvodná)
5.stlač ENTER
excel 2010
@Al
Otázka nebola vágna. 
Pýtal sa, či to "LZE". Tak sme mu to napísali, že "LZE" 
Áno ide to.
Záleží od toho, kedy spustíte PC.
Napríklad dostanete takúto správu.
"Predvčerom ste mali byť na služobnej ceste"
samsoniiksvk napsal/a:
Ten screen som dal ako príklad aby som tam nemusel dávať 8000 riadkový excel súbor, preto CTRL C nevyužijem, viem na 100% že sa to dá cez funkciu CONCATENATE, no neviem ako tie bunky označiť aby to dalo pod seba
No ako sa baviť s človekom, ktorý nevie odstrániť z 8000 riadkov tých zbytočných 7990 a priložiť súbor s desiatimi riadkami?
samsoniiksvk napsal/a:
keďže pozerám že ľudia ako anonym sa tu chodia pobaviť na človekovi, ktorý s excelom nerobí. Ďakujem veľmi pekne za čas a pomoc
http://samuelmarcinko.com/img.png
A ty sa tomu divíš? Skús si ešte raz pozrieť, čo si poslal. Na tretí krát to začína mať trochu hlavu aj pätu.
Netuším, čo je viacero stlpcov, ale pri troch si vystačíš s jednoduchým CTRL+C a CTRL+V.
A to CONCETENATE bola úžasná nápoveda.
@AL
Máš pravdu nedal. Je to cez záznamník. Tým som iba chcel zadávateľovi naznačiť, či naozaj potrebuje riešiť takúto prkotinu. Samozrejme by som tam mohol ešte dať počet desatinných miest. udalosť CHANGE, aby to bolo automaticky. Ale to si môže už dorobiť sám, ak tak veľmi chce. Naozaj nerozumiem, k čomu je to dobré.
@AL.
No tak to treba previesť na textový reťazec. Len či to bude zadávateľovi takto vyhovovať.
Daj si vlastný formát [h]:mm:ss
alebo daj vzorec =(B1-A1)*24
If WorksheetFunction.IsText(Cells(1, 1)) Then MsgBox "text"
If WorksheetFunction.IsNumber(Cells(1, 1)) Then MsgBox "cislo"
Dusan555 napsal/a:
Môžu mať tabuľky aj inú prílohu ako je xls,xlsm? Napr. z uvedených gif .jpg .png .txt .zip .rar .tar .7z
napríklad xlsx.
Prepáč, ale porozumel si tomu, čo napísal AL?
Alebo si ešte nepočul o komprimovaných súboroch?
@AL
Problém bude v zobrazovaní. Vložil som tam medzery, už by to malo byť jasnejšie. "ikonky" zmizli.
Uživatelské menu
\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