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
344
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
Kansalla on oikeus tietää miksi persut pettävät
Koko kulunut hallituskausi on kysytty persuilta, minkä vuoksi he ovat pettäneet käytännössä jokaisen vaalilupauksen, ain2689409Kunnissa - siis myös kaupungeissa - viihtyvät ovat kommunisteja
Nehän ovat osa yhteiskunnan tuottamia instansseja, joista on vain haittaa veronmaksajille ja yrittäjlle, kuten ollaan ve52811Ammattiliitto 900 euroa/vuosi - Työttömyyskassa 72 euroa/vuosi
Ammattiliitosta eroamalla voi säästää jopa 800 euroa vuodessa. Mitä enemmän tienaat, sitä enemmän maksat liitolle. Esim2452028Kansalla on oikeus tietää mikä on SDP:n talousohjelma jolla maan talous
saadaan nousuun? Miksi puolue piilottelee sitä, vai eikö sitä ole? Tähän asti olemme vaan saaneet kuulla hallituksen ha1051940- 1441447
SDP todellisuudessa pahin pettäjä koskaan - se syyllistyi valtiopetokseen 1918
kun aloittivat kapinan maan laillista valtiojärjestystä vastaan. Punaiset saivat tukea Neuvosto-Venäjän bolsevikeilta,711438Iski taas katumus kun en jutellut sun kanssa
Silloin kun halusit. Mutta en enää voi sille mitään, en saa muutettua sitä hetkeä..1311373Kyriake=Kirkko
Kirkko, Kyriake Kirkko-sana tulee kreikankielen sanasta Kyriake=Herran omat, Kristuksen omaksi kastettujen suuri joukko931016- 71931
- 40848