EXCEL - spuštění makra při změně hodnoty v buňce Vyřešeno

[Toomicek]

Ahoj,

mám makro:

Kód: Vybrat vše

sub LOGO()
Select Case Range("U6").Value
        Case "Picture 1": ShowPicture ("Picture 1")
        Case "Picture 2": ShowPicture ("Picture 2")
        Case "Picture 3": ShowPicture ("Picture 3")
        Case "Picture 4": ShowPicture ("Picture 4")
    End Select
End Sub

Sub ShowPicture(picname As String)
    On Error Resume Next
    Sheets("Titulní_list").Shapes("Picture 1").Delete
    Sheets("Titulní_list").Shapes("Picture 2").Delete
    Sheets("Titulní_list").Shapes("Picture 3").Delete
    Sheets("Titulní_list").Shapes("Picture 4").Delete
    On Error GoTo 0

    Sheets("Pom. Výp.").Shapes(picname).Copy
    Sheets("Titulní_list").Range("G10").Select

    Sheets("Titulní_list").Paste
End Sub


které mi při změně firmy v buňce vrátí logo společnosti (obrázek).

Jenže se spustí pomocí tlačítka, což nechci. Jsem amatér co se týká VBA, a proto nevím, jak nastavit makro aby se spouštělo se změnou v dané buňce :(

Prosim o radu.

díky Tom

[Reklama]

[cmuch]

Toto makro vlož do příslušného listu

Kód: Vybrat vše

Private Sub Worksheet_Change(ByVal Target As Range)

  If Target.Address(False, False) = "B2" Then
    Application.EnableEvents = False
     Call LOGO
    Application.EnableEvents = True
  End If
End Sub

[Toomicek]

Díky za rychlou odpověď, ale já mám trochu komplikovanější problém co na to koukám.

Používám, již zavedený excel se zaheslovanýma makrama tudíž musím používat personální makra. Nemůžu tedy vkládat do listů makra. Když sem dal to co si psal do modulu, tak to zahlásilo : Sub or Function not defined :(

--- Doplnění předchozího příspěvku (07 Srp 2014 15:27) ---

A taky jsem zjistil, že já vlastně buňku neměním, ale jelikož se odkazuje na jinou, tak se vlastně jen přepočítá :(

Tam je nějaký to worksheet_calculate, ale s tim taky neumim :(

[Toomicek]

Vyřešil jsem sám.,přes funkci worksheet.change.,měl jsem špatně range :(