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

• #54070 Delila_1 veterán karlkani #54069

  Új Válasz 2025-02-09 17:43:45 #54070

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz karlkani #54069 üzenetére

  Lehet, hogy le van tiltva a makró futtatása. Az Immediate ablakba (a VBE-ben Ctrl+g-re jön elő) írd be: Application.EnableEvents = True, és enterezd le.
  A makrót kibővítheted, hogy pl. az első oszlopra kattintva hajtsa végre a feladatot.
  Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim usor As Long
    If Target.Column = 1 Then
        Application.EnableEvents = False
        usor = Range("A1").End(xlDown).Row
        ActiveSheet.CommandButton1.Top = Rows(usor).Top
         Cells(usor, 1).Select
        Application.EnableEvents = True
    End If
End Sub

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