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

• #41642 bsh addikt Fferi50 #41641

  Új Válasz 2019-08-23 13:37:01 #41642

  Ú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

  

  bsh

  addikt

  válasz Fferi50 #41641 üzenetére

  Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.CutCopyMode = False Then
Button_X.Width = 150
Button_X.Height = 20
Button_X.Enabled = True
Button_X.Visible = True
If (Target.Cells.CountLarge > 1) And (Target.Width < Application.Width) Then
Button_Y.Width = 250
Button_Y.Height = 20
............satöbbi
End If
Else
'Exit Sub
'ezekkel próbálkoztam, de ha ebben a szakaszban BÁRMIT csinálok, onnantól nem működik a copy/paste: eltűnik a kijelölés is (akár másik lapról is) és a vágólap is törlődik(!)
'Application.EnableEvents = False
'Button_X.Visible = False
'Button_X.Enabled = False
'Button_Y.Visible = False
'Button_Y.Enabled = False
'Application.EnableEvents = True
End If
End Sub

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