makro excel Vyřešeno

Programy pro práci v kanceláři (Word, Excel, Access…=>Office)

Moderátor: Mods_senior

pajdaj
nováček
Příspěvky: 5
Registrován: duben 20
Pohlaví: Nespecifikováno
Stav:
Offline

makro excel  Vyřešeno

Příspěvekod pajdaj » 08 dub 2020 09:09

Dobrý den,

potřeboval bych jestli je možné makro pro excel kdy:

- do aktuálního vybraného řádku, který vyberu (ne do nového řádku) se
- do určitého sloupce (N) se vepíše předurčený text
- následně do sloupce (P) se vloží aktuální datum
- a poté se do sloupce (T) vepíše předurčený text

Předem díky za odpověď/radu.

Reklama
Uživatelský avatar
elninoslov
Level 2.5
Level 2.5
Příspěvky: 386
Registrován: červen 13
Pohlaví: Muž
Stav:
Offline

Re: makro excel

Příspěvekod elninoslov » 08 dub 2020 10:15

A čím má byť to makro spúšťané ?

Kód: Vybrat vše

Sub Dopln()
Dim Oblast As Range
    If TypeName(Selection) <> "Range" Then MsgBox "Nieje je vybraná oblasť", vbCritical: Exit Sub
   
    Application.ScreenUpdating = False
    Set Oblast = Selection.EntireRow
    Intersect(Oblast, Columns("N")).Value = "předurčený text N"
    Intersect(Oblast, Columns("P")).Value = Date
    Intersect(Oblast, Columns("T")).Value = "předurčený text T"
    Application.ScreenUpdating = True
End Sub

pajdaj
nováček
Příspěvky: 5
Registrován: duben 20
Pohlaví: Nespecifikováno
Stav:
Offline

Re: makro excel

Příspěvekod pajdaj » 08 dub 2020 11:59

jo to jsem zapomněl...tlačítkem

Uživatelský avatar
elninoslov
Level 2.5
Level 2.5
Příspěvky: 386
Registrován: červen 13
Pohlaví: Muž
Stav:
Offline

Re: makro excel

Příspěvekod elninoslov » 08 dub 2020 17:50

Kód si vložte do modulu daného listu (Alt+F11), na list pridajte tlačítko (karta Vývojár), a tlačítku priraďte toto makro.

pajdaj
nováček
Příspěvky: 5
Registrován: duben 20
Pohlaví: Nespecifikováno
Stav:
Offline

Re: makro excel

Příspěvekod pajdaj » 09 dub 2020 07:24

Super díky moc, funguje výborně :thumbup:


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • EXCEL -jak otevřít 2 excel sobory abych je viděla současne a samostatně
    od Ketty02 » 30 srp 2024 21:19 » v Vše ostatní (sw)
    2
    4703
    od Riviera kid Zobrazit poslední příspěvek
    02 zář 2024 16:21
  • Přechod z Excel 21 na Excel 24
    od Snekment » 29 led 2025 13:46 » v Kancelářské balíky
    2
    12131
    od Snekment Zobrazit poslední příspěvek
    29 led 2025 15:05
  • Pohoda a excel Příloha(y)
    od brownwld » 06 kvě 2025 17:28 » v Kancelářské balíky
    1
    4431
    od atari Zobrazit poslední příspěvek
    07 kvě 2025 09:41
  • Excel - výpočet nočních hodin Příloha(y)
    od Uziv00 » 17 říj 2024 11:22 » v Kancelářské balíky
    3
    3275
    od lubo. Zobrazit poslední příspěvek
    24 říj 2024 00:00
  • Excel 2016 - vzorec kombinace podmínek Příloha(y)
    od MK_Vs » 08 led 2025 17:56 » v Kancelářské balíky
    5
    4007
    od lubo. Zobrazit poslední příspěvek
    14 led 2025 00:51

Zpět na “Kancelářské balíky”

Kdo je online

Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 4 hosti