Příspěvky uživatele
< návrat zpět
lugr napsal/a:
Co třeba takhle?Příloha: 49043_averageif.xlsx (11kB, staženo 4x)
A čo ak tam budú aj záporné čísla?
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? 
Jiří497 napsal/a:
Pomocí Ctrl+V obejdu ověření dat, ale už ne zamknutou buňku.
To máš pravdu. Ja som odpovedal zadávateľovi.
"tim padem tam nikdo nemuze vlozit nic jineho nez co je definovano v seznamu"
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!!!!
Zdá sa, že úroveň tejto stránky prudko stúpa.
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?
Uživatelské menu
\nMenu
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.
RSS nejnovější články