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

370

Ää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. Mira Luoti ja Julkkisselviytyjät 2017 - Ketä kuumottaa juuri nyt?

      HS: Tässä ohjelmassa Mira Luoti kertoi kokeneensa seksuaalista väkivaltaa "PMMP-yhtyeen Mira Luoti kertoo Ylen uudessa
      Kotimaiset julkkisjuorut
      73
      2015

    2. Mietin että

      Onko tarinallamme vielä luvussa tilaa kohtaamiselle vai jääkö se tähän.
      Ikävä
      102
      1883

    3. Kaipaatko sinä

      Yhtään meidän katseita
      Ikävä
      142
      1773

    4. Oletko samaa mieltä

      Että on parempi olla erillään?
      Ikävä
      97
      1421

    5. Törkeä eläinsuojelurikos Sonkajärvellä

      Pohjois-Savossa Sonkajärvellä noin 40 kissaa ja reilut 10 koiraa on jouduttu lopettamaan kaltoinkohtelun vuoksi, kertoo
      Sonkajärvi
      35
      1389

    6. MESTARI SIVALTAA JÄLLEEN

      https://www.is.fi/politiikka/art-2000011436243.html Suomen ainoa Mestari lausuu tosiasiat Sannasta , Tuomiojasta ja hil
      Kajaani
      317
      1265

    7. Kirjallinen varoitus

      On annettu eräälle henkilölle. hyssytellään kuitenkin asiasta
      Äänekoski
      60
      1229

    8. Jotkut ihmiset pelkäävät syöpää sairastavaa

      On hauskaa, kun kertoo jollekin, että "minulla on syöpä". Jotkut käyttäytyvät kuin se olisi tarttuva tauti. Eivät uskall
      Sinkut
      130
      1112

    9. Julkisuuden henkilön päiväin päätös

      Sitä vaan, että kyllä nyt kaikki tietävät kuka oli Eemeli Peltola (kansanedustaja, joka päätti päivänsä eduskuntatalossa
      Sinkut
      276
      1066

    10. Kuulin juttua että Jeesus on kopioitu krishnasta

      Pitääkö paikkansa että kertomukset ovat samat kummankin uskonnon kirjoissa
      Hindulaisuus
      446
      963
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt