MS Excel

Téma: úprava textu

Zaslal/a renca 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

Zaslat odpověď >

eLCHa(12.4.2013 6:15)#012838

Ehm - A čo si predstavujete pod takým pojmom 'suchý řádek'
;)

Sub Makro1()
Dim rRange As Range
Set rRange = Intersect(Range("F:F"), Range("B:B").SpecialCells(xlCellTypeConstants).EntireRow)
rRange.FormulaR1C1 = "=MID(RC2,9,32767)"

'pokud to chcete v hodnotách a ne ve vzorcích tak odkomentujte následující řádky
' Set rRange = Intersect(rRange.EntireColumn, ActiveSheet.UsedRange)
' rRange.Value = rRange.Value

Set rRange = Nothing
End Subcitovat

Uživatelské menu

Nejste přihlášen(a)

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.