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

• #1339 martonx veterán borovszkyg #1338

  Új Válasz 2011-01-09 22:57:11 #1339

  Ú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

  

  martonx

  veterán

  válasz borovszkyg #1338 üzenetére

  A sok félrebeszéd helyett inkább küldök egy megoldást:

  elkapod az adott munkalap cella kijelölés eseményét, és abba beleírod az alábbi sort:

  Range("A1").Value = Cells(ActiveCell.Row, 15)

  Ahol a 15 - annak az oszlopnak a száma, amelyiknek az értékét az A1-ben látni akarod.

  A fenti párbeszédünkre való tekintettel, inkább leírom a komplett 3 sort, ami kell nekünk:

  Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Range("A1").Value = Cells(ActiveCell.Row, 15)
  End Sub

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