MS Excel

Téma: vymazání obshahu určité oblasti + přesunutí kurz

Zaslal/a pepa272 29.8.2013 12:26

Ahoj,

chtěl bych vás poprosit o radu. Mám udělané makro, které mi odkryje list, vymaže určitou oblast ale zůstane na konci oblasti. Co bych chtěl já, aby se po smazání přesunulo na určenou oblast A2. a opět skrylo list. Můžete mi prosím poradit jak na to ? Vše funguje až na přesun kurzoru na oblast A2...

Private Sub CommandButton1_Click()
Sheets("Databaze").Range("=A2:D20000").ClearContents
Sheets("Formulář").Select
Sheets("Databaze").Visible = True
Range("A2").Select
Sheets("Databaze").Select
ActiveWindow.SelectedSheets.Visible = False
Range("A2").Select
MsgBox "Databaze byla úspěšně smazána", vbInformation, "Smazáno"
End Sub

Zaslat odpověď >

Strana: « předchozí 1 2

marjankaj(29.8.2013 16:03)#014962

Zapni si nahrávanie makra.
Klikni pravým tlačítkom myši na uško listu a vyber "premiestniť alebo kopírovať" , vyber možnosť "nový zošit" a zaškrtni "vytvoriť kópiu"
Potom dáš ina OK a prípadne nový zošit premenuješ.
Vypni makro
a prípadne nový zošit premenuješ.citovat

cmuch(29.8.2013 20:14)#014964

Sub UlozList()
'
' ulozi kopii listu do noveho sesitu
Sheets("List1").Copy

' ulozi soubor jako
ActiveWorkbook.SaveAs "c:\Záloha\" & "Záloha_" & (Format(Now, "d.m.yyyy")) & ".xlsm"
ActiveWorkbook.Close
End Subcitovat

Strana: « předchozí 1 2

Uživatelské menu

Nejste přihlášen(a)

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.