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

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • kunde

      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ä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. 4 kuoli kolarissa

      Kenen vastuulla tienhoito? Sohjoa ja vettä tie täynnä. Oliko säästetty tienhoidossa? Järkyttävä onnettomuus.
      Joensuu
      361
      14161

    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ä
      100
      2141

    3. Kuka on oikein

      Kaivattusi?
      Ikävä
      94
      1809

    4. Mikä on lempikuvasi

      Kaivatustasi?
      Ikävä
      83
      1693

    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
      1271

    6. Mitä sinä näet

      kun katsot peiliin?
      Ikävä
      97
      1220

    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
      280
      1083

    8. 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
      28
      1044

    9. 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
      1033

    10. 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
      997
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt