• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

Příspěvky uživatele

A toto ti nevyhovuje? Vyznač oblasť a spusti makro.
Sub Makro2()
Application.DisplayAlerts = False
With Selection
.MergeCells = True
End With
Application.DisplayAlerts = True
End Sub

Tak toto bude už na umelú inteligenciu.
Ako vieš, že tento mail "novak@seznam.cz" vôbec existuje?

No neviem, či je to najšťastnejšie riešenie. Ale ani overenie dát nezabráni vloženie akejkoľvek hodnoty cez CTRL+C a CTRL+V

Najlepšie je zaheslovať ten súbor, aby sa ti doňho nikto nedostal. A potom si ho môžeš pokašlat iba ty sám.

A čím to asi bude, že tomu prd rozumiem?

=REPLACE(REPLACE(A2;5;0;" ");3;0;" ")
=nahradit(nahradit(A2;5;0;" ");3;0;" ")

Niečo takéto?
Sub Makro1()
riadok = 3
Do Until Cells(riadok, 1) = ""
If Cells(riadok - 1, 1) + 1 <> Cells(riadok, 1) Then
Cells(riadok, 1).EntireRow.Insert
Cells(riadok, 1) = Cells(riadok - 1, 1) + 1
riadok = riadok + 1
Else
riadok = riadok + 1
End If
Loop
End Sub

A k čomu ti bude tá príloha?

A nebolo by jednoduchšie to "x" zapísať priamo do potrebnej bunky 1-12?

nejako takto?
Sub Makro1()
Application.AutoCorrect.AddReplacement What:="+", Replacement:=":"
End Sub
Sub Makro2()
Application.AutoCorrect.DeleteReplacement What:="+"
End Sub

Asi to bude niečo dôležité.
A ako potom napíšeš to +

Ešte to všetko dajte do jedného tlačítka.

Ak ty nechceš používať makra, tak čo ak by to namiesto teba obsluhoval niekto komu makrá nevadia?

@JOHAN
Čo je na tom nezrozumiteľné, aby si priložil súbor v exceli? Z tvojho obrázka nie je jasné či je to vo Worde alebo v Skicári. Tu si v sekcii EXCEL, tak to skús pochopiť. Nepotrebujeme tých tvojich 30 rodokmeňov.

Toto je schopný urobiť jedine elninoslov. Ten si vytvorí aj 50 súborov. Možno až na 20. krát, alebo aj viac.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje