Kohdistin palaamaan makron suorittamista edeltävään soluun

Aloittelija...

Olen tehnyt erääseen tehtävään liittyen makron joka muuttaa koko taulukon tekstin kursivoiduksi, asettaa fonttikooksi 12
ja tasaa sen oikealle. Homma toimii muuten hyvin mutta kohditimen pitäisi palautua samaan soluun jossa se oli ennen makron suorittamista. Solu ei luonnollisesti ole määriteltävissä etukäteen.

Löytyisikö keneltäkään gurulta tietoa miten tuollaisen pystyy tekemään?

2

358

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • paavali50

      Laita makron alkuun: Set p = ActiveCell
      Ja loppuun: p.Activate

    • jos oikein tekee eli ...

      Sub Koe1()
      With Cells
      .Font.Size = 12
      .Font.Italic = True
      End With
      End Sub

      mutta makronauhottimella tehdessä olet siirtänyt kohdistuksen alkuperäisestä solusta pois, joten vaatii palautuksen esim. noin

      Sub Koe2()
      Dim Vanha As String
      Vanha = ActiveCell.Address
      'koodia...
      Range(Vanha).Select
      End Sub

    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Luetuimmat keskustelut

    1. Moikka rakas

      Oon miettinyt meidän välistä yhteyttä viime aikoina. En ihan osaa pukea sanoiksi, mitä kaikkea tunnen, mutta halusin vaa
      Ikävä
      20
      4063
    2. Immu otti pataan

      Olen pettynyt, hänen piti viedä Stagalaa kuin litran mittaa - mutta kuinka kävikään? Voi hemmetti sentään.... Ääääääh!
      Kotimaiset julkkisjuorut
      238
      3580
    3. Malmin tapaus on järkyttävä

      Kolme ulkomaalaistaustaista miestä raiskasi nuoren tytön tavalla, jota ei meinaa uskoa todeksi. Mikä voisi olla oikeampi
      Maahanmuutto
      488
      1857
    4. Mitä haluaisit kysyä

      Kaivatultasi?
      Ikävä
      139
      1624
    5. Tykkäätkö halaamisesta?

      Minä en. Tänään tuttava, jolle olen maininnut että en pidä halaamisesta, yritti halata minua ja olen vieläkin ihan raivo
      Maailman menoa
      149
      1561
    6. Hinduilu on suurta eksytystä

      tekosyvällinen tarina uppoaa moneen. Harhautusta todellisen Jumalan yhteydestä. Kuka haluaisi nähdä sielunvaelluksessa
      Hindulaisuus
      578
      1480
    7. Näetkö feminismin uhkana

      Vai mahdollisuutena kun deittailet naisia? Mitä miehet mieltä feminismistä?
      Ikävä
      217
      1427
    8. Miksi kaivata miestä

      jolla ei edes muna toimi?
      Ikävä
      113
      1375
    9. Oot nainen kaunis

      muista hymyillä jatkossakin.
      Ikävä
      49
      1109
    10. Mitkä asiat teidän elämässänne on

      Tällä hetkellä parasta?
      Ikävä
      75
      1065
    Aihe