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

375

Ää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. Vilma Nissinen pyytää anteeksi rasistisia lausuntojaan

      Nöyrtyi kuten persut yleensäkin. On kyllä noloa tuollainen vätystely, kun ei ole miestä seisoa omien lausuntojensa takan
      Maailman menoa
      190
      3149

    2. Riikka Purra: "Kokoomus haluaa leikata pienituloisten etuuksista - Se ei meille käy"

      Näin vakuutti persujen Purra edellisten eduskunta vaalien alla,. https://www.ku.fi/artikkeli/4910942-kun-uudessa-videos
      Maailman menoa
      62
      1964

    3. Lindtmanin pääministeriys lähenee päivä päivältä

      Suomen kansan kissanpäivät alkavat siitä hetkestä, kun presidentti Stubb on tehnyt nimityksen. Ainoastaan ylin tulodesi
      Maailman menoa
      65
      1573

    4. Sandels tölkin hinta nousi 1,29 eurosta 1,32 euroon

      Mitähän järkeä valtiolla on verottaa tuotakin elintarviketta niin kovasti, että on järkevämpää käydä hakemassa ulkomailt
      Köyhyys
      33
      1573

    5. Oon kyllä välillä ollut susta

      Nainen huolissani, en oo niin sydämetön mitä tunnut ajattelevan
      Ikävä
      93
      1270

    6. Tuntuuko sinusta mies

      että olet jossain, mutta sydämessäsi haluat olla muualla. Suunnittelet kaikkea kivaa ja olet innolla mukana, mutta silti
      Ikävä
      22
      1215

    7. Rakastan sitä

      kun uppoat selittämään jotain. Etsit oikeaa tapaa sanoa jotain, jonka olet jo etukäteen miettinyt, sekoat vähän sanoissa
      Ikävä
      49
      983

    8. Ikävä uutinen uudesta Unelmia Italiassa kaudesta - Iso pettymys tv-katsojille!

      Unelmia Italiassa -sarja kertoo Ellen Jokikunnaksen perheen elämästä Suomessa ja Italiassa. Nyt Ellen on kertonut tuleva
      Tv-sarjat
      5
      932

    9. Mitä tapahtuisi....

      Meidän välillä jos törmäisimme yöelämässä ilman häiriötekijöitä ja olisimme hieman huppelissa? Päättyisikö ilta kenties
      Ikävä
      61
      927

    10. Jokaisella tytöllä on supervoimansa

      Millaisia ajatuksia artikkeli herättää? Mainos: Dove | ”Itsetuntoni oli ihan romuttunut” – Peppina Rosén haastaa tavan
      Sinkut
      187
      922
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt