Hei,
minun pitäisi tehdä makro, jossa eräällä välilehdellä, Sheet1, olisi rivillä 3 viisi ruutua A-E sarakkeissa. Kun henkilö on jokaiseen ruutuun kirjoittanut jotain, hänen tulisi painaa F-sarakkeessa olevaa valmis nappia, jolloin makron tulisi siirtää A-E sarakkeissa oleva tieto Sheet2:lle sarakkeisiin A-E ensimmäiselle tyhjälle riville, tarkoitus siis kerätä usealta henkilöltä tietoa siten, että he käyvät syöttämässä vain tiedot Sheet1:n soluihin A3-E3, ja tämän jälkeen makro siirtää tiedot Sheet2:n ensimmäiseen tyhjään ruutuun. Samalla makron tulisi tyhjentää Sheet1:n ruudut A3-E3. Miten teen tämän? Todennäköisesti ei liian vaikea mutta en ole paljoa tehnyt makroja enkä osaa vaikka kuinka olen asiaa yrittänyt ratkaista.
Tod.näk. helppo makro-ongelma
Avuton makrojen kans
3
124
Vastaukset
- ozgrid
Alla linkki esimerkkiin makrosta, joka "leikkaa" tietyn alueen ja siirtää sen toiselle välilehdelle, ensimmäiselle tyhjälle riville. Koodia pitää tietysti "mulkata" sinun tarpeitasi vastaavaksi. Kuitenkin esimerkki siitä mitä tarvitaan.
http://www.ozgrid.com/forum/showthread.php?t=79254 http://www.kundepuu.com/viewtopic.php?f=155&t=412&p=492&hilit=tietokanta#p492
http://www.kundepuu.com/viewtopic.php?f=155&t=62&p=64&hilit=tietokanta#p64
http://www.kundepuu.com/viewtopic.php?f=155&t=20&p=22&hilit=tietokanta#p22
etuna tossa "tietokannassa " on se, että se on nimetty alue ja dynaaminen eli voit lisätä ja poistella tietoja ja aina "tietokanta" oikean kokoinen
Keep EXCELing
@Kunde- Avuton makrojen kans
Hei,
ja kiitos vastauksista, näistä oli todella paljon apua. Pääsinkin eteenpäin mutten vielä valitettavasti loppuun. Se koodi kyllä erinomaisesti etsii SHEET2:lta vielä sen ensimmäisen tyhjän rivin mutta jostain syystä se ei suostu lisäämään tietoa sinne. Minun koodini näyttää
Sub MoveActiveRow()
Application.ScreenUpdating = False
Dim strSheetName, strCellAddress As String
strSheetName = ActiveSheet.Name
strCellAddress = ActiveCell.Address(False, False)
Range("SYÖTTÖ").Cut
Sheets("Sheet2").Select
Range("A" & Range("A65536").End(xlUp).Row).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A" & ActiveCell.Row).Select
Sheets(strSheetName).Select
Range(strCellAddress).Select
Range("SYÖTTÖ").Delete
Application.ScreenUpdating = True
End Sub
Ja olen siis nimennyt sen syöttöalueen nimellä SYÖTTÖ.
Kiitos vielä,.
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Kylläpä on nautinnollista taas tämä palstan vassari valitus!
Lähes jokainen avaus on vassareiden kitinää ja valitusta. Eikö se tarkoitakin, että silloin asiat menee maassamme parem1203421Palkansaajilta kupattiin 27,5 mrd euroa työeläkkeisiin
Jo pelkän himmelin toimintakulut olivat 400 miljoonaa euroa, jolla olisi mukavasti tuottanut myös sote-palveluja hyvinvo342816HS: persujen v. 2015 turvapaikanhakijoista alle puolet töissä
Aikuisina Suomeen tulleista ja myönteisen päätöksen saaneista vain 42 prosenttia oli vuonna 2023 töissä, vaikka he ovat922652Mikä kaivatussasi herätti mielenkiintosi
Kun tapasitte ensi kerran? Ulkonäössä? Luonteessa tai olemuksessa? Kuinka nopeasti mielenkiinto muuttui ihastukseksi?1041720Persut muuten hyväksyvät 2 + 8 mrd. euron maatalous- ja yritystuet
Vaikka molemmat tukimuodot tiedetään haitallisiksi, koska ovat käytännössä pelkkää säilyttävää tukea, eivätkä kannusta k741528Valkoinen Golf
Kukahan on tämä ukko, joka työkseen kyylää pienen ässän asiakkaita viikon jokaisena päivänä.191244Martina Aitolehti podcastissa: Ero
Martina Aitolehti podcastissa: Ero Martina Aitolehti kertoi BFF-podcastin https://www.iltalehti.fi/viihdeuutiset/a/6962091177Kaikki ovat syntisiä!!!
Näin täällä koko ajan vakuutellaan uskovaisten toimesta. Myös Päivi Räsänen on toistanut tätä samaa matraa jatkuvasti. N3761124Moottorisahalla kauppaan
Missäs päin kaupunkia tämä yöllä moottorisahalla kauppaan yrittänyt asiakas askaroi? https://poliisi.fi/-/mies-yritti-s12977- 64967