Autor Zpráva
Komoráček
Profil
Dobrý den,
v přiloženém makru se nemohu zbavit chyby 13 při jakékoliv změně obsahu buňky B1 ( či proměnné CEZ_Level ).
Můžete mi nějak poradit ?
Děkuji
S úctou
Jaroslav Komora
602 248 248


Private Sub Worksheet_Change(ByVal Target As Range)

Dim CEZ As Range
Dim CEZ_Level As Range
Set CEZ = Range("C1")
Set CEZ_Level = Range("B1")

Select Case Union(CEZ, Target)

Case Is >= CEZ_Level

Range("A1").Select
Selection.Font.Bold = True

Select Case Union(CEZ, Target).Value
Case Is <= 2
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 49407
.TintAndShade = 0
.PatternTintAndShade = 0
End With
With Selection.Font
.Color = -16776961
.TintAndShade = 0
End With
Case Else
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 5287936
.TintAndShade = 0
.PatternTintAndShade = 0
End With
With Selection.Font
.Color = -0.499984740745262
.TintAndShade = 0
End With
End Select


Shell "C:\Program Files (x86)\Winamp\winamp.exe " + "C:\Zvukies\Sparcle.wav"
Text = Range("A1")
Procento = Trim(Str(Range("C1")))
MsgBox "Ticker " + Text + " dosáhl zisku " + Procento + " % !!!"

CEZ_Level = CEZ_Level * 1.1

Case Else

Range("A1").Select
Selection.Font.Bold = False

With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
With Selection.Font
.ColorIndex = xlAutomatic
.TintAndShade = 0
End With


End Select

End Sub

Vaše odpověď

Mohlo by se hodit

Zvažte, zda se neobrátit na specializované fórum, toto se zabývá především webovou problematikou.

Prosím používejte diakritiku a interpunkci.

Ochrana proti spamu. Napište prosím číslo dvě-sta čtyřicet-sedm: