< návrat zpět

MS Excel

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

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:  1 2   další »
icon AL(29.8.2013 12:47)#014947
avatar
Mno, keď už je nutné tam mať asi 100x Select bude to asi chcieť prehodit poradie instrukcii, zrejme takto:

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

díky za odpověď, ale vyhodilo to chybu ve zvýrazněném řádku.

Private Sub CommandButton1_Click()
Sheets("Databaze").Range("=A2:D20000").ClearContents
Sheets("Formulář").Select
Sheets("Databaze").Visible = True
Sheets("Databaze").Select
Range("A2").Select
ActiveWindow.SelectedSheets.Visible = False
Range("A2").Select
MsgBox "Databaze byla úspěšně smazána", vbInformation, "Smazáno"
End Subcitovat
icon AL(29.8.2013 13:30)#014950
avatar
O.k., síce prasácky, ale takto:Sub CommandButton1_Click()
Sheets("Databaze").Range("=A2:D20000").ClearContents
Sheets("Formulář").Select
Sheets("Databaze").Visible = True
Sheets("Databaze").Activate
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
Všetkým znalcom VBA sa ospravedlňujem za horeuvedený kód, ktorý by som sám nenapísal, upravujem len ten od pepy...citovat
pepa272(29.8.2013 13:37)#014951
avatar
AHoj,

tak to vyhodí chybu 400 :-(citovat
icon AL(29.8.2013 13:40)#014952
avatar
Tak to netuším, páč mne to chybu nevyhadzuje a asi to tým pádom nenasimulujem..

edit:
skús totoPrivate Sub CommandButton1_Click()
Sheets("Databaze").Range("=A2:D20000").ClearContents
Sheets("Formulář").Select
Sheets("Databaze").Visible = True
Sheets("Databaze").Activate
Sheets("Databaze").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
vieš, ono je problém zistiť, kde presne máš ten commandbutton umiestnený, tým pádom len hádam, keď je tak ťažké, vložiť sem prílohu...citovat
pepa272(29.8.2013 13:53)#014954
avatar
Ok, a kdybych ti to poslal ?citovat
icon AL(29.8.2013 13:59)#014955
avatar
nene, nič neposielaj, vlož to ako prílohu do príspevku, niekto z kolegov sa na to potom pozrie - ešte vyskúšaj ten posledný kód, ktorý som sem dával..citovat
pepa272(29.8.2013 14:01)#014956
avatar
No ty jsi úplně nejlepší !!!!! Takhle to funguje díky moc !!!!

Můžu ještě něco ? Mám ještě jedno makro na ukládání celého sešitu. Chtěl bych jen tento list databáze jak na to ?

Sub ulozit()
Cil = "c:\Záloha" 'adresář pro uložení zálohy
On Error Resume Next
MkDir Cil
ActiveWorkbook.SaveCopyAs Filename:=Cil & _
"\" & "Záloha_" & (Format(Now, "d.m.yyyy")) & ".xlsm"
ActiveWorkbook.save
MsgBox "Soubor byl úspěšně uložen", vbInformation, "Uloženo"

End Subcitovat
icon AL(29.8.2013 14:09)#014957
avatar
no, úplne primitívne, po tom, čo uložíš kópiu cez SaveCopyAs, tak z nej odstráň v cykle tie ostatné listy okrem listu, ktorý tam chceš nechať a ulož ešte raz 1

Ono sa to dá i inak, konkrétny list vykopírovať do nového súboru a ten potom uložiť.

Je to trivialita, na to určite prídeš sám, ja už zas musím ísť robiť niečo, za čo ma platia v práci...citovat
pepa272(29.8.2013 14:14)#014958
avatar
:-D ok, to neva já to nějak zkusim, každopádně děkuju moc tady za to !!!!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