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

• #19607 Delila_1 veterán apeelme #19605

  Új Válasz 2013-11-21 17:44:20 #19607

  Ú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 apeelme #19605 üzenetére

  Ezen sajnos nem tudok változtatni, de ha már rákérdeztél, a lentebbi makrót leegyszerűsítheted. A 2. és 3. oszlophoz együttesen is meg lehet adni a naptár helyzetét.

  Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Select Case Target.Column
  Case 2, 3
  Me.Calendar1.Left = ActiveCell.Left + ActiveCell.Width + 2
  Me.Calendar1.Top = ActiveCell.Top + ActiveCell.Height
  Me.Calendar1.Visible = True
  Me.CommandButton1.Left = Me.Calendar1.Left
  Me.CommandButton1.Top = Me.Calendar1.Top + Me.Calendar1.Height
  Me.CommandButton1.Visible = True
  Case Else
  Me.Calendar1.Visible = False
  Me.CommandButton1.Visible = False
  End Select
  End Sub

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