Miten VBA:lla...

tehdään

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...

2

379

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • kunde

      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ä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. Eutanasia - miksi eläimelle sallitaan armokuolema, mutta ihmiselle ei?

      Olen pitkään ihmetellyt yhtä asiaa Suomessa. Kun koira kärsii parantumattomasta sairaudesta ja kovista kivuista, eläinlä
      Arvot ja etiikka
      40
      11734

    2. Sanna Marin vetänyt leukoja 11 kertaa

      Tästähän oli joskus polemiikkia, kun muistaakseni lupasi kymmenen tai jotain vedellä. No nyt niin on, ainakin omien san
      Maailman menoa
      33
      4689

    3. Sosiaalidemokratia romahtanut kautta maailman

      nuoret eivät enää kannata järjetöntä aatetta, joten demarien täytyy hakea kannattajia mamuista. Ruotsin sos.demit jo kie
      Maailman menoa
      251
      2827

    4. Miksi Seta ja Sofia Virta ei vaadi muslimeita kunnioittamaan priden-arvoja?

      Kuten tiedetään niin islam ei hyväksy sitä mitä pride edustaa. Seta-pomo Mikkonen nosti hirveän äläkän kun yksi tepsin
      Maailman menoa
      147
      2620

    5. Kuvaile kaivattusi

      ulkonäkö. Asiattomatkin kommentit saa laittaa. -🏚️
      Ikävä
      112
      1712

    6. Farmi Suomi: Kokeeko Frederik, 81, saman kohtalon kuin ikämies Danny?

      Danny, musiikkineuvos Ilkka Lipsanen, nähtiin mukana Farmi Suomi -realityssä v. 2024. Danny teki yllätysratkaisun ja tuo
      Tv-sarjat
      15
      1081

    7. 40 vuotta töitä paiskinut ja 3 vuotta työttömänä mamuna Suomessa, sama eläke

      Jokin mättää. Eläkettä ei pidä maksaa lainkaan mamuille jos työhistoriaa ei ole vähintään 10 vuotta takana.
      Maailman menoa
      209
      862

    8. Et olisi niin epävarma,

      olisit varmempi, ihastuisin suhun enemmän...
      Ikävä
      82
      840

    9. En luota sinuun

      en edelleenkään yhtään tiedä oletko lintu vai kala vai kalavale. Ja ilmeisesti haluat pitää sen niin, syitä voi vain arv
      Ikävä
      62
      786

    10. Puualan yrittäjä

      Kuka mahtaa olla? Eikö tuhkaa saa levittää metsään?
      Kauhava
      10
      748
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt