@eLCHa
Neviem prečo nechce vymazávať celé riadky. Možno má niekde napravo nejaké iné tabuľky. Bola to iba otázka.
Ja som iba vymazal bunky B:K.
Ak to bude vyhovovať, tak môžeme optimalizovať. Nech rozhodne zadávateľ.
Prečo to nejde riešiť odstránením riadkov?
Toto by nestačilo?
Sub Makro1()
For i = Cells(Rows.Count, "B").End(xlUp).Row To 7 Step -1
If Cells(i, 2) = "" Then Range(Cells(i, "B"), Cells(i, "K")).Delete Shift:=xlUp
Next i
End Sub
No ja by som v prvom rade upravil trochu súbor.
Zlúčené bunky alebo riadky mi akosi nesedia.
No ja mám na notebooku tiež nastavený zip. Ak je tam rar, tak to musím rozbaľovať total comanderom a to sa mi vždy nechce. Takže občas odpovedám bez toho, aby som otvoril prílohu. No niekedy je rozdiel medzi napísaným a súborom dosť významný.
eLCHa napsal/a:
@marjankaj
Škoda že není "reverzní funkce" k HODNOTA.NA.TEXT - tedy já o ni nevím a proto se ptám - nic jsem nenašel.
Něco jako HODNOTA, ale s parametrem, v jakém formátu je text, takže nějak
=HODNOTA("20-pro-2012") česká verzia
=VALUE("20-dec-2012") anglická verzia
Text medzi apostrofmi sa nekonvertuje, teda treba to zabezpečiť inak. Makrom, alebo nejako zložito funkciou REPLACE(Nahradit) alebo SUBSTITUTE.
A zazipoval si ten súbor?
=IF(B1<>"";A1;"")
česky
=KDYŽ(B1<>"";A1;"")
Ako si to skopíroval? Odkiaľ?
Neviem, či som to dobre pochopil. Skús toto.
Sub Makro1()
Dim oblast As Range
Set oblast = Range(Selection, Selection.Offset(0, 8))
Range(oblast, oblast.End(xlDown)).Copy oblast.Offset(1, 0)
With Selection
Range(.Offset(0, 0), .Offset(0, 2)).ClearContents
Range(.Offset(0, 4), .Offset(0, 8)).ClearContents
End With
Set oblast = Nothing
End Sub
A tu je súbor. S prepínačmi.
Robil som to v open office, tam MROUND fungovalo.
Tak potom trochu inak.
=COUNTIF(ZAOKROUHLIT(R1C1:R3C1*2;1)/2;0,15)
A maticovo. CTRL+SHIFT+ENTER
Ako to zaokrúhľuješ?
=COUNTIF(MROUND(A1:A3;0,05);0,15)
Maticovo
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.