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

331

Äänestä

    Vastaukset

    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. Vuonna 2026 jää entistä vähemmän rahaa käteen palkansaajille

      Työttömyysvakuutusmaksu nousee 0,3 prosenttia. Työeläkemaksu nousee 7,15 prosentista 7,3 prosenttiin. Työmarkkinajärjest
      Maailman menoa
      75
      6197

    2. Yritystuet pois ja työeläkevaroilla maksettava valtion velka pois

      Nyt on teille kerrottu keino kuinka Suomen velkaongelmasta päästää eroon kertalaakista. Älkää saatanat enää minulle tul
      Maailman menoa
      116
      5421

    3. Suomen kansa puhunut: Purra huonoimpia ministereitä

      Kouluarvosanalla 6–, eli samaa tasoa mitä Purran oikeakin koulutodistus. Epäpätevyys on tullut huomattua Suomen talouden
      Maailman menoa
      437
      4335

    4. Aleksei Miltsakov - venäläinen uusnatsi antaa oppitunteja lapsille

      34-vuotias Miltsakov palvelee Le Monden mukaan yhä Ukrainassa tiedusteluun ja sabotaasiin erikoistuneen Russitš-yksikön
      Maailman menoa
      60
      3599

    5. Ylen juttu sisäministeristä oli selvän tarkoitushakuinen

      haluttiin vielä vuoden loppuun saada joku "kohu". (Olisiko Yle tehnyt jutun jos sisäministerinä olisi esim. RKP:n, jota
      Maailman menoa
      150
      3387

    6. Suomalaista yrittäjää ei kommunistista erota

      Muualla maailmassa yrittäjät elävät asiakkaiden rahoilla, Suomessa palkansaajien maksamilla veroilla. Palkansaajahan ma
      Maailman menoa
      65
      2904

    7. Käykö tiekarhu tasapuolisesti Hyrynsalmen teillä??

      Mitä olette mieltä?
      Hyrynsalmi
      29
      2246

    8. Joulun ruokajonoissa entistä enemmän avuntarvitsijoita - Mitä ajatuksia tämä herättää?

      Räppärit Mikael Gabriel, VilleGalle ja Jare Brand jakoivat ruokaa ja pehmeitäkin paketteja vähävaraisille jouluaattoa ed
      Maailman menoa
      135
      2245

    9. Mitä aiot tehdä uudenvuoden aattona

      Mitä olet suunnitellut tekeväsi uudenvuoden aattona ja aiotko ensi vuonna tehdä jotain muutoksia tai uudenvuoden lupauks
      Sinkut
      97
      2128

    10. Pyydän anteeksi etten osannut ratkaista

      Mitään muuta kuin lähtemällä. Et oikein tullut vastaan etkä kuunnellut. Tuntui että minun piti koittaa sopia ja sovitell
      Ikävä
      89
      2092
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt