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

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

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