Příspěvky uživatele


< návrat zpět

Strana:  1 ... « předchozí  9 10 11 12 13 14 15 16 17   další » ... 29

Tak to čo som potrebovala funguje.
Problém je, že sa mi nedá kopírovať a prilepovať údaje z hárka do hárka.

Dalo by sa to ošetriť, aby ignorovalo kopírovanie nebralo ako akciu, len zápis do bunky?


Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Not ThisWorkbook.Saved Then ThisWorkbook.Save
Range("L5").ClearContents
ThisWorkbook.Saved = True

End Sub

elninoslov napsal/a:

No a keby sa po vykonaní vašeho makra vymazal aj zoznam Undo ? Teda sa napr. vymaže nejaká nepotrebná bunka, čo zruší doterajšiu históriu Undo (lebo VBA nevytvára Undo), a nastaví sa príznak Saved.


Ďakujem za nápad, spravila som to tak, funguje to.

elninoslov napsal/a:

V prípade, že sú rovnaké vždy po sebe, ... Ak nejdú po sebe tak napr. (maticový vzorec
OBLAST_ODD je Definovaný názov
)


Ďakujem, funguje.

elninoslov napsal/a:

No a keby sa po vykonaní vašeho makra vymazal aj zoznam Undo ? Teda sa napr. vymaže nejaká nepotrebná bunka, čo zruší doterajšiu históriu Undo (lebo VBA nevytvára Undo), a nastaví sa príznak Saved.


Vyskúšam a uvidím.

Pavlus napsal/a:

Zavřít a znovu otevřít sešit. Triviální, ale účinné ;-).
P.


Áno aj tak robím, ale hľadám iné riešenie.

Rejpal napsal/a:

Nějaká zrada, soubor 1kb = ??


Už by to malo byť ok, nahrala som nanovo.

Ako zapezpečiť, aby pri kliknutí na odd. v stĺpci A (KUCH,OK,NK,UK,ORL,OMFCH,KPCH) ma hodilo na posledný zápis (posledné číslo) v stĺpci A.

prvá časť - vymeniť č za nulu sa dá cez "ďalekohľad" -hľadať a nahradiť

Excel 2007

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Not ThisWorkbook.Saved Then ThisWorkbook.Save
End Sub


Keď dám krok späť, tak je makro nefunkčné.
Zmeny uložené makrom sa vrátia späť.

Bohužiaľ to tento office umožňuje.

https://support.office.com/sk-sk/article/vr%C3%A1tenie-sp%C3%A4%C5%A5-op%C3%A4tovn%C3%A9-vykonanie-alebo-zopakovanie-akcie-84bdb9bc-4e23-4f06-ba78-f7b893eb2d28


"Zmeny môžete vrátiť späť dokonca aj po ich uložení..."

Tlačítkom? Tlačítkom spúšťaš makro?

príloha? aký office? excel 2007 má 7 podmienok podmieneného formátu a medzi nimi je aj ponuka farby

Ty nemáš čas učiť sa a chceš hotový výsledok...

Pozri... ale bez faktúry

http://qr-platba.cz/generator/

Dingo napsal/a:

Ta vybraná buňka je právě v tomto případě Target. Stačí tedy změnit např. na Target.Interior.ColorIndex = 0 - nebo jiné číslo pro nějakou jinou barvu.


Vďaka, teraz je to ok.

Vďaka, funguje, a keby som ešte chcela meniť farbu samotnej vybratej bunky? Teraz mi svieti modrá. Chcela by som si ju zmeniť.

Asi treba aj tento kód niekde umiestniť, prípadne ešte inú podmienku zadefinovať.

Cells.Interior.ColorIndex = 0

Našla som toto makro, ktoré mi vyhovuje, len neviem ako vsunúť do makra, aby bunka, kde sa stretáva stĺpec s riadkom - aktívna bunka, kde je kurzor mala inú farbu.

Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

Static xRow
Static xColumn
If xColumn <> "" Then
With Columns(xColumn).Interior
.ColorIndex = xlNone
End With
With Rows(xRow).Interior
.ColorIndex = xlNone
End With
End If
pRow = Selection.Row
pColumn = Selection.Column
xRow = pRow
xColumn = pColumn
With Columns(pColumn).Interior
.ColorIndex = 17
.Pattern = xlSolid
End With
With Rows(pRow).Interior
.ColorIndex = 17
.Pattern = xlSolid
End With
End Sub


Našla som aj makro na označenie bunky, ale neviem ich dať dokopy.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
Cells.Interior.ColorIndex = 0
Target.Interior.Color = vbCyan
Application.ScreenUpdating = True
End Sub

http://wall.cz/index.php?m=topic&id=8351

vkladanie príloh

3. Příloha
Registrovaní uživatelé mohou vkládat přílohy:
- ve formátech: .gif .jpg .png .txt .zip .rar .tar .7z,


Strana:  1 ... « předchozí  9 10 11 12 13 14 15 16 17   další » ... 29

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

rozpis zápasů hráčů pro utkání dvou týmů

Anonym • 25.5. 11:54

Hromadné přepsání

elninoslov • 24.5. 10:29

Hromadné přepsání

Nomi • 24.5. 8:32

Index - každý rok začít od 1 Power Query

Alfan • 23.5. 9:17

nepřímý odkaz

elninoslov • 23.5. 0:00

nepřímý odkaz

bordov • 22.5. 18:35

vrácené hodnoty

Anonym • 22.5. 15:46