Elikkäs miten saisin helpointen tehtyä vba ohjelmaan seuraavan kaltaisen toiminnon.
Ohjelman pitäisi kopioida tietty solualue(esim A1:B23) ja littää se toiseen taulukkoon samaan kohtaan(A1:B23), siten että alueella olevat tyhjät rivit eivät tulisi mukaan. Lisäksi pitäisi vielä saada tarkastettua onko kyseinen alue tyhjä ja jos ei ole niin sitten kopiointi alueen viereen(C1:D23)ja jos sekään ei tyhjä niin taas viereen jne. jne.
Tässä pulma jota en saa omilla vähäisillä taidoillani ratkaistua...
Miten VBA:lla...
tehdään
2
390
Vastaukset
aika simppelisti toi onnistuu excelin omilla erikoistoiminnoilla...
Sub Siirrä()
Dim KopioAlue As Range 'kopioitava alue
Dim SiirtoAlue As Range ' kohdealue
Dim EiTyhjiäAlue As Variant ' eityhjiä rivejä originaali kopioitava alue
On Error Resume Next
Set KopioAlue = Sheets("Originaali").Range("A1:B23") 'muuta kopioitavan taulukonnimi
KopioAlue.SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True ' tyhjät piilotetaan
Set EiTyhjiäAlue = KopioAlue.SpecialCells(xlCellTypeVisible) ' kopioidaan vain näkyvät
Set SiirtoAlue = Sheets("Kopio").Range("A1:B23") ' muuta kohdetaulukon nimi
If WorksheetFunction.CountA(SiirtoAlue) = 0 Then 'onko kohdealue tyhjä...
EiTyhjiäAlue.Copy Destination:=SiirtoAlue ' kopioidaan tiedot
Else ' jos ei niin etsitään eka tyhjä oikealle
EiTyhjiäAlue.Copy Destination:=SiirtoAlue.End(xlToRight).Offset(0, 1) ' kopioidaan tiedot
End If
KopioAlue.SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = False ' tyhjät näkyviin taas
End Sub
keep excelling!- kiittäen
Kiitos ja kumarrus, itseltä ei toi kovin äkkiä olisikaan onnistunut....
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Kuka oli töllöntyön tekijä?
Ketä on nyt pidätetty? Oliko syy mustasukkaisuus tyttöystävästä tai oliko muita lieventäviä seikkoja? Katuuko tekijä nyt314113Kotikasvatus siitä se lähtee eli missä meni vikaan että lapsesta tuli puukottaja
Ottakaa muut oppia, normaali kotielämä. Ei liikaa edes hengellisyyttä.462145Kun kohtaat jotain ainutlaatuista
ja upeaa, johon rakastut ehkä ensimmäistä kertaa ihan tosissaan. Sitten sähläät kaiken omien epävarmuuksien vuoksi. Eikö471335- 841197
Mua ahdistaa
Tämä juttu. Miksi nainen torjuit minut vaikka kiinnostuksen merkkejä oli? Eihän tämän jutun olisi tarvinut johtaa sen pi381138Ei tämä enää tervettä oo
Sydän pamppaillen oon jo tunnin meinannu laittaa sulle viestiä... Sormi tärisee lähetä kuvakkeen kohdalla.251116Perämoottoreiden huolto melkoisen kallista
Minulla on tuollainen keskikokoinen perämoottori ja yleistä merkkiä. Kyselin sille keväthuoltoa paikallisista liikkeistä501061Pasi Turunen: Ensimmäisenä Helluntaina ei kastettu sylivauvoja!
Tänään 31.5.2026 Pasi Turunen noin vastasi soittajan kysymykseen! Raamattu EI KERRO ketä kastettiin161935Tanskademarit: ilman risusavottaa ei rahaa!
Näin persuna on pakko ihailla noita Tanskan demareita. Tanskalaisessa sosiaalidemokratiassa ei työtön saa rahaa ellei os173871- 57845