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

• #23844 bteebi veterán róland #23800

  Új Válasz 2014-10-21 15:36:35 #23844

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

  #23840: Kattints a B2-es cellába, majd Nézet → Panelek rögzítése → Ablaktábla rögzítése

  De ahogy látom, már megelőztek.

• #23843 bteebi veterán róland #23800

  Új Válasz 2014-10-21 15:36:18 #23843

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

  Application.EnableEvents = False

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