Příspěvky uživatele

V e-mailu se mi objevi jen tabulka,která začina od řádku č. 23 a končí na řadku xxx.

Řádky 1 - 22 se do emailu posílat nebudu, su tam umístěny ovl. prvky - tlačitka.

Tzn. a/ funkční excelovský list s vybranou oblastí buněk (ostatní tam nebude) formát xxx.xlsm

Dobrý den, mohl byste mi prosím pomoct s tým makrem na odesílání emailů?

Předem děkuji.

Odstranění řádku proběhlo v pohodě.

V tisku se mi zobrazila hláška viz obr.
Prosím odstranit potvrzovanie stránek u Tisku, "Tisk 1 stránky - pokračuj OK"
Šlo by tam dát na jednu stránku 8x tabulku, aby byla využitá cela A4?

Diky

Ahoj, asi jsem moc otravný, ale ještě mám prozbu.

Vše funguje na výbornou avšak bych potřeboval:

a)skrýt list č.2, pokud ho skryju přes excel, tak makro po stlačení tl. Přidej nový řádekvyhodí chybu.

b) nastavit oblast tisku tak aby se vždy tisklo na stránku od 10 řádku až po xx, stým, že se na jednu stránku vejde 6 řádků 78 px.

C) tento formulář budu odesílat e-mailem a ked tam hodím makro na odeslání emailu, viz.:

Private Sub CommandButton1_Click ()
'Select the range of cells on the active worksheet.
    ActiveSheet.Range ("A9: Q11"). Select

    'Show the envelope on the ActiveWorkbook.
    ActiveWorkbook.EnvelopeVisible = True

    'Set the optional introduction field thats adds
    'Some header text to the email body. It also sets
    'The To and Subject lines. Finally the message
    'Is sent.
    with ActiveSheet.MailEnvelope
       . Introduction = ""
       . Item.To = "xxxxxx"
       . Item.CC = "xxxxxxxx"
       . Item.Subject = "Nový subject"
       . Item.Send
    end With
'potvrzeni
MsgBox "xxxxxxxxxxxxxxxxxxxxxxx."
end Sub

tak se mi vždy odešle na email jen část formuláře.

Mockrát díky za pomoc

Parada, to je přesně ono, hodil by si sem kody abych je jen vložil do ovl. prvku?

Ještě bych potřeboval, aby se při vkládání nového řádku zachovala výška např. 75px.

Při úplném odstranění řádku bych tam potřeboval MSbox "přejete si opravdu odstranit celý řádek?" Tlačitko ANO / NE

Diky mockrát

zdravím,
v příloze přikládám co jsem vytvořil.

Nový řádek se přidává stále na na 11 a ne jako poslední.

Odstranit znamená vymazat - DELETE celý řádek bud poslední nebo který uživatel zadá.

kod pro přidaní řadku je:

Private Sub CommandButton2_Click()

Rows("10:10").Select 'řádek 10
Selection.Copy
Rows("11:11").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.ClearContents
Range("A1").Select
Application.CutCopyMode = False
End Sub

Kod nedokážu udělat, tak aby se vždy ten řádek vložil jako poslední.

Heslo pro odemknutí VBA projektu je: davidko295

zdravím,

prosím někoho, aby mi pomohl s následujícím zadáním.

Potřeboval bych v excelu vytvořit tlačitko které po stisknutí Vytvoři nový řádek vždy pod posledním tzn. ked vyplním řádek 10, stalačím tlačítko NOVÝ ŘÁDEK, tak se mi integruje řádek 11 atd ...

To samé bych potřeboval i na odstraneni řádku ale při odstranování bych potřeboval aby byly dvě možnosti,

1) odstranit poslední řádek
2) zadejte číslo řádku který chcete odstranit

V sešitě by se měl vždy vkládat jako nový řádek také s ohraničením ...

Předem děkuji za pomoc...

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje