Excel makro: error 1004 Vyřešeno

[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

[Reklama]

[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



[vlastik133]

Sice nechápu jak, ale funguje to. Moc Díííky.