VBA kysymys

Anonyymi

Apuvah!
Workbook "Osalista.xlsm" löytyy Worksheet "Osat" ja siellä on A2:H20 alueelle määritetty osalistaus, joka pitäisi saada siirtymään VBA:lla toiseen Workbookiin (Osat.xlsx) allekkain aina viimeisen alle.
Nyt tekemäni koodi siirtää "tyhjänäkin" olevat solut ja seuraava kopio siirtyy ensimmäisen siirron jälkeen soluun A39 ja seuraava A59 jne.....
Mitä tuossa on väärin vai ottaako tämä myös tyhjät solut joissa on pelkästään kaavat alueella A2:H20?


-------------------------------------------
Sub Osalista()

Dim wbGood As Workbook
Dim wsCopy As Worksheet, wsDest As Worksheet
Dim lCopyLastRow As Long, lDestLastRow As Long

Set wbGood = Workbooks("Osalista.xlsm")
Set wbGood = Workbooks("Osat.xlsx")

Set wsCopy = Workbooks("Osalista.xlsm").Worksheets("Osat")
Set wsDest = Workbooks("Osat.xlsx").Worksheets("Taul1")

lCopyLastRow = wsCopy.Cells(wsCopy.Rows.Count, "A").End(xlUp).Row

lDestLastRow = wsDest.Cells(wsDest.Rows.Count, "A").End(xlUp).Offset(1).Row

wsCopy.Range("A2:H" & lCopyLastRow).Copy
wsDest.Range("A" & lDestLastRow).PasteSpecial xlValues

Application.CutCopyMode = False



End Sub

0

586

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000

      Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

      Luetuimmat keskustelut

      1. Huomenta ihana

        Kauniskasvoinen ihanuus 😘 saan sut vielä
        Ikävä
        40
        6983
      2. Hei rakas...

        Miten on työpäivä sujunut? Rakastan sinua 💗
        Ikävä
        32
        3938
      3. Ei tämä etene ikinä

        Kun kumpikaan ei enää ota yhteyttä. Mä en ainakaan uskalla.
        Ikävä
        45
        3330
      4. Edelleen sitä on vaikea uskoa

        Että olisit oikeasti rakastunut muhun
        Ikävä
        40
        2939
      5. Vitsi mihin menit. Heti takasin.

        Mä näin sut tuu takasin! Oli kiire, niin en ehtiny sin perään!
        Ikävä
        17
        2716
      6. Toiveikas vai toivoton

        torstai? Ajatuksia?
        Ikävä
        37
        2238
      7. Mukavaa päivää

        Mun rakkauden kohteelle ❤️ toivottavasti olet onnellinen
        Ikävä
        16
        2196
      8. Koko ajan olet

        Senkin suhteen kiusannut. Halut on ihan mielettömät olleet jo pitkään
        Ikävä
        41
        2143
      9. Voi ei! Jari Sillanpää heitti keikan Helsingissä - Hämmästyttävä hetki lavalla...

        Ex-tangokuningas on parhaillaan konserttikiertueella. Hän esiintyi Savoy teatterissa äitienpäivänä. Sillanpää jakoi kons
        Suomalaiset julkkikset
        48
        2077
      10. Miksi et irrota otettasi

        Suhteeni?
        Ikävä
        40
        2028
      Aihe