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

• #29841 bteebi veterán Terra86 #29840

  Új Válasz 2015-12-11 18:19:01 #29841

  Ú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

  

  bteebi

  veterán

  válasz Terra86 #29840 üzenetére

  Jobb gomb a munkalapon, kód megjelenítése, majd a jobb oldali ablakba bemásolod a kódot, és már működik is.

• #29816 bteebi veterán Terra86 #29812

  Új Válasz 2015-12-11 11:45:08 #29816

  Ú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

  

  bteebi

  veterán

  válasz Terra86 #29812 üzenetére

  Ez elvileg azt csinálja, amit szeretnél:

  Sub kijelol()
  Dim lastcolumn As Integer
  lastcolumn = Cells(ActiveCell.Row, Columns.Count).End(xlToLeft).Column
  Range(ActiveCell, Cells(ActiveCell.Row, lastcolumn)).Select
  End Sub

• #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