• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

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)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse