< návrat zpět

MS Excel


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

Zaslal/a 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 #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
#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 #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
#014951
avatar
AHoj,

tak to vyhodí chybu 400 :-(citovat
icon #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
#014954
avatar
Ok, a kdybych ti to poslal ?citovat
icon #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
#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 #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
#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

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

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09