VBA ongelma

VBAntero

Haluan valita aktiiviselta sheetiltä solun A1.
Käsky
Cells(1,1).select
antaa virheilmoituksen "Select method of Range class failed". Mikä tässä voisi olla vikana?

6

355

Äänestä

    Vastaukset 6

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • VBAntero

      Edellinen käsky makrossa aktivoi halutun sheetin, ja siihen asti kaikki toimii hienosti, eli kyseinen sheet aktivoituu. Mutta sitten tuon Cells(1,1).Select -käskyn kohdalla saan virheilmoituksen. Sama juttu jos koitan laittaa tilalle Range("A1").Select -käskyn. Oikeinkirjoitus on tarkistettu moneen kertaan. Manuaalisesti solun A1 valitseminen kyllä onnistuu ihan normaalisti, jos kuittaan VBA-virheilmoituksen end-painikkeella.

      • kunde

        viittaisi siihen, että taulukko ei ole aktiivinen
        tai taulukko on suojattu
        tai solu lukittu.
        Voisiko olla yhdistetty solu?
        välttämättä koodissa ei tartte valita eikä aktivoida mitään jos tehdään esi. laskutoimituksia yms. soluille tai solualueelle
        Mikä on edellinen koodi makrossa , joka aktivoi taulukon.?
        Toimiiko ko. makro jossain toisessa työkirjassa - avaa uusi työkirja ja kokeile koodia.

        Kyllä toi koodisi pitäisi toimia...
        kokeile seuraavia variaatioita

        Sheets("Sheet1"). Activate
        Range("A1").Select

        tai
        Sheets("Sheet1"). Activate
        Sheets("Sheet1").Range("A1").Select

        tai
        Application.GoTo Sheets("Sheet1").Range("A1")

        toimiiko noilla?

      • ...
        kunde kirjoitti:

        viittaisi siihen, että taulukko ei ole aktiivinen
        tai taulukko on suojattu
        tai solu lukittu.
        Voisiko olla yhdistetty solu?
        välttämättä koodissa ei tartte valita eikä aktivoida mitään jos tehdään esi. laskutoimituksia yms. soluille tai solualueelle
        Mikä on edellinen koodi makrossa , joka aktivoi taulukon.?
        Toimiiko ko. makro jossain toisessa työkirjassa - avaa uusi työkirja ja kokeile koodia.

        Kyllä toi koodisi pitäisi toimia...
        kokeile seuraavia variaatioita

        Sheets("Sheet1"). Activate
        Range("A1").Select

        tai
        Sheets("Sheet1"). Activate
        Sheets("Sheet1").Range("A1").Select

        tai
        Application.GoTo Sheets("Sheet1").Range("A1")

        toimiiko noilla?

        Tuo Application.GoTo Sheets("Sheet1").Range("A1") toimi.

        Miksi .select ei tässä yhteydessä toimi, sitä en kyllä vieläkään ymmärrä. Taulukko oli aktiivinen, ei suojattu, ei lukittu, ja kyseessä ei ollut yhdistetty solu. Mutta samapa tuo.

        Solun valintaa käytin siksi, että saisin siihen liitettyä siihen toisesta workbookista kopioidun rivin, enkä ole yleensä saanut pastea toimimaan muuten kuin valinnan kautta. Miten se onnistuisi? Ei ainakaan näin:

        wb1.sheets(1).rows(1).copy
        wb2.sheets(1).rows(1).paste

        eikä näin:

        wb1.sheets(1).rows(1).copy
        wb2.sheets(1).cells(1,1).paste

        normaalisti tekisin näin, tällä kertaa vaan ei toiminut:

        wb1.sheets(1).rows(1).copy
        wb2.sheets(1).activate
        cells(1,1).select '(tähän tökkäsi)
        application.paste

      • kunde
        ... kirjoitti:

        Tuo Application.GoTo Sheets("Sheet1").Range("A1") toimi.

        Miksi .select ei tässä yhteydessä toimi, sitä en kyllä vieläkään ymmärrä. Taulukko oli aktiivinen, ei suojattu, ei lukittu, ja kyseessä ei ollut yhdistetty solu. Mutta samapa tuo.

        Solun valintaa käytin siksi, että saisin siihen liitettyä siihen toisesta workbookista kopioidun rivin, enkä ole yleensä saanut pastea toimimaan muuten kuin valinnan kautta. Miten se onnistuisi? Ei ainakaan näin:

        wb1.sheets(1).rows(1).copy
        wb2.sheets(1).rows(1).paste

        eikä näin:

        wb1.sheets(1).rows(1).copy
        wb2.sheets(1).cells(1,1).paste

        normaalisti tekisin näin, tällä kertaa vaan ei toiminut:

        wb1.sheets(1).rows(1).copy
        wb2.sheets(1).activate
        cells(1,1).select '(tähän tökkäsi)
        application.paste

        Sub KopioiToisestaToiseen()
        Workbooks("Koe1").Worksheets("Sheet1").Range("A1").Copy Workbooks("Koe2").Worksheets("Sheet1").Range("A1")
        End Sub

        Keep Excelling ;-)
        @Kunde

      • ...
        kunde kirjoitti:

        Sub KopioiToisestaToiseen()
        Workbooks("Koe1").Worksheets("Sheet1").Range("A1").Copy Workbooks("Koe2").Worksheets("Sheet1").Range("A1")
        End Sub

        Keep Excelling ;-)
        @Kunde

        Eikö tuosta puutu jotain, eihän Workbooks("Koe2").Worksheets("Sheet1").Range("A1") kai yksinään mitään tee..? Ja tuo kopioi vain yhden solun, se kyllä onnistuu yleensä pelkällä paste-komennolla, mutta rivin tai muun usean solun alueen liittämistä en ole saanut toimimaan muuta kuin valitsemalla ensin yhden solun (ja sitten paste erikseen).

        Anyhow, nyt törmäsin sitten toiseen ongelmaan. Koodi
        wb1.Sheets("testi").Activate
        testVar = Cells(1, 1).Value

        antaa testVar -muuttujan arvoksi työkirjan wb1 ensimmäisen sheetin (joka ei suinkaan ole "testi") solun A1 arvon, eikä "test"-sheetin solun A1 arvoa. Vaikka ensimmäisen käskyn jälkeen tuo "testi" onkin aktiivisena. Tämä varmaan liittyy tuohon edelliseen ongelmaan, koska sama sheet on kyseessä. Ei ymmärrä...

      • kunde
        ... kirjoitti:

        Eikö tuosta puutu jotain, eihän Workbooks("Koe2").Worksheets("Sheet1").Range("A1") kai yksinään mitään tee..? Ja tuo kopioi vain yhden solun, se kyllä onnistuu yleensä pelkällä paste-komennolla, mutta rivin tai muun usean solun alueen liittämistä en ole saanut toimimaan muuta kuin valitsemalla ensin yhden solun (ja sitten paste erikseen).

        Anyhow, nyt törmäsin sitten toiseen ongelmaan. Koodi
        wb1.Sheets("testi").Activate
        testVar = Cells(1, 1).Value

        antaa testVar -muuttujan arvoksi työkirjan wb1 ensimmäisen sheetin (joka ei suinkaan ole "testi") solun A1 arvon, eikä "test"-sheetin solun A1 arvoa. Vaikka ensimmäisen käskyn jälkeen tuo "testi" onkin aktiivisena. Tämä varmaan liittyy tuohon edelliseen ongelmaan, koska sama sheet on kyseessä. Ei ymmärrä...

        luulin, että osaat soveltaa...
        koodi pitää olla samalla rivillä, nyt heittää se n tässä 2 riville...

        Sub KopioiToisestaToiseen()
        Workbooks("Koe1").Worksheets("Sheet1").Range("A1").EntireRow.Copy Workbooks("Koe2").Worksheets("Sheet1").Range("A1")
        End Sub

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

    Takaisin ylös

    Luetuimmat keskustelut

    1. Huomenta

      Sinulle! Olen miettinyt sinua paljon yön aikana. 🫂
      Ikävä
      68
      1175

    2. Viesti sinulle

      Tiedät että tunteet ja ajatukset ja meillä on vahva yhteys mistä molemmat tiedetään. Odotan sinua ☀️
      Ikävä
      47
      900

    3. Mitä ihmettä pitäisi tapahtua

      Että me kohdataan ja saadaan tämä tilanne etenemään?
      Ikävä
      69
      792

    4. Olen kironnut sinut alimpaan helvettiin

      Hyvää matkaa.
      Ikävä
      82
      781

    5. Jos mies naisen prinsessakohtelu

      on sinulle liikaa, älä valitse prinsessaa 🦋🧚🏼‍♀️👸🏼
      Ikävä
      149
      736

    6. Ikävö sinua nainen!

      Rakastan sua! ❤️💛❤️💜🧡🧡💚🤎:💜💜❤️
      Ikävä
      64
      703

    7. Mitä sinulle on tapahtunut lapsena

      Kun olet noin sairas päästäsi? Pikkupojalle ( Miehen kehossa)
      Ikävä
      80
      699

    8. Miksi meille jäi

      Niin huonot välit vaikka meistä kumpikaan ei ole tunteilleen mitään voinut. Ehkä se kohtalo on sitä mieltä ettei kuitenk
      Ikävä
      37
      685

    9. Mikä on totta mikä ei?

      Onko juoru vai ei että nimeltä mainitsematon henkilö on tehnyt naiselle/naisille jotain joka on väärin?
      Kuhmo
      13
      676

    10. Rakas, rakkaampi, rakkain

      Olen tullut siihen johtopäätökseen, ettei minun kannata rakastaa. Kaikki joita olen koskaan rakastanut vain kohtelevat m
      Sinkut
      119
      590

    11. Tunteiden käsittely kertoo ihmisestä.

      Kun puhutaan "tavallisesta" ihmisestä, joka on suht tasapainoinen eläjä, niin puhutaan oikeastaan taitavasta tunteiden k
      Sinkut
      202
      586

    12. Haluan purkaa vielä tuntemuksia

      Tykkään sinusta kovin paljon❤️ olen surullinen tilanteestasi ja siitä mitä me olemme yhdessä joutuneet kokemaan. Tämä ei
      Ikävä
      19
      585

    13. Kyllä tiedän sun

      Likaiset pelit selän takana
      Ikävä
      52
      549

    14. Sara Sieppi ja hissi tänään

      Voi helvetin helvetti. Nytkö tätä naikkosta täytyy palvoa ja antaa etuoikeus hissiin, kun hän on vääntänyt kakaran maail
      Kotimaiset julkkisjuorut
      115
      525

    15. Onko tuo joku katkera nainen oikeasti

      Joka sinua syyttää?
      Ikävä
      90
      508

    16. Ketä ajattelen

      kun mietin, mitä sinulle kuuluu? En tunne sinua oikeasti, ja se on ehkä hyvä, koska jos tietäisin enemmän, se varmaan v
      Ikävä
      18
      500

    17. Työttömän miehen ihmisarvo

      ..parisuhdemarkkinoilla on olematon. Työtön mies on naisille ihmisjätettä, varsinkin jos sattuu olemaan vielä kunnolline
      Sinkut
      114
      475

    18. Persujen Puhoksen retki

      Perussuomalaiset olivat tehneet turistibussimatkan Puhokseen. Tosin raukat olivat niin peloissaan, etteivät uskaltaneet
      Perussuomalaiset
      148
      471

    19. YLINEN pilaa Ähtärin mahdollisuudet.

      Vuodeosastopäätös jossa Nina Ylinen (sdp) äänesti niiden lopettamisen puolesta, hoitajille potkut ja silti arviointimene
      Ähtäri
      25
      456

    20. Pilkettä sunnuntain silmässä

      😉 Jos tästä ketjusta löytyisi yksi ihminen, joka saisi sut hymyilemään tänään… Millainen hän olisi? Ei tarvitse kerto
      Sinkut
      65
      441
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt