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
Johan-Kraczmar napsal/a:
Klobouk dolů..... Díky moc!!!!
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.
A čo taký jednoduchý nápad, priložiť excelový súbor?
JPG súbory si môžeš vyfarbovať v skicári.
Hezká fotka
lubo napsal/a:
=HODNOTA(DOSADIT(A1;".";".1.1900 "))*24
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.