lugr napsal/a:
Funguje i na záporná čísla. Nevím jakou má podmínku.
A nejaký príklad nedáš?
lugr napsal/a:
Co třeba takhle?Příloha: 49043_averageif.xlsx (11kB, staženo 4x)
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.
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 +
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.