inputboxin automaattinen sulkeminen?

inputbox

Käytän makroa siirtämään valitun alueen arvot käyttäjän inputboxilla valitsemaan paikkaan:

Set Kohde = Application.InputBox("anna kohde", Type:=8) ' minne tiedot siirretään

Tuohon voi siis syöttää kohteen hiirellä. Nykyisellään käyttäjän pitää kuitenkin vielä hyväksyä kohde erikseen joko hiirellä tai painamalla enteriä. Onko mitään keinoa saada excel "painamaan automaattisesti enteriä" heti kohteen hiirellä valitsemisen jälkeen?

2

61

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • mitenkäs käyttäjä voisi sitten korjata vahinkovalinnan jos sattuisi klikkaamaan vahingossa väärää solua/aluetta ja ei olisi korjausmahdollisuutta?
      uskon, että impossible mission
      jos esim.käyttäisi selection change tapahtumaa sekin reagoi heti ekaan valintaan ja jos jotenkin kikkailisi, niin silti se valinta pitäisi sitten jotenkin kuitattua- eli unohda koko juttu.

      • inputbox

        Tiedossa olikin, ettei virhettä voisi korjata, mutta sen riskin olin valmis ottamaan. En löytänyt muualtakaan keinoa automaattiselle kuittaamiselle, joten kai se on sitten mahdotonta. Onneksi makrolla saa silti hoidettua muutamia siirtämiseen liittyviä vaiheita automatisoitua.


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

    Luetuimmat keskustelut

    1. 4 kuoli kolarissa

      Kenen vastuulla tienhoito? Sohjoa ja vettä tie täynnä. Oliko säästetty tienhoidossa? Järkyttävä onnettomuus.
      Joensuu
      345
      13181
    2. Nainen, moraali on koetuksella sun kanssa

      Koen nyt olevani rappiolla ja kyllä, omaa syytäni ja itsekontrollin puutetta, mutta olethan kyllä puoleensavetävä, ettei
      Ikävä
      97
      2007
    3. Kuka on oikein

      Kaivattusi?
      Ikävä
      93
      1759
    4. Mikä on lempikuvasi

      Kaivatustasi?
      Ikävä
      83
      1663
    5. Onko kenelläkään tästä tietoo?

      https://www.haapavesi-lehti.fi/artikkeli/lukijalta-ilkka-repo-etsii-nimettoman-kirjeen-lahettajaa Olisi tärkeä saada te
      Haapavesi
      45
      1191
    6. Mitä sinä näet

      kun katsot peiliin?
      Ikävä
      95
      1159
    7. Ovatko miehet niin heikkoja ja lahjattomia, etteivät siedä tasa-arvoa?

      Muutenhan ei ole mitenkään perusteltavissa, miksi miesten pitäisi saada etuoikeuksia ja etumatkaa. Sehän tarkoittaisi, e
      Maailman menoa
      273
      1006
    8. Ihastukselleni

      Kun viimeksi nähtiin, niin sisälläni repesi myrsky ja salamat iskivät kuin rajuilma. En halunnut katsoa sinua, en halunn
      Ikävä
      21
      983
    9. Se helpottaisi oloa jos

      Se toinen tietäisi että molemmat tykkäämme toisistamme. Se on asia mikä vaivaa ja ahdistaa minua vaikka tilanne olisikin
      Ikävä
      73
      967
    10. Suomussalmi News -valvontakameran tunnisteet pojista

      Pojat on aina poikia, mutta kiusanteko ja muu ilkivalta ei ole hyväksyttävää. Suomussalmi News -ryhmässä on uunituore vi
      Suomussalmi
      27
      944
    Aihe