< návrat zpět

MS Excel

Téma: Vybrat a poslat rss

Zaslal/a Niffki 22.7.2010 12:54

Zdravím,

prosím o radu jak bych mohl nastavit, pomocí funkcí nebo makra, toto:

Potřeboval bych označit oblast buňěk třeba A1:C20 a A22:C42. Tyto vybrané buňky pak hned vložit do nového excelového souboru a zároveň ho připravit jako přílohu do outlooku.

Srnutí: Tlačítkem(nebo něčím) - vybrat určité buňky a následně otevřít v outlooku novou poštu a vložit jako přílohu označené buňky v novém exc. souboru.

Dá se to nějak nastavit? 4

Zaslat odpověď >
Strana:  1 2   další »
icon Poki(22.7.2010 13:14)#001964
Poki
Jednoduse to jde takhle
Sub Odeslat_vyber()
Range("A1:C20,A22:C42").Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
Application.CutCopyMode = False
Application.Dialogs(xlDialogSendMail).Show "komu", "premet"
End Sub

V predposlednim radku muzete mezi uvozovky vyplnit e-mailovou adresu a predmet zpravy (nebo tam nebude nic, kdyz prijemce a predmet nebude vzdy stejny.

Toto makro muzete priradit k nejakemu tlacitku v sesitu (pokud ovsem posilate ony vybrane oblasti stale z jednoho sesitu - jinak musite umistit makro do personal.xlscitovat
Niffki(22.7.2010 13:23)#001965
avatar
Díki za rychlou odpověď , hned to jdu vyzkoušet 2citovat
Niffki(22.7.2010 13:40)#001966
avatar
Funguje ješte líp než jsem doufal, fakt díki ;-) jinak mám další dotaz ale to až v novém vláknu...citovat
Niffki(23.7.2010 12:54)#001974
avatar
Mužu ješte něco? Funguje mi to. Ale: když se mi to zkopíruje do nového sešitu, zkopíruje se to tak že mám ve výsledku jiné šířky sloupců a jinak výšku řádků než originál. Potřeboval bych aby se mi to zkopíralo přesně jak je originál. Jde to?citovat
icon Poki(23.7.2010 13:17)#001975
Poki
Excel zachovává velikost bunek jen v pripade, ze kopirujes cely list - nejak by to nastavit slo, ale uz bych potreboval vic informaci o tom souboru, co pouzivas.
Muselo by se asi ulozit do promenne, sirka sloupcu a vyska radku a pak to v tom novem souboru pouzit...citovat
Niffki(23.7.2010 13:38)#001976
avatar
A jak do kódu zadáš aby se zkopíroval celý list? - Range("list1").Select.
Selection.Copy

Tak to?citovat
icon Poki(23.7.2010 13:41)#001977
Poki
staci cells.copycitovat
m.niki(31.7.2010 11:26)#002048
avatar
zdravím, mám k tomuto tématu dotaz, když bych chtěl, aby se mi výběr odeslal jako příloha ve formátu *.pdf, jak bude vypadat kód?
díkycitovat
m.niki(31.7.2010 13:03)#002049
avatar
zkoušek jsem to vyřešit nahráním makra, ale při jeho spuštění se mi příloha odešlě jakou *.xlsx místo *.pdf, zkoušel jsem to nahrát někoikrát, vždy jsem dal odeslat jako přílohu pdf, při nahrávání se to odeslalo dobře, ale při opětovném spuštění už ne, nerozumím tomu - náte s tím někdo zkušenosti?
Příloha: rar2049_pokus-tisk-vyberu.rar (9kB, staženo 20x)
citovat
m.niki(31.7.2010 14:37)#002050
avatar
ups, jsem to popletl a poslal špatný sobor - bez nahraného makra - v příloze je správný s makrem
Příloha: rar2050_pokus-tisk-vyberu.rar (13kB, staženo 22x)
citovat

Strana:  1 2   další »

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

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.

On-line nástroje