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

• #23801 Delila_1 veterán róland #23800

  Új Válasz 2014-10-17 22:02:43 #23801

  Ú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 róland #23800 üzenetére

  If Target.Column = 7 Then ' ha a G (hetedik) oszlopban kattintasz egy cellára, akkor hajtja végre a Then ágat

  sor = Target.Row 'a sor változó felveszi a kattintás helyének a sorszámát. Ha a G10-re kattintottál, a sor változó értéke 10 lesz

  Application.EnableEvents = False letiltja az eseménykezelést

  Range(Cells(sor, "B"), Cells(sor, "F")).Copy 'másolja a B10: F10 sort (ha a 10. sorra kattintottál)

  Range("H18").PasteSpecial xlPasteValues 'a H18 cellába beilleszti az értéket

  Application.CutCopyMode = False 'megszünteti a kijelöltséget

  Range("B4").Select 'a B4 cellára áll

  Application.EnableEvents = True 'Visszaállítja az eseménykezelést
  End If 'no comment

  A H18 helyett nálad legyen Range("A" & Range("A3")). Az "A" helyett annak az oszlopnak a betűjelét írd, ahova másolni akarsz, a Range("A3") pedig a kiszámolt sorszámot adja.

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