Příspěvky uživatele


< návrat zpět

úprava textu (11.4.2013 23:50)

ČAUKY,
prosím, prosím, v buňce B na suchých řádcích (na lichých nic)mám text, ten potřebuji do F s vyloučením prvních 8 znaků.

makro mám, ale zase mi to jde jen na jeden řádek, ale já jich mám 200.

Díky moc a klaním se Vám, jste BORCI

Sub Makro1()
'
' Makro1 Makro
'zapíše název do ř. 20 a dál ne

'Range("F20")
ActiveCell.FormulaR1C1 = "=MID(R[-14]C[-4],8,35)"
Range("F22").Select
End Sub

sloučené buňky - zrušení (11.4.2013 23:46)

Dobrý den,

prosím o pomoc: mám sloupec B-J v sudých řádcích sloučen. Potřebuji zrušit sloučení. Mám makro, ale udělá mi jen daný řádek a nevím jak dál, mám řádků 200.
Díky moc

Sub sloucene_bunky()
Range("B16:J16").Select
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlTop
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
Selection.UnMerge
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlTop
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlTop
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
Selection.UnMerge

End Sub

smazání "0" v buňce, nahradit "pr (11.4.2013 19:22)

Díky moc za radu, problém byl, že jsem neměla pole "Pouze celé buňky" zaškrtnuté, v makro jsem měla "part" místo "Whole".

ZDE je makro:
nejdřív převede buňky na hodnoty a pak místo "0" nahradí "nic".

CHTĚLA jsem se zeptat!!!! jestli jde napsat toto makro a spustit nad více sešity najednou, abych nemusela každý sešit otevřít zvlášť a pustit makro.

Díky moc

Sub Preved_nahodnoty_a_smaz_nuly()
Dim Lst As Worksheet
Dim Bunka As Object
Application.ScreenUpdating = False
For Each Lst In ActiveWorkbook.Worksheets
Range("K1:M200").Select ' zde si dopln jak potrebujes
For Each Bunka In Selection
Bunka = Bunka.Value
Next Bunka
Next Lst

Columns("K:M").Select
Selection.Replace What:="0%", Replacement:="", LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="0", Replacement:="", LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub

smazání "0" v buňce, nahradit "pr (11.4.2013 16:43)

Dobrý den,

úplný amatér, prosím o radu na makro.

Ve sloupcích K:M (200 řádků) se vyskytuje výsledek "0" a místo nuly, bych měla mít prázdnou buňku.

Díky moc


Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

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.

On-line nástroje