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ä
      65
      998

    2. Mitä ihmettä pitäisi tapahtua

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

    3. Viesti sinulle

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

    4. Jos mies naisen prinsessakohtelu

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

    5. Olen kironnut sinut alimpaan helvettiin

      Hyvää matkaa.
      Ikävä
      72
      656

    6. 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
      645

    7. SAHIMÄKI LOPETA

      Miksi käyt Tupamäen Pekan kimppuun.?? Hänen asia mitä hän tekee tiloillaan. Oletko omista POTKUISTASI yhä katkera turve
      Ähtäri
      46
      633

    8. Ikävö sinua nainen!

      Rakastan sua! ❤️💛❤️💜🧡🧡💚🤎:💜💜❤️
      Ikävä
      43
      570

    9. Rakas, rakkaampi, rakkain

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

    10. 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
      510

    11. Tunteiden käsittely kertoo ihmisestä.

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

    12. Mitä sinulle on tapahtunut lapsena

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

    13. 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
      461

    14. 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
      62
      406

    15. Jos olet aidosti jostakin

      kiinnostunut, niin yrität myös lähestyä irl. 😁
      Ikävä
      52
      383

    16. Tiedätkö kun on

      Ikävä sinua melko usein.
      Ikävä
      17
      382

    17. Kyllä tiedän sun

      Likaiset pelit selän takana
      Ikävä
      42
      378

    18. 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
      84
      365

    19. Työttömän miehen ihmisarvo

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

    20. YLINEN pilaa Ähtärin mahdollisuudet.

      Vuodeosastopäätös jossa Nina Ylinen (sdp) äänesti niiden lopettamisen puolesta, hoitajille potkut ja silti arviointimene
      Ähtäri
      22
      358
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt