Hirdetés

Új hozzászólás Aktív témák

  • Delila_1

    veterán

    válasz LED333 #38875 üzenetére

    Az elsőre a válasz, hogy a laphoz kell rendelned egy makrót. Ennek a módját megtalálod a Téma összefoglalóban.

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column = 1 And Target > "" Then
    Sheets(2).Select
    ActiveSheet.Shapes(Target).Select
    End If
    End Sub

    Nálam a terméknevek az A oszlopban vannak. A második lapon lévő képek nevei megegyeznek az első lap termékneveivel.

    Ha a neveket tartalmazó lapon nem az A oszlopban vannak a nevek, akkor az If Target.Column = 1 -nél írd át az 1-et annyira, ahányadik oszlopra kattintást kell figyelnie a makrónak.
    Ha a képek nem a 2. lapon vannak, akkor a Sheets(2).Select sorban kell átírnod a 2-t.

    A füzetet makróbarátként (xlsm) kell mentened.

    Most nem ugrik be a második kérdésedre a válasz, de majdcsak jön valaki, aki kapásból tudja. :)

Új hozzászólás Aktív témák