MS Excel

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...

Zaslat odpověď >

Strana: 1 2 další »

Opičák(28.5.2013 0:35)#013487

Těžko něco vytvořit,když není jasné co.
Nový řádek zřejmě má obsahovat nějaké formátování nebo i vzorce. Udělej si vzorový řádek,včetně vzorců a formátování(třeba na jiný list) a ten překopíruj na první volný řádek.
Makro na to samozřejmě jde napsat, aby našlo první prázdný řádek.
Odstranit znamená co?
- vymazat hodnoty a ponechat vzorce, takže jako nový nevyplněný řádek
- nebo smazat komplet, jako kl. Del
- nebo odstranit celý řádek Ctrl mínuscitovat

milan29(28.5.2013 0:48)#013489

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

Příloha: rar

13489_test.rar (24kB, staženo 31x)

citovat

Opičák(28.5.2013 1:40)#013490

Zítra (dnes)

to upravím. Než jsem zjistil, že jsi tu neco dal jsem zkusil jako příklad tohle. Mazání je udělané tak, že maže nebo odstraní vždy ten řádek, kde je právě kurzor. Lze to udělat i tak že budeš muset zadat číslo řádku.

Příloha: zip

13490_radky.zip (28kB, staženo 35x)

citovat

milan29(28.5.2013 1:52)#013491

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

citovat

Opičák(28.5.2013 9:53)#013492

Tady je to i s MSBoxem + nastavená nějaké výšky nového řádku. Je třeba nastavit podle potřeby.
Kody jsou v Module1, můžeš je volat "z tlačítka" Call makro xx nebo je dát rovnou do kodu tlačítek na List.

pozn. nový řádek umísťuje pod poslední a toto místo hledá podle poslední neprázdné buňky ve sl. A. Ačkoli se zdá, že tam nic není, je tam jeden znak a to mezerník. Pokud ve vzorovém řádku na Listu2 mezera nebude, nevyhledá poslední řádek správně.

Příloha: zip

13492_radky2.zip (28kB, staženo 34x)

citovat

milan29(28.5.2013 17:19)#013493

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 pomoccitovat

Opičák(28.5.2013 18:02)#013494

Začnu od konce:
mail: není chyba zde
ActiveSheet.Range ("A9: Q11"). Select
jsou vybrány jen 3 řádky

tisk: oblast tisku nastavit v ROZLOŽENÍ STRÁNKY možná je dobré ji pojmenovat

u zamčeného listu mi to normálně funguje, pokud list skryju, pak to hází chybu, ale jde to v makru ošetřit třeba doplněním dvou řádků.

Rem --- vzorový řádek ---
Sheets("List2").Visible = True
Sheets("List2").Select
Range("A2:R2").Select
Selection.Copy
ActiveWindow.SelectedSheets.Visible = Falsecitovat

Opičák(28.5.2013 19:53)#013496

na řádku makra
ActiveSheet.Range ("A9: Q11"). Select
nastavit oblast A9:Q11 podle požadované oblasti, která se má vybrat

pro tisk je myslím jedno, jestli jsou řádky vysoké tak či onak, důležité je aby se vešly na jednu stránku. pro běžný tisl stačí makro:

Sub tisk1_tisk()
ActiveSheet.PageSetup.PrintArea = "$B$10:$J$16"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

zde je opět nutné nastavit oblast tisku B10:J16

lepší by se to nastavovalo na příkladucitovat

Opičák(29.5.2013 0:11)#013505

Podívej se na to, jestli to takhle vyhovuje. Vytiskne to libovolný počet řádků, po šesti.

Příloha: zip