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

• #29813 bsh addikt Terra86 #29812

  Új Válasz 2015-12-11 10:30:15 #29813

  Ú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 Terra86 #29812 üzenetére

  Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Cells(Target.Row, Me.Columns.Count).End(xlToLeft).Column > 1 Then
  Call ExtendSelection(Target)
  End If
  End Sub
  Private Sub ExtendSelection(ByVal Target As Range)
  Me.Range(Cells(Target.Row, Target.Column), Cells(Target.Row, Cells(Target.Row, Me.Columns.Count).End(xlToLeft).Column)).Select
  End Sub

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