Příspěvky uživatele


< návrat zpět

Strana:  1 2 3   další »

Ahoj,

v sešitu mám makro, který mi odešle sešit jako přílohu e-mailem(viz níže).Potřeboval bych to upravit tak aby se mi sešit odeslal ve formátu .pdf(teda pokud to vůbec jde)
'Uložení sešitu
Dim Adresa, Jmeno_souboru, Ulozit_jako As String
Dim Nazev As String
Nazev = Range("E4") & Range("F4") & Range("G4") & Range("H4")
Adresa = "D:\Leitz 2011\Složka zápisu\"
Jmeno_souboru = Nazev
Ulozit_jako = Adresa & Jmeno_souboru
ActiveWorkbook.SaveAs Filename:=Ulozit_jako _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

'Odeslání e-mailu
Dim objOutlook As Object
Dim objMail As Object

Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
With objMail
.To = "daniela.perclova@saint-gobain.com"
.CC = "marcel.tichy@saint-gobain.com"
.Subject = "Objednávka č.:" & Nazev
.Body = "Vážená paní,"
With .Attachments
.Add ThisWorkbook.FullName
End With
.Display
End With
Application.StatusBar = "Posílám e-mail!"
Set objOutlook = Nothing
Set objMail = Nothing
End Sub

Určitě lepší způsob než můj návrh. Díky za rady a držím palce v učení. Taky se budu snažit 4

Koukám, že si tu dopisuji tak nějak sám 2
No zkusil jsem použít selský rozum a kupodivu to funguje :
Dim odkaz As String
Dim nazev As String
Range("A1").Select
Selection.End(xlDown).Select
odkaz = ActiveCell.Value
nazev = "D" & ":" & "\" & "Složka1" & "\" & "Složka2" & "\" & odkaz & ".xlsx"
ActiveSheet.Hyperlinks.Add Anchor:=Selection, _
Address:=nazev _
, TextToDisplay:=odkaz

Aleurčitě existuje elegantnější řešení. Tak kdyby ho někdo znal...rád se poučím! 4

Tak problém s příponou jsem vyřešil :
Private Sub CommandButton1_Click()
Dim odkaz As String
Dim nazev As String
Range("A1").Select
Selection.End(xlDown).Select
odkaz = ActiveCell.Value
nazev = odkaz & ".xlsx"
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
nazev, TextToDisplay:= _
odkaz
End Sub

ale jaksi se nemohu dopátrat jak proměnou "nazev" začlenit do úplné cesty.... tedy D:\Složka1\Složka2\nazev.xlsx mi nefunguje 3

Ahoj, tak odkaz to vytvoří, ale po kliknutí na odkaz to píše, že soubor nelze otevřít. Zřejmě je třeba mít zadaný úplný název, tedy s koncovkou.xls. A taky bych to potřeboval upravit s úplnou cestou k souboru. Soubor je totiž v jiné složce než ten s odkazem (D:\Složka1\Složka2\odkaz.xls). Poradí si s tímhle někdo?

Zdravím všechny odborníky podruhé 2
Potřebuji makro které mi zajistí nalezení poslední vyplněné buňky v určitém sloupci(tř.A) a do této buňky vloží odkaz na soubor.Název souboru je vždy shodný s textem v nalezené buňce. Soubor uložen třeba na C:/.
Díky za ochotu.

Problém odstraněn. Díky za nakopnutí 4

Zdravím všechny odborníky 2 V přiloženém souboru odesílám sešit jako přílohu e-mailem(tlačítko "Send e-mail").
Všechno funguje až na to, že před odesláním odstraním všechny tlačítka(kromě "Send e-mail") a zamknu buňky což se daří, ale příloha v e-mailu tlačítka opět obsahuje a buňky jsou odemčené. Kdepak je zakopaný pes ?? 3

Ahoj, tak jsem si taky vyzkoušel a obě řešení jak od RomanNTA tak od Pokiho fungují.

Tak jsem si taky dovolil nahlédnout a při testování jsem zjistil, že při ukončení výzvy zadání hesla křížkem lze vybranou buňku přepsat. Pokud se přepíše číslem, vrátí se hodnota buňky zpět. Ale písmeny lze přepsat původní záznam bez hesla.

Díky, jak jednoduché, ale kupodivu jsem tenhle kód pro otevření ext. sešitu nemohl najít.

Zdravím, potřebuji přes CommandButton otevřít jiný sešit a do něj zkopírovat nějaké hodnoty. Dejme tomu buňku A1 ze sešitu "A" do buňky A1 sešitu"B".
Cesta k sešitu "B" je: D:\Leitz 2010\Bestellung Folder 2010\B.xls. S tím kopírováním si už nějak poradím, ale nedaří se mě kód pro otevření sešitu přes tlačítko 3 Děkuji za případné rady.

Ahoj, lze pro CommandButton přiřadit vlastnost ukotvit? To znamená,aby se mě při rolování listu neroloval zároveň s listem,tedy byl stále vidět. Díky za návrhy.

Děkuji. Fungují obě řešení.

Ahoj, v UserForm mám tlačítko, které má za úkol vyčistění všech ComboBoxů a TextBoxů, přejití na stránku "Úvod" a zavření UseForm.
Vše funguje až na vyčistění TextBoxu. Příkaz TextBox.Clear hlásí chybu.
Private Sub CommandButton2_Click()
Sheets("Úvod").Select
UserForm1.Hide
ComboBox1.Clear
ComboBox2.Clear
ComboBox3.Clear
ComboBox4.Clear
ComboBox5.Clear
TextBox2.Clear
TextBox3.Clear

End Sub

Jak to opravit? Dík.


Strana:  1 2 3   další »

Uživatelské menu

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

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

Vyhledávání stejných znaků

camron • 30.11. 9:51

Vyhledávání stejných znaků

Jiří497 • 30.11. 8:59

Vyhledávání stejných znaků

camron • 30.11. 7:50

První volné číslo

marjankaj • 29.11. 17:07

Vyhledávání stejných znaků

Anonym • 29.11. 15:49

Vyhledávání stejných znaků

Jiří497 • 29.11. 15:41

První volné číslo

DanoDL • 29.11. 15:26