Stránka 1 z 1

Excel makro: error 1004

Napsal: 07 led 2012 12:42
od vlastik133
Na listu "Data z webu" mám makro, které mi v jednom sloupci nahrazuje desetinné tečky za desetiinné čárky. Vše funfuje až na to, že když jsem přepnutý na jiném listu a spustím toto makro, tak mi to hodí chybu: Run-time error ´1004. Jsem, začátečník, tak mne hned nekamenujte, jestli dělám nějaký jasný kopanec. Díky.

Sub nahrada()
Dim cil, c As Range
Set cil = Sheets("Data z webu").Range(Range("E1"), Range("E65536").End(xlUp))
For Each c In cil
c = Replace(c, ".", ",")
Next
End Sub

Re: Excel: error 1004

Napsal: 07 led 2012 16:18
od cmuch
Ahoj,
zkus toto:

Kód: Vybrat vše

Option Explicit

Sub nahrada()
Dim cil, c As Range
Dim actlist As Variant

' vypnuti aktualizace obrazovky
Application.ScreenUpdating = False
' jmeno aktivniho listu
actlist = ActiveSheet.Name
' nahrada
Sheets("Data z webu").Activate
Set cil = Sheets("Data z webu").Range(Range("E1"), Range("E65536").End(xlUp))
For Each c In cil
c = Replace(c, ".", ",")
Next
' zpet na list
Sheets(actlist).Activate
' zapnuti aktualizace obrazovky
Application.ScreenUpdating = True

End Sub


Re: Excel: error 1004  Vyřešeno

Napsal: 07 led 2012 22:05
od vlastik133
Sice nechápu jak, ale funguje to. Moc Díííky. :thumbsup: :thumbsup: :thumbsup: