Příspěvky uživatele

Třeba takhle: Sub Del()

Z = MsgBox("Chcete opravdu smazat data?", vbYesNo, "Smazat data")

Select Case Z
Case vbNo
Exit Sub
Case vbYes

pass = InputBox("Zadej heslo pro smazání dat", "Heslo")

If pass = "xxx" Then
Range("B:B").ClearContents
Else
MsgBox "Nesprávné heslo"
End If

End Select

End Sub

Zdravim,
pro tento pripad se vyborne hodi funkce Large, problemem vsak je doplneni nazvu produktu - pokud bude více produktu se stejnym procentem nakladu, bude uz vzorec slozitejsi, nicmene ne neresitelny - uz se tady na foru resil, nevim uz presne kde, ale zkus to najit...

Zdravim,

vas prvni dotaz ohledne otevreni sesitu na konkretnim listu byl resen zde: http://wall.cz/index.php?m=topic&id=1967

Vyber bunek A1 na vsech listech lze udelat touto procedurou pri otevreni (musi byt nakopirovana do modulu ThisWorkbook Private Sub Workbook_Open()
For Each List In Worksheets
List.Activate
Cells(1, 1).Select
Next
End Sub

staci cells.copy

Excel zachovává velikost bunek jen v pripade, ze kopirujes cely list - nejak by to nastavit slo, ale uz bych potreboval vic informaci o tom souboru, co pouzivas.
Muselo by se asi ulozit do promenne, sirka sloupcu a vyska radku a pak to v tom novem souboru pouzit...

Jo, to je jednoduchy - upravil jsem kod, kterej jsem uz vlozil.
Pokud bude bunka A1 na List1 obsahovat slovo "ne", procedura bude ignorovana a otevre se list, ktery byl jako posledni aktivni - bunku a list muzes jednoduse zmenit v prvnim radku procedury...

S tim zaskrtavacim polickem by se to melo asi tak, ze by se musel vytvorit uzivatelskej formular, kde by se umistilo ono zaskrtavaci tlacitko, ktere by se propojilo s nejakou bunkou, takze kdyz se zaskrtne, do bunky se zapise nejaka hodnota - makro pri spusteni by se potom vzdycky nejdriv podivalo, jestli je v te bunce hodnota, ktera formular povoluje nebo zakazuje...
Problem je, ze jak bys jednou policko zaskrtl, uz by se formular nikdy neukazal (dokud bys rucne neprepsal bunku, ktera je s polickem propojena)...

Zdravím,
tohle by Vam mohlo pomoci - tato procedura musi byt ulozena v modulu ThisWorkbook
Private Sub Workbook_Open()
If Worksheets("List1").Range("a1") = "ne" Then Exit Sub
Dim List As String
List = "List5"

Z = MsgBox("Chceš otevřít list: " & List & "?", vbYesNo, "Přejít na list")

Select Case Z
Case vbNo
Exit Sub
Case vbYes
Worksheets(List).Activate
End Select
End Sub

Pokud jde o zaskrtavaci policko - mozne to je, ale uz by to bylo o dost slozitejsi a vyzadovalo by to zapisovat "stav" policka do nejake bunky v sesitu

Jednoduse to jde takhle
Sub Odeslat_vyber()
Range("A1:C20,A22:C42").Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
Application.CutCopyMode = False
Application.Dialogs(xlDialogSendMail).Show "komu", "premet"
End Sub

V predposlednim radku muzete mezi uvozovky vyplnit e-mailovou adresu a predmet zpravy (nebo tam nebude nic, kdyz prijemce a predmet nebude vzdy stejny.

Toto makro muzete priradit k nejakemu tlacitku v sesitu (pokud ovsem posilate ony vybrane oblasti stale z jednoho sesitu - jinak musite umistit makro do personal.xls

co takhle?

Zkusil jsem to vyresit - prehled je na druhem listu!

'Worksheet_Change' je dostupny v modulu prislusneho listu, na kterem ke zmene dojde...

MOzna jsem spravne nepochopil, v cem je problem. Myslel jsem, ze se ti nevyfiltruji vsechna data, jen ta, ktera maji stejny format, jako ta bunka, podle ktere hledas. Potom by slo pro ucel filtru preformatovat hodnotu te bunky...

Mozna by pomohlo preformatovat pomoci funkce FORMAT(cislo, General), kde General je format, ktery ma bunka mit.
Zjistit, jaky format ma konkretni bunka lze takto: Activecell.NumberFormat

Makro ne nevratny zasah, takze pokud jste jiz tabulku zmenil, nelze to vratit zpet (pokud ovsem nemate nekde zmeny zaznamenany - potom lze provest ty stejne operace naopak).
Kazdopadne, pokud potrebujeme nejake upravy - bude nejlepsi prilozit vzorovy soubor s presnym popisem toho, co potrebujete...

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje