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?
VBA ongelma
VBAntero
6
331
Vastaukset
- 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.
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 ... 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.pasteSub 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 ;-)
@KundeEikö 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ä... ... 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ä.
Luetuimmat keskustelut
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ärjest595617Yritystuet 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 tul944935Suomen kansa puhunut: Purra huonoimpia ministereitä
Kouluarvosanalla 6–, eli samaa tasoa mitä Purran oikeakin koulutodistus. Epäpätevyys on tullut huomattua Suomen talouden3433954Ylen 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, jota1403262Suomalaista yrittäjää ei kommunistista erota
Muualla maailmassa yrittäjät elävät asiakkaiden rahoilla, Suomessa palkansaajien maksamilla veroilla. Palkansaajahan ma472739- 252088
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 ed1142031Ulkoministeriön konsulipäällikkö arvostelee rajusti Haavistoa: "Täällä on pelon ilmapiiri"
"– Täällä on ministerin toimien takia aivan selvästi pelon ilmapiiri. Jos sellaisen annetaan pesiytyä virkamieskulttuuri101907- 2481862
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 sovitell801829